10 اخطاء تجنبها اثناء كتابه كود علي برمجة الاكسيل stop using dim lastrow as integer

[@Lareen]

اي شئ مش واضح ف الشرح برجاء ترك تعليق

[@tariqhamadi4009]

ما شاء الله عليك اسلوبك قمة في الروعة وبسيط 🌹🌹🌹

[@Lareen]

@@tariqhamadi4009 الف شكر لحضرتك اسعدني تعليقك جدا وان شاء الله اكون عند حسن ظنكم ديما

[@recouvrementadeu4783]

قمة يا أخي.
أعاني منذ مدة من مشكل عن فتح التطبيق سأتواصل معك قريبا.
تحياتي من الجزائر

[@Lareen]

@@recouvrementadeu4783 العفو تحت امرك في الخدمه

[@thesimple6040]

تسلم يا ريس ❤❤❤

[@كلامالصميم]

الله ينور عليك على هذا الدرس الرائع وجميل جدا جدا

[@ahmedwahid198]

بارك الله فيك وزادك من فضله
عايزين نعمل الفورم من غير الإطار الخارجي اللي فيه زر الكلوز لو أمكن

[@Lareen]

تسلم ربنا يخليك ويباركلك
موجوده ف الدرس ده باذن الله
ua-cam.com/video/E7R8JL3hjoI/v-deo.html

[@omarrahim673]

بارك الله فيك بالتوفيق
عندي سؤال كيف اقوم بوضع الايقونة الاشهر مثل التي وضعتها في التكست بوكس ٢ في الشرح هذا من جهة
ومن جهة اخرى اريد وضع الفاصل التاريخ يظهر في التكست بوكس مثلا / او _ وشكرا

[@tamer_elshahat]

جميل جدا استمر الله ينور🌹

[@Lareen]

ربنا يبارك فيك اخويا تامر هذا من بعض ما عندكم وكلنا بنكمل بعض اسعدني مرورك كثيرا وانا متابع جيد لقناتك

[@ThinkWithJihadAr]

الله يفتح عليك رائع

[@abdelrhmanragab3930]

الله ينور على عليك

[@Lareen]

العفو تحت امرك دا نورك اسعدني تعليقك

[@abdelrhmanragab3930]

الله ينور حقيقى بتقدم حجات مميزه فى vba مش موجوده على اليوتيوب

[@Lareen]

@@abdelrhmanragab3930 تسلم اخي عبدالرحمن ان شاء الله ديما اكون عند حسن ظنك بي ولو في اي حاجه وقفت معاك اكتبلي تعليق وان شاء الله خير

[@khalifikhalifa7279]

السلام عليكم رجاءا عندي خلل اخي العزيز في محرر الأكواد وهي عدم ظهور نافدة الأكواد مثل مبتظهر عندك في الفيديو

[@MohamedAdel-hj1qn]

انا دلوقتى لما باخد كود copy واجى اعدل فيه بلاقى فى حروف من الكود بتتمسح اى الخل

[@ashrafelsayed3049]

جميل جدا

[@mohamedachour3473]

لديا مشكل الاكواد لا تعمل بعد عبارة next في الحلقة التكرارية

[@Lareen]

بعد الخروج من الحلقه ولا تقصد ان الحلقه تعمل مره واحده فقط وبعدها تتوقف عن العمل

[@mohamedachour3473]

نعم بعد الخروج من الحلقة

[@Lareen]

@@mohamedachour3473 انسخ الكود بالكامل والصقه في التعليق وان شاء الله بقولك المشكله

[@tariqhamadi4009]

السلام عليكم استاذنا
انا اخذت كود من قناة حسن ابو الخير ولما كتبت الكود بالميلي اعطاني خطاء رغم ان الملف محفوظ صح
لكن لاحظت ان عند كتابتي للكود في امور ما كانت تظهر معي زي الفيديو
مثلا
لما تعمل .value
المفروض اول ما اعمل دوت يفتح لي قائمة اختار منها
لكن عندي ما بتظهر القائمة
ايش ممكن يكون الخطاء والاختلاف
الف شكر لك مقدما

[@Lareen]

وعليكم السلام ورحمة الله وبركاته
بالنسبه ل .value عادي احياننا مش بتظهر
ولكن ساعات برضه مش بتظهر بسبب ان حضرتك كتبت اسم الشيت غلط تاكد انك كتبته صح
لو مشتغلش اكتب الكوذ ف التعليق

[@husseinnama5962]

س ع .. عندي مشكلة بكود البحث حيث عند كتابة الاسم والضغط على زر بحث يوجهني الى كود البحث ويشير الى :
Sheet2.Cells(lf,"D").Value=Sheet3.Cells(Lsrch,Sr1).Value
Sheet2.Cells(lf,"G").Value=Sheet3.Cells(Lsrch,Sr2).Value

[@Lareen]

لازم اشوف الكود كله ولازم اعرف نوع الخطا ال بيطلع

