mezo2018

الاخوة الاعزاء بعد التحية المبين ادناه عبارة عن كود لتعديل الصفوف من خلال الليست بكس وهو يعمل معي في حال وقفت على الشيت المطلوب تعديلة ليعمل على شيت (محدد) ضمن الكود Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets For Each F In ws.Range("a2:a11000") If F = TextBox1.Text Then ws.Select F.Select Exit For End If Next F Next ws ActiveCell.Value = TextBox1.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value ActiveCell.Offset(0, 6).Value = TextBox9.Value ActiveCell.Offset(0, 7).Value = TextBox10.Value ActiveCell.Offset(0, 8).Value = TextBox11.Value ActiveCell.Offset(0, 9).Value = TextBox12.Value ActiveCell.Offset(0, 10).Value = TextBox13.Value MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ" TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox13.Value = "" End Sub