abouelhassan

اتقدم اليك اخى خيماوي كووولبخالص الشكر وخالص الاحترام والتقدير بارك الله فيك اريد اخى خيماوي كووولاستخدام الكودين الموجودين بملفى كل ماريده استذى الغالى هو الملف my new repport اول شيتين فيه كل شيت به كود الاول ترحيل والثانى استدعاء ويعملان تمام التمام اريد التعديل عليهم بحيث يتم فصل الصفحتين فى ملف وباقى صفحات فى ملف اخر وانا تركت الملف my repport كما هو لترى الية عمل الكودين وعمل ملف اخر به باقى الصفحات هو ما اريده مغلق ويتم تنفيذ الكودين الموجودين بالملف my new repport عليه ستجد ان الصفحات الموجودة بالملف المطلوب الترحيل اليه وهو مغلق نفسها الموجودة بالملف my repport ما عدا صفحتين الكودين لو جربت الملف my repport ستجده بيرحل تمام ةبيستدعى تمام مااريده هو تنفيذ الكودين على الملف الاخر وهو مغلق اشكرك وزاذك الله من فضله واكرمك من نعمه Copy of My_New_Repport.xlsm new.xlsx

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

السلام عليكم ورحمة الله وبركاته رأيت موضوع مهم من الاستاذ العبقرى المحترم سليم حاصبيا واريد تنفيذه وانا فى نهاية عمرى بحب اتعلم لقد تجاوزت60 من عمرى بس انا احب اتعلم لو سمحتولى الاساتذة العلماء موضوع الاستيراد من ملف مغلق لدى ملف به كودين الاول تفضل الاستاذ سليم بكتابة اكواده الى وهو بميزان حسناته ان شاء الله وهو كود استدعاء الكود الاخر قمت بتحميله من المنتدى كان سؤال احد الاخوة وهو من كتابة الاستاذ ياسر وان شاء الله بميزان حسناته الكودين والشيتات التى يتم الترحيل اليها والاستدعاء منها بالملف المسمى My_New_Repport احتاج الى ان يكون الكودين بالشيتين transfer-Report_Youmi بملف وياريت ياريت لو حبيت اضيف اكواد تانى لهذا الملف تعليمى ما هى الاضافات التى اضفها الى الكود لكى يعمل معى وباقى الشيتات بملف اخر ومغلق وان اقوم بفتح ملف الموجود به الشيتان فقط لا افتح الملف الاخر الذى به باقى الشيتات التى تتم الترحيل والاستيراد منها واعمل عليه فقط ويتم التنفيذ على الاخر وهو مغلق اعتذر للاطالة بس اتمنى شرح كيف انفذ الموضوع هذا الملف my new به كودين الاول ترحيل الى صفحات العمل بالملف. والكود الثانى استدعاء بيانات من صفحات العمل اريد بعد اذنكم فصل الشيتان الذان بهما الكودين فى ملف وباقى الشيتات فى ملف وأقوم بفتح ملف الذى تم فصل الكودين فيه وارحل واستدعى من وإلى الملف الآخر وهو مغلق مع الشكر والتقدير والاحترام كى لا ارهقكم بالاسئلة اساتذتى الافاضل الكرام شكر وتقدير واحترام من اخيكم My_New_Repport.xlsm ملف مطلوب ترحيل اليه والاستدعاء من وهو مغلق.xlsx

البرنامج يعمل اسم المستخدم- الدعم الفنى الباس ورد (1456)

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

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

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

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

السلام عليكم اساتذة المنتدى كود اخفاء الصفوف التى تحوى صفر هذا من تنفيذ الاستاذ سليم حاصبيا بارك الله فيه ورزقه كل الخير احتاج لتغير بالكود ليشمل الصفوف من 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

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

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

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

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