Доброго времени соток.
Весь мозг взорвал. Не вижу - в чём проблема?
Почему при нажатии на кнопку ничего не происходит?
Спасибо.
Весь мозг взорвал. Не вижу - в чём проблема?
Код |
---|
Private Sub CommandButton4_Click() ' внесение изменений в бланки Dim myTable As ListObject, myTableA4 As ListObject Dim x As Long Dim n, myArray n = GeneralForm1.ComboBox1.Value Set myTable = Worksheets("Накладная").ListObjects("Nakladnaya") Set myTableA4 = Worksheets("Накладная").ListObjects("NakladnayaA4") myArray = myTable.DataBodyRange For x = LBound(myArray) To UBound(myArray) If n = myArray(x, 2) Then Call SheetActivate myArray(x, 2) = GeneralForm1.TextBox3.Value myArray(x, 3) = GeneralForm1.TextBox2.Value myArray(x, 4) = GeneralForm1.TextBox1.Value End If Next x End Sub |
Спасибо.
Кто хочет — ищет способы, кто не хочет — причины (Сократ)