moaaz2020

انا جربت الملف بالتعديل المذكر واشتغل

اخي الكريم جزاكح الله خير على البرنامج والمهعود الجبار اواجه مشكله عند فتح الجهاز على وندوز 10 64 http://مركز الخليج

اخي الكريم خبرتي ضعيفه لكن ساعطيك كود ترحيل من خلايا مختلفه وجدته في المنتدى حاولت يمكن ان اكتب اسم الصفحه المراد الترحيل بها بدل من Sheets(1) وفشلت انمنى من اصحاب الخبره التعديل فيه Dim EndRow As Long For I = 2 To 2 EndRow = Sheets(I).Range("B1").CurrentRegion.Rows.Count Sheets(I).Cells(EndRow + 1, 1).Value = Sheets(1).Cells(2, 5).Value Sheets(I).Cells(EndRow + 1, 2).Value = Sheets(1).Cells(2, 3).Value Sheets(I).Cells(EndRow + 1, 3).Value = Sheets(1).Cells(4, 3).Value Sheets(I).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(6, 3).Value Sheets(I).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(8, 3).Value Sheets(I).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(7, 8).Value Sheets(I).Cells(EndRow + 1, 6).Value = Sheets(1).Cells(10, 2).Value Next I وهذا شيت الطباعه الذي استخدمه بعد ان احدد نطاق الطباعه مسبقا Sheets("الفاتوره").PrintOut Copies:=1, Collate:=True Application.ScreenUpdating = False اتمنى ان تستفيد منه

اخي الكريم بامكانك الاستفاده من الملف المرفق ينقصني شيء لم استطع عمله هي اخطار الملف بعدد المبالغ الموجوده من كل فئة في بدايه العمل مثلا فئه 500 توجد منها 6 فئه 200 توجدي منها 10 للامانه الكودات اخذتها من مشاركه في المنتدى لكن لا استطيع تذكر صاحب العمل الاصلي الحاسبه NEO.xlsm

لك جزيل الشكر .. نفس الفكره اللي في بالي .. لو جيت اضيف فورمه الادخال في صفحه اخرى مثلا صفحه بدايه استخدم نفس الكودات .؟ لك جزيل الشكر مره اخرى

السلام عليكم ورحمه الله وبركاته حاولت اكثر من مره اطبق الشرح الموجود في المنتدى لعمل فورمه ادخال بيانات لكنني افشل في كل مره في النقل الملف موجود في المرفقات ارجو المساعده فيه ولكم جزيل الشكر forma.rar