abouelhassan

ربنا يبارك لك استاذ طارق

الف شكر تمام اتقدم لحضرتك بخالص الشكر والدعاء والله جعله الله من نصيبك يارب بارك الله فيك كل احترامى وتقديرى اخيك

شكر وتقدير وخالص الدعاء من اخيك الكود ممتاز الف شكر بارك الله فيك وزادك من خيره ونعمه اخيك باحترام

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

السلام عليكم اساتذة المنتدى كود اخفاء الصفوف التى تحوى صفر هذا من تنفيذ الاستاذ سليم حاصبيا بارك الله فيه ورزقه كل الخير احتاج لتغير بالكود ليشمل الصفوف من b5:I50 بحيث لن الصف بدأ من B5 :I5 اذا كان كله اصفار يختفى حتى لايظهر فى الطباعة وهكذا لباقى الصفوف Sub hid_rows() Dim Hide_range As Range Dim i% i = 2 Range("A1").CurrentRegion.EntireRow.Hidden = False Do Until Cells(i, 1) = vbNullString If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then If Hide_range Is Nothing Then Set Hide_range = Cells(i, 1) Else Set Hide_range = Union(Hide_range, Cells(i, 1)) End If End If i = i + 1 Loop If Not Hide_range Is Nothing Then End If End Sub '+++++++++++++++++ Sub show_all_rows() Range("A1").CurrentRegion.EntireRow.Hidden = False Range("b5:j50").Select End Sub شكر وتقدير واحترام من اخيكم اخفاء الصفوف الصفرية.xlsm

استاذ على حفظك الله بعد اذنك يمكن استخدام حدث change بدون زر فى حدث الصفحة ليصبح الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets sh.Columns.AutoFit sh.Rows.AutoFit Next sh End Sub مع الشكر

شكر وتقدير واحترام الاستاذ الكبير سليم والاستاذ الفاضل وجيه

بارك الله فيك استاذ اجمد ربنا يحفظك اللهم امين

السادة الاخوة اصدقائى الافاضل كل الاحترام من القلب لدى عدد 7 شيتس بكل منها عدد 19 عامود تحمل نفس الاسم اريد كود ترحيل المبلغ الى الشيت الذى امامه وكذلك اسم الشيت قمت بعمل قائمة منسدلة لاختيار اسم العمود متها واسم الشيت المراد الترحيل المبلغ اليه بدأ من الشيت ص ص والشرح بالملف كل الشكر والتقدير والاحترام من اخيكم ترحيل2.xlsm

رائع استاذنا الفاضل بارك الله فيك

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ ويتم تغير هذا الجزء من الكود Private Sub BT_SAVE_Click() Dim old_num Set sh = Sheets("Sheet1") last = sh.Cells(Rows.Count, 1).End(3).Row If last = 1 Then Exit Sub sh.Range("A2:G" & last).Interior.ColorIndex = 35 If Me.T_NewMASROUF.Value = "" Then MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _ vbMsgBoxRtlReading Exit Sub End If old_num = LB_Kadim.Caption With Me.ListBox1 If .ListIndex < 2 Then Exit Sub x = .List(.ListIndex, 7) sh.Cells(x, 7) = Me.T_NewMASROUF.Value .List(.ListIndex, 0) = Me.T_NewMASROUF.Value End With Me.ListBox1.ListIndex = -1 Me.LB_Kadim.Caption = old_num sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40 Application.Goto sh.Cells(x, 1) Me.T_CODE = "" Me.T_KOUMI = "" Me.LB_Kadim = "" Me.T_NewMASROUF = "" End Sub اخر اربع اسطر مسئولين عن مسح الحقول سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله احترامى لشخصك الكريم

تسلم يمينك نصركم الله واعزكم اللهم امين

كل الشكر والتقدير والاحترام من القلب

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

جرب هذا data Validation.xlsx

تسلم ايدك استاذنا الفاضل سليم اللهم انصر لبنان اللهم امين

يمكنك استخدام هذا الكود اخى Sub towmacro() Application.ScreenUpdating = False PrintAllFirstPage Export_PDF_in_OneAll Application.ScreenUpdating = True MsgBox "Done" End Sub

زادك الله علما استاذ سليم تحف ودرر وروائع وكل حاجة حلوة تسلم ايدك

مشكور استاذنا

تسلم ايدك استاذنا

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

هذا الموضوع طرحه الاستاذ شوقى ربيعشوقي ربيع فى هذا الموضوع لدى ملف ليس به فورم واريد الاستفادة من هذا الموضوع بان يقوم الاكسيس كمخزن معلومات والاكسيل كما هو ممكن شرح لو امكن انا اضفت الاكواد لملفى ولم يحدث شئ مع الشكر والتقدير ex&acc.rar

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

حاضر استاذى سأقوم برفع كل الاكواد بارك الله فيك

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