If Not Rng Is Nothing Then
Sheets("left").[A10000].End(xlUp).Offset(1, 0).Resize(1, 27).Value = Rng.Value
Rng.Delete xlUp
Me.TextBox1 = ""
End If
Set sh3 = Sheets("left")
irow = Application.Match(Val(TextBox1.Value), Sheets("left").Range("a1:a15000"), 0)
sh3.Cells(irow, 28) = ComboBox1.Value
sh3.Cells(irow, 29) = TextBox28.Value
End Sub
ما هو الخطأ فى هذا الكود