الصفتى

السلام عليكم و رحمة الله استاذى العزيز لقد ساعدتنى مكسبقا فى هذا الكود لليست بوكس و كان يعمل جيدا و لكن عندما اردت تعديل الفورم و اضفت كود لتكبير و تصغير الفورم اصبح هناك خطأ فى كود البحث لا اعرف كيف اعالجه و اسف على ازعاجك مرفق نموزج العملتجربة.xlsb

جزاك الله خيرا

تسلم ايديك هو اعاد الترحيل بالميلادى و لكنه لغى اظهار التاريخ الهجرى على الفورم ايضا هل هناك امكانية لاظهراه دون التاثير على الترحيل

عند استخدام الكود لكتابة التاريخ الهجرى في ليبل في الفورم فانه يجعل ترحيل البيانات تتم بالهجرى أيضا و ليس الميلادى ()Private Sub UserForm_Activat L1.Caption = "date :" & Format(Date, "ddd dd mmm yyyy") VBA.Calendar = vbCalHijri L2.Caption = "date hijri:" & Format(Date, "ddd dd mmm yyyy") Do L3.Caption = Now DoEvents End Sub TEST.xlsb

البحث عن رقم العقد الموجود بالفورم في SHEET1 ثم ترحيل القيمة الموجوده في تكست بوكس 4 و التاريخ الموجود في تكست بوكس7فى ااول خليه فارغه في النطاق من T : Atمع عدم فتح SHEET1 TEST.xlsb

جزاك الله خيرا تمت بنجاح

الساده الافاضل كيف يمكن التغلب على هذا التحدى و جعل الترحيل يكون على اول صف فارغ داخل الجدول و هذه هى بداية الكود Dim LastRow As Long lastrow = thisworkbook.sheets("xx").range("g1000000").End(xlUp).Row LastRow = LastRow + 1

جزاك الله خيرا استاذ محمد

السادة الخبراء تحية طيبة و بعد هل ممكن المساعدة فى هذا الطلب كيفية ادراج قيمة أخر خلية موجودة بعمود فى Textbox بالفورم بفرض العمود E و الشيت الموجود به اسمه ليدجر

السادة الخبراء الافاضل لدى تحدى فى كود ترحيل و هو انه فى حالة وجود تكست بوكس مخصص للتاريخ فارغ فان الكود لا يعمل مع العلم ان الفورم يحتوى على العديد من التكست بوكس المخصصه و احيانا لا تكون جميعها مكتملة -- مرفق جزء من الكود Dim lastRow As Long lastRow = ThisWorkbook.sheets("SCREEN").Range("G1000000").End(xlUp).Row lastRow = lastRow + 1 Application.ScreenUpdating = False With ThisWorkbook.sheets("SCREEN") .Range("G" & lastRow).Value = TXT1.Value .Range("H" & lastRow).Value = CDate(TXT2) .Range("I" & lastRow).Value = Txt16.Value .Range("J" & lastRow).Value = Txt14.Value .Range("K" & lastRow).Value = Txt15.Value .Range("L" & lastRow).Value = Txt7.Value .Range("M" & lastRow).Value = Txt8.Value .Range("N" & lastRow).Value = Txt9.Value .Range("O" & lastRow).Value = CDate(Txt12) و استخدمت CDATE لحل مشكلة ان التاريخ كان يرحل بصيغه مختلفه فظهرت لى مشكلة انه يرفض التكست بوكس الفارغه و لكم جزيل الشكر

تمام حجرب و اعلم حضرتك بالنتيجة شكرا جزيلا

انا فهمت قصد حضرتك فى ترتيب عناصر التحكم لكن التحدى ان الاعمدة التى سترحل عليها البيانات ليست متتالية فى فى الوسط اعمده لا يرحل لها شىء لاحتوائها على معادلات على حسب ما فهمت من الكود انه حيرحل من عناصر تحكم متتالية الى اعمدة فى قاعدة البيانات متتالية ايضا و هل يجوز تقسيم هذا الكود الى اكثر من مقطع على حسب توالى الاعمدة فى قاعدة البيانات بعد ان اقوم بتعديل عناصر التحكم كما حضرتك تفضلت

شكرا على تعبك معايا بس للاسف صعب اعدل فى قاعدة البيانات لان الفراغات بين الاعمدة مرتبطة بمعادلات

