كود بحث

[محسن حسن]

بعد التحية

مطلوب كود الليست بوكس بحص في جميع الشيتات عن طريق تكست بوكس

[حسين مامون]

كان عليك البحث في المنتدى اولا

اليك الموضوع التالي فيه ضالتك

 

[Alaaq3]

كود مختصر للتعديل من برمجتي

 () Private Sub CommandButton1_Click
For j = 1 To 55
               Sheets(ListBox1.List(i, 1)).Cells(r, j) = Controls("TextBox" & j).Text
        Next j
     End Sub