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
Užitočné (3) | marjankaj, curro70, Marína |
Visual Basic