[@husseinnama5962]

اشكرك جدا على الإجابة وأهتمامك ربي يحفظكم@@Lareen

[@husseinnama5962]

@@Lareen
Private Sub CommandButton1_Click()
On Error Resume Next
Dim Last, Cl1, Cl2, Io As Integer
Last = Sheet3.Range("A10000").End(xlUp).Row + 1
For Cl1 = 1 To 4
For Cl2 = 5 To 8
For Io = 5 To 11 Step 2
Sheet3.Cells(Last, Cl1).Value = Sheet2.Cells(Io, "D").Value
Sheet3.Cells(Last, Cl2).Value = Sheet2.Cells(Io, "G").Value
Cl1 = Cl1 + 1
Cl2 = Cl2 + 1
Next Io
Next
Next
For Clr = 5 To 11 Step 2
Sheet2.Cells(Clr, "D").Value = ""
Sheet2.Cells(Clr, "G").Value = ""
Next Clr
MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد"
End Sub
Private Sub CommandButton2_Click()
Sheet3.Range("J1").Value = Sheet2.Range("E3").Value
Dim Lsrch, Sr1, Sr2, lf As Integer
Lsrch = Sheet3.Range("K1").Value
For Sr1 = 1 To 4
For Sr2 = 5 To 8
For lf = 5 To 11 Step 2
Sheet2.Cells(lf, "D").Value = Sheet3.Cells(Lsrch, Sr1).Value
Sheet2.Cells(lf, "G").Value = Sheet3.Cells(Lsrch, Sr2).Value
Sr1 = Sr1 + 1
Sr2 = Sr2 + 1
Next lf
Next
Next
End Sub

[@husseinnama5962]

الكود الاول كود الاضافة ولا توجد اي مشكله بعمله الاشكال في كود البحث فقط

[@Mr_Abdullah_2024]

لو عندي لاست رو عمود D اخر صف فيه بيانات والعمود C فاضي ،لكن بعد ما يحدد الاست رو ينزل صف واحد لكن يحط لي قيمة وحدة فقط في عمود C من التكست بوكس ،،لانه عندي دفعة مبالغ واردة ومخصص له عمود C والعمود D خاص بارقام وظيفيه يتم صرف الدفعة الواردة عليه وهكذا اذا اتت دفعة تكون مخصص قيمتها في C والعمود D يكون للمبلغ الوارد المتوزع بمعنى لو اتت دفعة في C راح يكون في خلايا فارقة بين الدفعات

[@Mr_Abdullah_2024]

زر واحد خاص بالدفعات المضافة وزر اخر خاص بالمصروفات

[@Mr_Abdullah_2024]

هل ممكن يصير بدون تعارض الخلايا الفارقة بين بعض في العمود C

[@mohamedachour3473]

Sub nouveau()
Dim lastrow As Integer
lastrow = Sheets("QNT").Cells(Sheets("QNT").Rows.Count, "A").End(xlUp).Offset(1, 0).Row
If Feuil7.Range("r5") 0 Or Range("h12") = "" Or Range("b13") = "" Or Range("f22") = "" Then
MsgBox ("n°de facture est existe déja ou les champs sont vide")
Else
Feuil7.Select
Range("u5:Em5").Select
Selection.Copy
Feuil5.Select
Range("A16").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Feuil5.Range("16:16").Insert

Sheets("facture").Select

Application.CutCopyMode = False



Sheets("facture").Select

Sheets("facture").Activate


Range("a1:h45").ExportAsFixedFormat xlTypePDF, Filename:="C:\Documents and Settings\Administrator\Desktop\archive-facture\" & Range("h12").Value, openafterpublish:=False

For i = 22 To 37
If (Sheets("facture").Cells(i, "b") = "") Then
Exit Sub
End If

Sheets("QNT").Cells(lastrow, "a") = Sheets("facture").Cells(12, "h")
Sheets("QNT").Cells(lastrow, "b") = Sheets("facture").Cells(13, "h")
Sheets("QNT").Cells(lastrow, "c") = Sheets("facture").Cells(i, "A")
Sheets("QNT").Cells(lastrow, "d") = Sheets("facture").Cells(i, "b")
Sheets("QNT").Cells(lastrow, "e") = Sheets("facture").Cells(i, "C")
Sheets("QNT").Cells(lastrow, "f") = Sheets("facture").Cells(i, "D")
Sheets("QNT").Cells(lastrow, "g") = Sheets("facture").Cells(i, "E")
Sheets("QNT").Cells(lastrow, "h") = Sheets("facture").Cells(i, "F")
Sheets("QNT").Cells(lastrow, "i") = Sheets("facture").Cells(i, "G")
lastrow = lastrow + 1
Next i
Sheets("facture").Range("h12").Value = Range("h12").Value + 1
Sheets("facture").Range("B13,A22:A37,C22:E37").Select
Selection.ClearContents
End If
End Sub