TextBox1=Active cells...

Как стойността в TextBox1 при натискане на CommandButon1 активната клетка да приеме тази стойност?

Посредством OnClick събитието на командбутона

Geocaching в България

Private Sub CommandButton1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim i As Single
Dim j As Single
Dim k As Single
Dim l As Single
Dim Row As Long
Dim g As Integer

a = CStr(TextBox1.Text)
b = CStr(TextBox3.Text)
c = CStr(TextBox5.Text)
i = CStr(TextBox2.Text)
j = CStr(TextBox4.Text)
k = CStr(TextBox6.Text)
TextBox7.Text = d
TextBox7.Text = a + b + c
TextBox8.Text = l
TextBox8.Text = i + j + k


Row = 2


Do Until Worksheets("list1").Range("B" & Row) = ""
Row = Row + 1
Loop



Worksheets("list1").Range("B" & Row) = TextBox1.Text

Worksheets("list1").Range("C" & Row) = TextBox2.Text
Worksheets("list1").Range("B" & Row + 1) = TextBox3.Text
Worksheets("list1").Range("C" & Row + 1) = TextBox4.Text
Worksheets("list1").Range("B" & Row + 2) = TextBox5.Text
Worksheets("list1").Range("C" & Row + 2) = TextBox6.Text
Worksheets("list1").Range("A" & Row) = TextBox9.Text
MsgBox "zapisano !", vbOKOnly
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub



В случая трябва стойността от TextBox9.Text да се запише в активната клетка . Ето областта “B23:AF23”,тоест първата активна клетка ще е "B23" след това "B24" и така нататък...

или аз не мога да схвана, или нещо не формулираш правилно въпроса

1 от какво ти се активира клетката???
2 в темата пишеш TextBox1=Active cells, а доколкото разбирам искаш
ActiveCell = TextBox9

Здр!
Значи, като кликна върху клетка В23 се активира userform1. Върху него съм ситуирал няколко текстбокса.
Въпроса ми е стойността която отпечата в textbox9.text примерно числото 20, като натисна командбутон1 числото 20 да се отпечата в клетка В23.
Благодаря за вниманието !

Готово , реших си проблема :) :) :)
ActiveCell.Value = TextBox9.Text