Este fórum está sendo desativado

[Kevim2013]

No meu caso preciso gravar o valor do TextBoxDate na ultima celula "vazia" para gravar na linha inferior a ultima célula) da planilha na coluna "B" de "RegBackup"
E
TextBoxMes na ultima celula "vazia" da planilha na coluna "C" de "RegBackup"

Ao clicar no "btLimpeza"(Meu botão que salvará estes dados) salve estas informações na planilha.

Usei para vincular variavel ao textbox

vData = UserForm1.TextBoxDate.Text
vMes = UserForm1.TextBoxMes.Text


Este botão possui atualmente este código abaixo.

Código: Selecionar todos

Private Sub btLimpeza_Click()

'variaveis que utilizará
Dim vData As String
Dim vMes As String
Dim UB As Range ' Ultima célula vazia da coluna B
Dim UC As Range 'Ultima célula vazia da coluna C

vData = UserForm1.TextBoxDate.Text
vMes = UserForm1.TextBoxMes.Text

If vPerm = True And vNome <> "" And vCargo <> ""  Then
'//Aqui fica meu código de limpeza geral(Não vou citala-la nessa pergunta pois é mais de 200linhas, tabém resumi as variaveis senão não chegaria a uma forma organizada de explicar oque quero)
End If

'// Como eu faria agora depois de executar minha ação para pegar a informação vData e vMes e grava-las na ultima célula VAZIA( Ultima celula apenas gravaria em cima da ultima opção... é para dar um .offset(1, 0)) da ultima célula e grava-lo lá).


End Sub

[Kevim2013]

Tentei varias vezes mas nunca conseguia fazer isto de forma sequencial.... por favor me ajudem.