Este fórum está sendo desativado

[Kevim2013]

Em um exemplo. Eu teria uma planilha com um userform Nele possui uma textbox "txtboxnome" ao clicar em um botão com nome "btsalvar" ele salva na ultima celula sem texto da coluna A.

Que códigos eu usaria nesse "btsalvar" neste caso?

[Kledison]

Boa noite,

seria assim:

Código: Selecionar todos

Private Sub cmdSALVAR_Click()
    ActiveWorkbook.Sheets("Plan1").Activate
    Range("A1").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = txtNome.Value
        
    Range("A1").Select
    
   txtNome.Value = ""
    
End Sub

Att