طلب إنشاء فورم فيه زر ترحيل لشيت وحذف آخر سطر من الشيت مع زر تلوين آخر سطر مضاف

[Ahmtal87]

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

تسجيل.xlsx

[أحمد يوسف]

كيف تقوم برفع ملف خالى من البيانات على الأقل  يكون به حتى بيانات 10 صفوف وعليك بعمل الفورم واذا تعثرت فى شيء فعليك برفعه هنا

جزاك الله كل خير

 

[سليم حاصبيا]

جرب هذا الملف (لا حاجة لليوزرفورم )

الكود

Option Explicit
Sub tranfere_data()
Dim Source As Worksheet: Set Source = Sheets("Sheet1")
Dim Trg As Worksheet: Set Trg = Sheets("Sheet2")
Dim Last_Row%, Last_Col%
Dim Rg_To_Copy
Dim My_place%
Set Rg_To_Copy = Source.Range("a1").CurrentRegion
Last_Row = Rg_To_Copy.Rows.Count
Last_Col = Rg_To_Copy.Columns.Count
Set Rg_To_Copy = Rg_To_Copy.Offset(1).Resize(Last_Row - 1)
My_place = Trg.Cells(Rows.Count, 1).End(3).Row + 1
If My_place <> 2 Then My_place = My_place + 1
 Trg.Cells(My_place, 1).Resize(Last_Row - 1, Last_Col).Value = _
 Rg_To_Copy.Value
 Trg.Cells(My_place, 1).Offset(, Last_Col + 1) = Time
 Trg.Cells(My_place, 1).Offset(, Last_Col + 2) = Date
End Sub

الملف مرفق

salim_tasjil.xlsm

[Ahmtal87]

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

تم تعديل نوفمبر 11, 2018 بواسطه Ahmtal87

[Ali Mohamed Ali]

ممتاز استاذ سليم ابدعت فأحسنت كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك