إستدعاء البيانات من ورقة أخرى

[Akram Galal]

السادة الأفاضل / أعضاء المنتدى العظيم

أرجو منكم إستدعاء البيانات الموجودة في ورقة رقم 3 عند الضغط علي زر عرض الموجود في الفورمة في ورقة رقم 1 ولكم منا كل الإحترام والتقدير .

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

إستدعاء البيانات.rar

[عبدالله باقشير]

السلام عليكم

غير كود الزر عرض CommandButton4

بهذا

Private Sub CommandButton4_Click()

III = 4

Do Until ورقة3.Cells(III, "a").Text = ""

If Me.ComboBox1.Text = ورقة3.Cells(III, "a").Text Then

With ورقة3.Cells(III, "a")

Me.TextBox2 = .Offset(0, 1).Text

Me.TextBox3 = .Offset(0, 2).Text

Me.TextBox4 = .Offset(0, 3).Text

Me.TextBox5 = .Offset(0, 4).Text

End With


Exit Sub

End If

III = III + 1

Loop

MsgBox ("!!! عفوا .. اختر اسما الذى تبحث عنه")

Me.ComboBox1.SetFocus


End Sub

[Akram Galal]

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

وزادك من فضله