М'че то друг не остана в тоя клуб. ;о)

Ок, нека ти демонстрирам една кратка техника, как да търсиш следващия празен ред, без много сложни алгоритми...

Private Sub CommandButton1_Click()



    'дефинира променлива за брояч

    Dim Row As Long

    

    'установява брояча на първия ред

    Row = 1

    

    Do Until Worksheets("Sheet1").Range("A" & Row) = ""

        'започва да увеличава брояча, докато реда,

        'който е достигнал е празен

        Row = Row + 1

    Loop

    

    'записва стойността в този празен ред

    Worksheets("Sheet1").Range("A" & Row) = TextBox1.Text

    

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите