أساتذتي الفضلاء
لو تكرمتم لي بشرح هذا الكود
Lr = Cells(Rows.Count, "A").End(xlUp).Row
If Me.ComboBox1.Value = "" Then: Exit Sub
If Me.ComboBox1.Value = "جدول1" Then
For r = 1 To 9
Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r)
Next
End If
LR1 = Cells(Rows.Count, "J").End(xlUp).Row
If Me.ComboBox1.Value = "جدول2" Then
For rr = 1 To 9
Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR2 = Cells(Rows.Count, "S").End(xlUp).Row
If Me.ComboBox1.Value = "جدول3" Then
For rr = 1 To 9
Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR3 = Cells(Rows.Count, "AB").End(xlUp).Row
If Me.ComboBox1.Value = "جدول4" Then
For rr = 1 To 9
Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr)
Next
End If
ComboBox1_Change