وليد ذكي

السلام عليكم

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

توضيح :

بالشيت المرفق محتاج ارحل قسط كل عميل شهريا باخر الصف الخاص به كل شهر حتي انتهاء الاقساط

شكرا لحضراتكم مقدما

العقود.xlsx

بارك الله فيك أخي أبو عيد وشكرا جزيلا علي مساعدتك

ممكن شرح للكود ده بعد اذنكم .

 RR = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A" & RR & ":" & "s" & RR).AutoFill Destination:= _
.Range("A" & RR & ":" & "s" & RR + 1), Type:=xlFillDefault
.Range("A" & RR + 1 & ":" & "k" & RR + 1) = ""

 RowIndex = .Cells(Rows.Count, "A").End(xlUp).Row
If RowIndex < 11 Then
RowIndex = 11
 

رحمك الله وغفر لك 

السلام عليكم ورحمة الله

لو امكن التعديل علي الملف المرفق او برنامج جاهز يؤدي نفس الغرض

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

وشكرا مقدما لخبراء الاكسيل علي مساعدتهم الدائمة 

السيارات.rar

منذ ساعه, سليم حاصبيا said:

كيف تريد ان ترحل بيانات من جدول فارغ؟؟؟؟؟

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

الشيت بعد التعديل بالمرفق

اكسيل المعرض.zip

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

اكسيل المعرض.zip