Заставить это работать

[levohotnik]

Private Sub CommandButton1_Click()
 Dim i As Variant
 Dim s, e, n As String
   
   s = Range("A1")
   i = 1
     While s <> 0
       e = ("A" + i)
       s = Range(e)
       i = i + 1
     Wend
   Range("B" + e) = Me.TextBox1.Text
   Range("C" + e) = Me.TextBox2.Text
   Range("D" + e) = Me.TextBox3.Text
Unload Me
End Sub

[Stilet]

Wow!...
Это нужно расстянуть на листе контролы кнопки и три Эдита, а так же судя по всему заполнить чем-то таблицу...
После чего вставить этот код в клик кнопки.

[levohotnik]

Сообщение от Stilet

Wow!...
Это нужно расстянуть на листе контролы кнопки и три Эдита, а так же судя по всему заполнить чем-то таблицу...
После чего вставить этот код в клик кнопки.

Хаха! ниче не понял, чесна!
Задача вообщем следующая:
1. При нажатии кнопки на листе открыть форму
2. В форме вводим несколько значений в текстбоксы и жмем "ок"
3. Код находит (сверху -> вниз) самую первую пустую строку в таблице и вводит значение тексбокс 1 в первую ячейку данной строки, текстбокс2 во вторую яч этой строки и т.д.
4. И если код еще будет красить ячейки данной строки в цвета соответствующие ячейкам выше, то будет просто супер!))

[alyon_ka]

можно сделать программку попроще

Private Sub CommandButton1_Click()
' находим количество "заполненных строк" в таблице
ks = Cells(1, 1).CurrentRegion.Rows.Count
'Записываем в следующую строку с 1 по 3 столбец значения из текстовых полей
Cells(ks + 1, 1) = TextBox1.Text
Cells(ks + 1, 2) = TextBox2.Text
Cells(ks + 1, 3) = TextBox3.Text
End Sub

[levohotnik]

Сообщение от alyon_ka

можно сделать программку попроще

Private Sub CommandButton1_Click()
' находим количество "заполненных строк" в таблице
ks = Cells(1, 1).CurrentRegion.Rows.Count
'Записываем в следующую строку с 1 по 3 столбец значения из текстовых полей
Cells(ks + 1, 1) = TextBox1.Text
Cells(ks + 1, 2) = TextBox2.Text
Cells(ks + 1, 3) = TextBox3.Text
End Sub

спасибо! супер!)