есть несколько TextBox которые должны заполняют столбец ячеек по нажатию на CommandButton, Необходимо что бы выдавалась ошибка если какой-либо Textbox не заполнен а так же все TextBox отчистились после нажатия на CommandButton А так же если столбец ячеек уже имеет значения, то необходимо занести значения в следующий столбец
Добрый день, есть такое трудное для меня дело.
есть несколько TextBox которые должны заполняют столбец ячеек по нажатию на CommandButton, Необходимо что бы выдавалась ошибка если какой-либо Textbox не заполнен а так же все TextBox отчистились после нажатия на CommandButton А так же если столбец ячеек уже имеет значения, то необходимо занести значения в следующий столбецSerg73
[sub] Private Sub CommandButton1_Click() Dim i As Long For i = 0 To 10 If Range("C6") = "" Then Range("C6") = TextBox3.Text Else Range("D6").Offset(0, i) = TextBox3.Text End If Next i end sub
[sub] Private Sub CommandButton1_Click() Dim i As Long For i = 0 To 10 If Range("C6") = "" Then Range("C6") = TextBox3.Text Else Range("D6").Offset(0, i) = TextBox3.Text End If Next i end subSerg73