خطأ يحدث فى ترحيل بيانات اليوزر فورم

[إبراهيم ابوليله]

الاخوه الكرام

ارجو المساعده

يحدث خطأ عند ترحيل صف المجموع

حيث انه عند الضغط يتم ترحيل صف المجموع

مكان الصف الاول

ارجو المساعده

RECIP.rar

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم / إبراهيم أبو ليله

مرفق لكم النموذج

ونسأل الله عز وجل أن يكون به التعديل المطلوب

وتقبلوا منى وافر الإحترام والتقدير

RECIP.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / محمود_الشريف

بارك الله فيك

نشاط بالفعل متميز وملحوظ جدا

جعل الله كل اعمالك في ميزان حسناتك

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

بعد اذن اخونا الحبيب / محمود الشريف ... جزاه الله خيرا

ولاثراء الموضوع ... وعلي حسب فهمي للطلب

استبدل الكود الموجود بالفورم والخاص بالترحيل ... بالكود التالي

Private Sub CommandButton3_Click()
Sheet3.Select
 Lr = Sheet3.[A100000].End(xlUp).Row
 Range("A4:AA" & Lr).Clear
For c = 1 To 10
Cells(3, c).ClearFormats
Cells(3, c) = Me.Controls("Label" & c).Caption
Cells(3, c).HorizontalAlignment = xlCenter
Cells(3, c).Borders.LineStyle = xlContinuous
'Cells(3, c).Borders.Weight = xlMedium
Cells(3, c).Font.Name = "Agency FB"
Cells(3, c).Font.Size = 20
Cells(3, c).Font.Bold = False
Next
If ListBox1.ListCount = 0 Then Exit Sub
Sheet3.Range("A4").Resize(ListBox1.ListCount, 10).Value = ListBox1.List
Sheet3.Range("B4:B50").NumberFormat = "DD/MM/YYYY"
 
Lr1 = Sheet3.[A100000].End(xlUp).Row + 1
Sheet3.Cells(Lr1, 5).Value = UserForm4.Label12
Sheet3.Cells(Lr1, 6).Value = UserForm4.Label13
Sheet3.Cells(Lr1, 7).Value = UserForm4.Label14
Sheet3.Cells(Lr1, 8).Value = UserForm4.Label15
Sheet3.Cells(Lr1, 9).Value = UserForm4.Label16
Sheet3.Cells(Lr1, 10).Value = UserForm4.Label11

End Sub

واليك الملف به الكود بالمرفقات

وفي انتظار ردك

تقبل خالص تحياتي

 

 

RECIP-SAMA.rar

[محمود_الشريف]

ما شاء الله عليكم أخى فى الله

الأستاذ الكبير وأستاذى / حماده عمر

بارك الله فيكم

كود مختصر ورائع 

تقبل منى وافر الإحترام والتقدير

[حمادة عمر]

السلام عليكم

الاخ الحبيب / محمود_الشريف

بارك الله فيك

يعجبني جدا نشاطك الملحوظ

وحبك الدائم لمساعدة الجميع

زادك الله من فضله ومن علمه

تقبل خالص تحياتي

[محمود_الشريف]

 أخى فى الله

الأستاذ الكبير وأستاذى / حماده عمر

بارك الله فيكم

وزادكم الله من فضله ومن نعمه

دمتم فى حفظ الله وأمنه 

تقبل منى وافر الإحترام والتقدير

[إبراهيم ابوليله]

اخى حماده

مشكورا على الاهتمام

وعلى المعلومات الجميله التى تقدمها

لنا بطريه بسيطه

بارك الله فيك