ارجوكم ما هو الخطأ فى هذا الكود البسيط لعرض البيانات

[انسان27]

بعد اذنكم :

 

    1-  ما هوا الخطاء فى الكود عند الضغط على عرض البيانات فى اليوزرفورم .

    2- اريد كود تسلسل تلقائى عند ترحيل البيانات فيظهر المسلسل تلقائى فى خانة المسلسل فى اليوزرفورم .

 

وشكرا للمساعدة

كود ترحيل من يوزر فورم دفعة واحدة الى جدول 3.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / انسان27

بارك الله فيك

استبدل الكود الخاص بالعرض بهذا الكود

Private Sub CommandButton2_Click()
Set sh12 = Sheets("1")

lr = sh12.[A65000].End(xlUp).Row
For Each cl In sh12.Range("A5:B" & lr)

If (Val(Me.TextBox1)) = cl Then

Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)

End If
Next

End Sub

والكود المطلوب لعمل تسلسل تلقائي

استخدم الكود التالي في حدث الفورم

Private Sub UserForm_Activate()
Sheets("1").Select
SS = Cells(Rows.Count, 1).End(xlUp).Row
TextBox1 = Val(Cells(SS, 1)) + 1
End Sub

واليك المرفقات

ارجو ان يفي بطلبك

 

 

كود ترحيل من يوزر فورم دفعة واحدة الى جدول -SAMA.rar

[انسان27]

الله يجزاك كل خير .. اخى الكريم  على  المساعدة السريعــــــــــــة 

اعانك الله دائما على فعل الخيرات وتقبل منك .. امين

[حمادة عمر]

السلام عليكم

الاخ الكريم / انسان27

بارك الله فيك

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

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

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

اخى حماده بارك الله فيك
ولكنى حاولت سابقا الاستفاده من الكود

كالاتى

Private Sub TextBox1_Change()
Set sh12 = Sheets("1")

lr = sh12.[A65000].End(xlUp).Row
For Each cl In sh12.Range("A5:B" & lr)
Exit Sub
If (Val(Me.TextBox1)) = cl Then
Me.TextBox2 = cl.Offset(0, 1)
Me.TextBox3 = cl.Offset(0, 2)
Me.TextBox4 = cl.Offset(0, 3)
Me.TextBox5 = cl.Offset(0, 4)
Me.TextBox6 = cl.Offset(0, 5)
Me.TextBox7 = cl.Offset(0, 6)
Me.TextBox8 = cl.Offset(0, 7)
Me.TextBox9 = cl.Offset(0, 8)
Me.TextBox10 = cl.Offset(0, 9)

End If
End If
Next

End Sub

 وواجهتنى مشكله حاولت حلها ولم استطع
وهى ان لوقيمه التيكست بوكس لاتساوى
قيمة المتغيرc1
يتم تفريغ جميع التيكست بوكس من البيانات
فكيف يتم عمل ذلك