omhamzh

السلام عليكم ورحمة الله الاخوة الافاضل لدى كود لعمل مشاهدة للطباعة احتاج اضافة للكود لعمل Printarea الاعمدة من A:g اما الصفوف اريد اذا زاد صف به كتابة يدخل اوتو الى منطقة الطباعة يعنى منطقة الطباعة تبقى زي الترحيل الى اخر صف فاذا زاد صف يدخل الى منطقة الطباعة مع الشكر وخالص الدعاء print area.xlsm

الله يرضى عنك وعن ال بيتك اجمعين هذا المطلوب واكثر والله اكثر الله خيرك وبارك الله فيك وبك اخى الف شكر لحضرتك حفظك ورعاك رب العالمين

ها هو اخى كل ما ابغاه باى طريقة مش مهم فورم او شيت انا عايزة اسرع طريقة ادخال وترحيل اختار الشيت للترحيل اكتب المراد ترحيله ثم يتم افراغ شيت main لاعادة الكتابة مرة اخرى لانى افضل طول اليوم اتنقل من شيت الى شيت الى شيت حوالى 19 شيت مع المعذرة والدعاء والله لك من قلبى ترحيل تست1.xlsb

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

ما هو الاعمدة الى انا اريد الترحيل اليها الى فى الشيت انا كاتبة اسمه محمد1 محمد 2 عملت كل مبلغ جنب العمود المراد ارحل اليه وياريت اختيار من كومبو بوكس واختار ترحيل فيترحل كل مبلغ الى العمود المسمى محمد1 او محمد 2 او محمد3 حسب من اختارت مع تقديرى ودعائى لسعادتك اخى

انا ضعيفة فى الاكسيل فورم السماح والمعذرة اما الاعمدة المراد الترحيل اليها سميتها محمد1 محمد 2 محمد 3 وهكذا مع التقدير لك استاذ عظيم من عظماء المنتدى الكبير

الاساتذة الافاضل المحترمين تحية وتقدير احتاج مساعدة فى كتابة كود لفورم الترحيل الذى صممته للمساعدة فى سرعة العمل لدى عدد25 شيت كلهم زى بعض بكل منهم عدد30 عمود ارحل بيانات اليهم صممت فوم لاقوم باختيار الشيت الذى اريد الترحيل اليه و واكتب المبلغ واختار العمود المراد الترحيل اليه فيترحل واترحم من التنقل من شيت الى شيت ومن عمود الى عمود كتبت بعض النتائج المرفغوب الحصول عليها وبعد كده احاول اعدل الكود للبيانات الكاملة برجاء التكرم بمساعدتى خالص الدعاء لكم من قلبى ترحيل تست1.xlsb

ظهر الخطأ مرة اخرى استاذ احمد مع الشكر اريد مثل الشرح ان يعمل مع كل البت 32 و64 اشكرك

ظهر رسالة الخطأ التالية Compile Error The code in this project must be updated for use on 64 bit systems. Pease review and update Declare Statemets and then mark them with the PtrSafe attribute.

الاساتذة الافاضل هذا الكود فورم يختفى بعد مدة من اعمال المرحوم الحسامى الله يرحمه وغفر له لا يعمل الا على ويندوز32 bit احتاج تعديله ليعمل على 64bit مع الشكر وخالص الدعاء تحويل64بيت.xlsb

اعزك الله استاذ سليم شكرااا

للرفع رفع الله قدركم

وجدت هذا الكود باليوتيوب عن طريق الكتابة بالسطر الاول يمكن عمل HEADER&FOOTER بهذا الكود الكتابة من اول الخلية A1 Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .RightHeader = Sheet1.Cells(1, 1).Value .CenterHeader = Sheet1.Cells(1, 2).Value .LeftHeader = Sheet1.Cells(1, 3).Value .RightFooter = Sheet1.Cells(1, 4).Value & Date .LeftFooter = Sheet1.Cells(1, 5).Value End With End Sub لعله يفيد اخواتى

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

اشكرك استاذ بن علية الكود لم يعمل للاسف تعبك مشكور اخى بارك الله فيك

الاخوة الافاضل قمت بتسجيل ماكرو لعمل Header,Footer احتاج تعديله ليعمل تلقائيا بحيث يوضع بالحدث thisworkbook لعمل header وايضا عمل Footer ادراج التاريخ فى Footer وعدد الاوراق بحيث تكون بكل الاوراق لان عملها يدويا مع كبر الملف امر مرهق بارك الله فيكم كل عام وانتم بخير Option Explicit Sub header() ' ' header Macro ' ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" & Chr(10) & "&""-,Bold""&12بسم الله الرحمن الرحيم" .RightHeader = "&""-,Bold""الحمد لله " .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&""-,Bold""&12فى حفظ الله" & Chr(10) & "&P" .RightFooter = "&D" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True End Sub header.xlsm

السلام عليكم ورحمة الله اخواتى لدى فورم به عدد 2 تكست بوكس كل منهم بها التاريخ اريد عند الضغط على زر مسح بالفورم يمسح كل البيانات المسجلة فى هذا التاريخ فى كل الصفحات ماعدا صفحة المنصرف-والباقى وnames مع الشكر والدعاء مسح بتاريخ.xlsm

مشكور اخى بارك الله فيك هدية مقبولة

استاذسليم حاصبيا ربنا يرضى عنك اللهم امين احتاج تسريع للكود حيث انه بطئ كما احتاج اذاكانت نتيجة البحث غير موجودة لا يضع #N/A بل يترك الخلية فارغة مشكووووور جدا جد اجد ا جدا VlK_Om_Ham.xlsm

Ali Mohamed Ali مشكور سيدى

الله يفتح عليك ويكرمك هو ده تمام تسلم ايدك وعينك اللهم امين حضرتك باشا والله تسلم الف الف الف شكر

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

السلام عليكم اساتذة المنتدى عندى شيتين اريد استدعاء المبلغ المطلوب من شيت1 الى شيت2 شرط عدم تغير ترتيب الاعمدة احتاج التنفيذ بمعادلة vlookup وكود استطيع التنفيذ بالمعادلات بس لازم اغير ترتيب الاعمدة وده غير مطلوب اتمنى مساعدتكم مع الشكر vlookUP.xlsx

اخوانى اهديكم كتاب يشرح اغلب دالات الاكسيل باللغة العربية وبالصور اعداد الاستاذ منذرسفان مع الشكر اتمنى ان يعجبكم ____-1-om-hamzh1.pdf

السادة الافاضل اساتذة الموقع لدى فورم به نتيجة احتاج تعديله ليدرج التاريخ بالخلية النشطة او المختارة ويختفى مع خالص الشكر الجزيل calander form.xlsm