بالفعل لم افهم المفصود منها الا الان و هو اعادة التسمية و لكن السؤال هنا ان البيانات المطلوب ترحيلها ليست مرتبة فى قاعدة البيانات ليدجر حيث يوجد جزء متفرق فهل اعادة التسمية و الترحيل سيذهب الى الخلايا المطلوبة

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

جزاك الله خيرا تم حل مشكلة تالترحيل بالنسبة للكود الراغب فى تسريعه فقد نسخته هنا و شكرا جزيلا لاهتمامك Private Sub CommandButton6_Click() answer = MsgBox ("هل متاكد من تعديل البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "تاكيد التعديل") If answer = vbYes Then Dim rng1 As Range Dim str_search As String str_search = Txt3.Value ThisWorkbook.Sheets("ليدجر").Activate Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Select Dim row_number As Long row_number = ActiveCell.Row Application.ScreenUpdating = False Sheets("ليدجر").Range("F" & row_number).Value = Txt29.Value Sheets("ليدجر").Range("G" & row_number).Value = TXT1.Value Sheets("ليدجر").Range("H" & row_number).Value = TXT2.Value Sheets("ليدجر").Range("I" & row_number).Value = Txt16.Value Sheets("ليدجر").Range("J" & row_number).Value = Txt14.Value Sheets("ليدجر").Range("K" & row_number).Value = Txt15.Value Sheets("ليدجر").Range("L" & row_number).Value = Txt7.Value Sheets("ليدجر").Range("M" & row_number).Value = Txt7.Value Sheets("ليدجر").Range("N" & row_number).Value = Txt7.Value Sheets("ليدجر").Range("O" & row_number).Value = Txt12.Value Sheets("ليدجر").Range("P" & row_number).Value = Txt11.Value Sheets("ليدجر").Range("Q" & row_number).Value = Txt21.Value Sheets("ليدجر").Range("R" & row_number).Value = Txt4.Value Sheets("ليدجر").Range("S" & row_number).Value = Txt10.Value Sheets("ليدجر").Range("T" & row_number).Value = Txt13.Value Sheets("ليدجر").Range("U" & row_number).Value = Txt5.Value Sheets("ليدجر").Range("V" & row_number).Value = Txt6.Value Sheets("ليدجر").Range("W" & row_number).Value = Txt38.Value Sheets("ليدجر").Range("X" & row_number).Value = Txt32.Value Sheets("ليدجر").Range("Y" & row_number).Value = Txt33.Value Sheets("ليدجر").Range("Z" & row_number).Value = Txt36.Value Sheets("ليدجر").Range("AA" & row_number).Value = Txt17.Value Sheets("ليدجر").Range("AB" & row_number).Value = Txt18.Value Sheets("ليدجر").Range("AC" & row_number).Value = Txt19.Value Sheets("ليدجر").Range("AD" & row_number).Value = Txt20.Value Sheets("ليدجر").Range("AS" & row_number).Value = Txt31.Value Sheets("ليدجر").Range("AU" & row_number).Value = Txt22.Value Sheets("ليدجر").Range("AV" & row_number).Value = Txt23.Value Sheets("ليدجر").Range("AW" & row_number).Value = Txt24.Value Sheets("ليدجر").Range("AX" & row_number).Value = Txt25.Value Sheets("ليدجر").Range("AY" & row_number).Value = Txt26.Value Sheets("ليدجر").Range("AZ" & row_number).Value = Txt27.Value Sheets("ليدجر").Range("AT" & row_number).Value = Txt28.Value Sheets("ليدجر").Range("BB" & row_number).Value = Txt34.Value Sheets("ليدجر").Range("BC" & row_number).Value = Txt35.Value Sheets("ليدجر").Range("BD" & row_number).Value = Txt30.Value Sheets("ليدجر").Range("EA" & row_number).Value = S2.Value Sheets("ليدجر").Range("KJ" & row_number).Value = S4.Value Sheets("ليدجر").Range("JX" & row_number).Value = Txt37.Value Sheets("ليدجر").Range("EE" & row_number).Value = C1.Value Sheets("ليدجر").Range("EF" & row_number).Value = A1.Value Sheets("ليدجر").Range("EG" & row_number).Value = C2.Value Sheets("ليدجر").Range("EH" & row_number).Value = A2.Value Sheets("ليدجر").Range("EI" & row_number).Value = C3.Value Sheets("ليدجر").Range("EJ" & row_number).Value = A3.Value Sheets("ليدجر").Range("EK" & row_number).Value = C4.Value Sheets("ليدجر").Range("EL" & row_number).Value = A4.Value Sheets("ليدجر").Range("EM" & row_number).Value = C5.Value Sheets("ليدجر").Range("EN" & row_number).Value = A5.Value Sheets("ليدجر").Range("EO" & row_number).Value = C6.Value Sheets("ليدجر").Range("EP" & row_number).Value = A6.Value Sheets("ليدجر").Range("EQ" & row_number).Value = C7.Value Sheets("ليدجر").Range("ER" & row_number).Value = A7.Value Sheets("ليدجر").Range("ES" & row_number).Value = c8.Value Sheets("ليدجر").Range("ET" & row_number).Value = A8.Value Sheets("ليدجر").Range("EU" & row_number).Value = c9.Value Sheets("ليدجر").Range("EV" & row_number).Value = A9.Value Sheets("ليدجر").Range("EW" & row_number).Value = c10.Value Sheets("ليدجر").Range("EX" & row_number).Value = A10.Value Sheets("ليدجر").Range("EY" & row_number).Value = c11.Value Sheets("ليدجر").Range("EZ" & row_number).Value = A11.Value Sheets("ليدجر").Range("FA" & row_number).Value = c12.Value Sheets("ليدجر").Range("FB" & row_number).Value = A12.Value Sheets("ليدجر").Range("FC" & row_number).Value = c13.Value Sheets("ليدجر").Range("FD" & row_number).Value = A13.Value Sheets("ليدجر").Range("FE" & row_number).Value = C14.Value Sheets("ليدجر").Range("FF" & row_number).Value = A14.Value Sheets("ليدجر").Range("FG" & row_number).Value = C15.Value Sheets("ليدجر").Range("FH" & row_number).Value = A15.Value Sheets("ليدجر").Range("FI" & row_number).Value = c16.Value Sheets("ليدجر").Range("FJ" & row_number).Value = A16.Value Sheets("ليدجر").Range("FK" & row_number).Value = c17.Value Sheets("ليدجر").Range("FL" & row_number).Value = A17.Value Sheets("ليدجر").Range("FM" & row_number).Value = c18.Value Sheets("ليدجر").Range("FN" & row_number).Value = A18.Value Sheets("ليدجر").Range("FO" & row_number).Value = c19.Value Sheets("ليدجر").Range("FP" & row_number).Value = A19.Value Sheets("ليدجر").Range("FQ" & row_number).Value = c20.Value Sheets("ليدجر").Range("FR" & row_number).Value = A20.Value Sheets("ليدجر").Range("FS" & row_number).Value = c21.Value Sheets("ليدجر").Range("FT" & row_number).Value = A21.Value Sheets("ليدجر").Range("FU" & row_number).Value = C22.Value Sheets("ليدجر").Range("FV" & row_number).Value = A22.Value Sheets("ليدجر").Range("FW" & row_number).Value = c23.Value Sheets("ليدجر").Range("FX" & row_number).Value = A23.Value Sheets("ليدجر").Range("FY" & row_number).Value = c24.Value Sheets("ليدجر").Range("FZ" & row_number).Value = A24.Value Sheets("ليدجر").Range("GA" & row_number).Value = c25.Value Sheets("ليدجر").Range("GB" & row_number).Value = A25.Value Sheets("ليدجر").Range("GC" & row_number).Value = c26.Value Sheets("ليدجر").Range("GD" & row_number).Value = A26.Value Sheets("ليدجر").Range("GE" & row_number).Value = c27.Value Sheets("ليدجر").Range("GF" & row_number).Value = A27.Value Sheets("ليدجر").Range("GG" & row_number).Value = c28.Value Sheets("ليدجر").Range("GH" & row_number).Value = A28.Value Sheets("ليدجر").Range("GI" & row_number).Value = C29.Value Sheets("ليدجر").Range("GJ" & row_number).Value = A29.Value Sheets("ليدجر").Range("GK" & row_number).Value = C30.Value Sheets("ليدجر").Range("GL" & row_number).Value = A30.Value Sheets("ليدجر").Range("BG" & row_number).Value = D2.Value Sheets("ليدجر").Range("BH" & row_number).Value = H2.Value Sheets("ليدجر").Range("BI" & row_number).Value = D3.Value Sheets("ليدجر").Range("BJ" & row_number).Value = H3.Value Sheets("ليدجر").Range("BK" & row_number).Value = D4.Value Sheets("ليدجر").Range("BL" & row_number).Value = H4.Value Sheets("ليدجر").Range("BM" & row_number).Value = D5.Value Sheets("ليدجر").Range("BN" & row_number).Value = H5.Value Sheets("ليدجر").Range("BO" & row_number).Value = D6.Value Sheets("ليدجر").Range("BP" & row_number).Value = H6.Value Sheets("ليدجر").Range("BQ" & row_number).Value = D7.Value Sheets("ليدجر").Range("BR" & row_number).Value = H7.Value Sheets("ليدجر").Range("BS" & row_number).Value = D8.Value Sheets("ليدجر").Range("BT" & row_number).Value = H8.Value Sheets("ليدجر").Range("BU" & row_number).Value = D9.Value Sheets("ليدجر").Range("BV" & row_number).Value = H9.Value Sheets("ليدجر").Range("BW" & row_number).Value = D10.Value Sheets("ليدجر").Range("BX" & row_number).Value = H10.Value Sheets("ليدجر").Range("BY" & row_number).Value = D11.Value Sheets("ليدجر").Range("BZ" & row_number).Value = H11.Value Sheets("ليدجر").Range("CA" & row_number).Value = D12.Value Sheets("ليدجر").Range("CB" & row_number).Value = H12.Value Sheets("ليدجر").Range("CC" & row_number).Value = D13.Value Sheets("ليدجر").Range("CD" & row_number).Value = H13.Value Sheets("ليدجر").Range("CE" & row_number).Value = D14.Value Sheets("ليدجر").Range("CF" & row_number).Value = H14.Value Sheets("ليدجر").Range("CG" & row_number).Value = D15.Value Sheets("ليدجر").Range("CH" & row_number).Value = H15.Value Sheets("ليدجر").Range("CI" & row_number).Value = D16.Value Sheets("ليدجر").Range("CJ" & row_number).Value = H16.Value Sheets("ليدجر").Range("CK" & row_number).Value = D17.Value Sheets("ليدجر").Range("CL" & row_number).Value = H17.Value Sheets("ليدجر").Range("CM" & row_number).Value = D18.Value Sheets("ليدجر").Range("CN" & row_number).Value = H18.Value Sheets("ليدجر").Range("CO" & row_number).Value = D19.Value Sheets("ليدجر").Range("CP" & row_number).Value = H19.Value Sheets("ليدجر").Range("CQ" & row_number).Value = D20.Value Sheets("ليدجر").Range("CR" & row_number).Value = H20.Value Sheets("ليدجر").Range("CS" & row_number).Value = D21.Value Sheets("ليدجر").Range("CT" & row_number).Value = H21.Value Sheets("ليدجر").Range("CU" & row_number).Value = D22.Value Sheets("ليدجر").Range("CV" & row_number).Value = H22.Value Sheets("ليدجر").Range("CW" & row_number).Value = D23.Value Sheets("ليدجر").Range("CX" & row_number).Value = H23.Value Sheets("ليدجر").Range("CY" & row_number).Value = D24.Value Sheets("ليدجر").Range("CZ" & row_number).Value = H24.Value Sheets("ليدجر").Range("DA" & row_number).Value = D25.Value Sheets("ليدجر").Range("DB" & row_number).Value = H25.Value Sheets("ليدجر").Range("DC" & row_number).Value = D26.Value Sheets("ليدجر").Range("DD" & row_number).Value = H26.Value Sheets("ليدجر").Range("DE" & row_number).Value = D27.Value Sheets("ليدجر").Range("DF" & row_number).Value = H27.Value Sheets("ليدجر").Range("DG" & row_number).Value = D28.Value Sheets("ليدجر").Range("DH" & row_number).Value = H28.Value Sheets("ليدجر").Range("DI" & row_number).Value = D29.Value Sheets("ليدجر").Range("DJ" & row_number).Value = H29.Value Sheets("ليدجر").Range("DK" & row_number).Value = D30.Value Sheets("ليدجر").Range("DL" & row_number).Value = H30.Value 'لو هناك زر اختيار ضع الكود الخاص به اسفل التعليق 'كود مسح البيانات Me.Txt29.Value = "" Me.TXT1.Value = "" Me.TXT2.Value = "" Me.Txt16.Value = "" Me.Txt14.Value = "" Me.Txt15.Value = "" Me.Txt7.Value = "" Me.Txt8.Value = "" Me.Txt9.Value = "" Me.Txt12.Value = "" Me.Txt11.Value = "" Me.Txt21.Value = "" Me.Txt4.Value = "" Me.Txt10.Value = "" Me.Txt13.Value = "" Me.Txt5.Value = "" Me.Txt6.Value = "" Me.Txt38.Value = "" Me.Txt32.Value = "" Me.Txt33.Value = "" Me.Txt36.Value = "" Me.Txt17.Value = "" Me.Txt18.Value = "" Me.Txt19.Value = "" Me.Txt20.Value = "" Me.Txt31.Value = "" Me.Txt22.Value = "" Me.Txt23.Value = "" Me.Txt24.Value = "" Me.Txt25.Value = "" Me.Txt26.Value = "" Me.Txt27.Value = "" Me.Txt28.Value = "" Me.Txt34.Value = "" Me.Txt35.Value = "" Me.Txt30.Value = "" Me.S2.Value = "" Me.S4.Value = "" Me.Txt37.Value = "" Me.C1.Value = "" Me.A1.Value = "" Me.C2.Value = "" Me.A2.Value = "" Me.C3.Value = "" Me.A3.Value = "" Me.C4.Value = "" Me.A4.Value = "" Me.C5.Value = "" Me.A5.Value = "" Me.C6.Value = "" Me.A6.Value = "" Me.C7.Value = "" Me.A7.Value = "" Me.c8.Value = "" Me.A8.Value = "" Me.c9.Value = "" Me.A9.Value = "" Me.c10.Value = "" Me.A10.Value = "" Me.c11.Value = "" Me.A11.Value = "" Me.c12.Value = "" Me.A12.Value = "" Me.c13.Value = "" Me.A13.Value = "" Me.C14.Value = "" Me.A14.Value = "" Me.C15.Value = "" Me.A15.Value = "" Me.c16.Value = "" Me.A16.Value = "" Me.c17.Value = "" Me.A17.Value = "" Me.c18.Value = "" Me.A18.Value = "" Me.c19.Value = "" Me.A19.Value = "" Me.c20.Value = "" Me.A20.Value = "" Me.c21.Value = "" Me.A21.Value = "" Me.C22.Value = "" Me.A22.Value = "" Me.c23.Value = "" Me.A23.Value = "" Me.c24.Value = "" Me.A24.Value = "" Me.c25.Value = "" Me.A25.Value = "" Me.c26.Value = "" Me.A26.Value = "" Me.c27.Value = "" Me.A27.Value = "" Me.c28.Value = "" Me.A28.Value = "" Me.C29.Value = "" Me.A29.Value = "" Me.C30.Value = "" Me.A30.Value = "" Me.D1.Value = "" Me.H1.Value = "" Me.D2.Value = "" Me.H2.Value = "" Me.D3.Value = "" Me.H3.Value = "" Me.D4.Value = "" Me.H4.Value = "" Me.D5.Value = "" Me.H5.Value = "" Me.D6.Value = "" Me.H6.Value = "" Me.D7.Value = "" Me.H7.Value = "" Me.D8.Value = "" Me.H8.Value = "" Me.D9.Value = "" Me.H9.Value = "" Me.D10.Value = "" Me.H10.Value = "" Me.D11.Value = "" Me.H11.Value = "" Me.D12.Value = "" Me.H12.Value = "" Me.D13.Value = "" Me.H13.Value = "" Me.D14.Value = "" Me.H14.Value = "" Me.D15.Value = "" Me.H15.Value = "" Me.D16.Value = "" Me.H16.Value = "" Me.D17.Value = "" Me.H17.Value = "" Me.D18.Value = "" Me.H18.Value = "" Me.D19.Value = "" Me.H19.Value = "" Me.D20.Value = "" Me.H20.Value = "" Me.D21.Value = "" Me.H21.Value = "" Me.D22.Value = "" Me.H22.Value = "" Me.D23.Value = "" Me.H23.Value = "" Me.D24.Value = "" Me.H24.Value = "" Me.D25.Value = "" Me.H25.Value = "" Me.D26.Value = "" Me.H26.Value = "" Me.D27.Value = "" Me.H27.Value = "" Me.D28.Value = "" Me.H28.Value = "" Me.D29.Value = "" Me.H29.Value = "" Me.D30.Value = "" Me.H30.Value = "" Application.ScreenUpdating = True End If End If MsgBox "تم التعديل بنجاح" End Sub كود تعديل.docx

ممكن اعرف الخطأ فى الكود و مرفق صوره Private Sub lblResize() Dim eCadre As Long, hCaption As Long eCadre = (Me.Width - Me.InsideWidth) / 2 hCaption = Me.Height - Me.InsideHeight - eCadre Me.Resize.Left = Me.Width - Me.Resize.Width - eCadre Me.Resize.Top = Me.Height - Me.Resize.Height - hCaption - eCadre End Sub

الساده الخبراء هل هناك حل لجعل الفورم يرحل الارقام فى صورة ارقام و ليست تكست و هل هناك امكانية لتسريع تنفيذ امر ترحيل البيانات من الفورم و جزاكم الله خيرا

شكرا جزيلا و جزاك الله كل خير لو مفيش ازعاج لحضرتك هلى فى كود يجعل التكست بوكس المنوط ادخال تواريخ فيها لا تقبل الا ادخال تاريخ كامل yyyy/mm/dd مع العلم هما حوالى 30 تكست بوكس و شكرا لاهتمام حضرتك

الساده الافاضل لدى فورم على الاكسيل ارتفاعه اكبر من الشاشه و لا استطيع تحريكه للاسفل لارى باقى الفورم فما هو الحل( ملحوظة الفورم فى مقاس A4 تقريبا

كود يظهر تاريخ القسط للشهر طبقا للخلية k1 كوديظهر الدفعه المقابله للشهر طبقا للخلية k1 كود لجمع الدفعات المستحقه حتى التاريخ بالخلية o2 ملحوظة برجاء ان يعمل الكود في حالة ان العمود Aلا يساوى صفر تعديل على المطلوب باضافة معادلات صفيف للملف ان امكن تحويلها لكود و توضح المطلوب و الهدف من رغبتى تحويلها الى كود هو تقليل مساحة الملف لاحتوائه على 9000 صف و لكم جزيل الشكر مثال للمطلوب.xlsb

شكرا جزيلا استاذ محمد صالح جزاك الله كل خير استاذ محمد صالح عند تجربة الكود وجدت تحدى صغير به و هو انه عند البحث بالاسم فانه لا يمسح الليست بوكس القديمة و لكن يضيف عليها الجديد

ممكن اعرف الخظأ فى الكود اى؟ Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة Me.ListBox1.AddItem For a = 1 To 6 Me.ListBox.List(0, a - 1) = Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub

السلام عليكم و رحمة الله و بركاته الساده الافاضل خبراء vbaبرجاء التكرم و مساعدتى فى تصحيح الكود فى التكست بوكس و الذى يقوم بالبحث فى ليست بوكس و التحديات التى تقابلنى فيه هى: 1-عند فتح الفورم فى شيت 1 و عمل البحث يقوم الفورم بفتح شيت البيانات(ليدجر ايضا) و لا ارغب فى ذلك افضل ان لايفتح الشيت و اكتفى بالبيانات فى الليست بوكس 2-ارغب فى ظهور 6 اعمدة فقط فى الليست بوكس و هم غير مرتبين فى شيت الليدجر 3- اظهار رءوس الاعمده فى الليست بوكس ... مرفق ملف موضح به ... و لكم جزيل الشكر تجربة.xlsb

شكرا جزيلا استاذ سليم و كل عام و حضرتك طيب عيد مبارك عليك. تعبتك معايا بس للاسف دى مش بتجمع طبقا للتاريخ شكرا لحضرتك