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

[@Lareen]

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

[@tariqhamadi4009]

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

[@Lareen]

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

[@recouvrementadeu4783]

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

[@Lareen]

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

[@thesimple6040]

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

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

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

[@ThinkWithJihadAr]

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

[@abdelrhmanragab3930]

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

[@Lareen]

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

[@abdelrhmanragab3930]

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

[@Lareen]

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

[@tamer_elshahat]

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

[@Lareen]

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

[@ashrafelsayed3049]

جميل جدا

[@ahmedwahid198]

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

[@Lareen]

تسلم ربنا يخليك ويباركلك موجوده ف الدرس ده باذن الله kzbin.info/www/bejne/e2i1aX2CaM2dpas

[@omarrahim673]

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

[@MohamedAdel-hj1qn]

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

[@tariqhamadi4009]

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

[@Lareen]

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

[@mohamedachour3473]

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

[@Lareen]

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

[@mohamedachour3473]

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

[@Lareen]

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

[@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