curro70
04.12.10,09:56
Čaute poradcovia.
Pozná niekto kód na TextBox?
Myslím tým, že keď napíšem nejaké slovo do TextBox a stlačím tlačítko CommandButton tak mi z TextBox zmizne a prepne do inej bunky napr. A1.
Po zadaní druhého slova do A2, tretieho slova A3 atď...
Ak niekto vie veľmi pekne ďakujem, súrne by som to potreboval!
Pozná niekto kód na TextBox?
Myslím tým, že keď napíšem nejaké slovo do TextBox a stlačím tlačítko CommandButton tak mi z TextBox zmizne a prepne do inej bunky napr. A1.
Po zadaní druhého slova do A2, tretieho slova A3 atď...
Ak niekto vie veľmi pekne ďakujem, súrne by som to potreboval!
PaloPa
04.12.10,11:54
Páči sa.
Private Sub CommandButton1_Click()
Dim a As Range
Set a = Range("A65000").End(xlUp)
If a.Row <> 1 Or a.Text <> "" Then
Set a = a.Offset(1, 0)
End If
a.Value = Me.TextBox1.Value
Me.TextBox1.Value = ""
End Sub
Ako to funguje, viď v prílohe.
P.
Private Sub CommandButton1_Click()
Dim a As Range
Set a = Range("A65000").End(xlUp)
If a.Row <> 1 Or a.Text <> "" Then
Set a = a.Offset(1, 0)
End If
a.Value = Me.TextBox1.Value
Me.TextBox1.Value = ""
End Sub
Ako to funguje, viď v prílohe.
P.