Private Sub CommandButton1_Click()
'Application.Worksheets("A").Activate
NextRow = Application.WorksheetFunction.CountA(Range("A!A:A")) + 2
Cells(NextRow, 1) = TextBox1.Text
End Sub
С этим кодом все окей он работает, т.е. заполняет все яйчейки начинайя с А2 и до Аn-ое. Но вот в чем проблема, если случайно пользователь очистит скажем яйчейку А10, а потом через форму начнет заполнять А10, А11 и ... Аn, то код все время пепрезаполняет айчейку А11 а А12...Аnникак не заполняются как быть? Спасибо1