عرض بيانات جدول في اليوزر فورم

[علي عبد المنعم]

المطلوب هو عند عرض اليورز فورم يتم عرض جميع بيانات الجدول في اليوزر فورم

استخلاص البيانات.xlsm

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

هذا الماكرو ربما ينفع  (الملف مرفق)

Private Sub CommandButton1_Click()
Dim My_Rg As Range
Set My_Rg = Sheets("ورقة1").Range("c5:j24")
Dim x%: x = 1
Dim i%, j%
For j = 1 To My_Rg.Columns.Count
 For i = 1 To My_Rg.Rows.Count
        Me.Controls("TextBox" & x).Value = My_Rg.Cells(i, j).Value
   x = x + 1
 Next
Next
End Sub

 

data To user.xlsm

[Ali Mohamed Ali]

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

[وجيه شرف الدين]

الله عليك استاذ سليم رائع جزاكم الله خير

[علي عبد المنعم]

كل الشكر والتقدير للاستاذ سليم