Gravar dados(Userform) sequencial de uma ação
Enviado: 11 Mai 2016 às 16:42
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.
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