Feliz 2021 para todos.
Estou com um problema. Quero inserir dados numa tabela com a busca da última linha. Entretanto, não quero que essa busca seja feita na planilha, mas, somente, na tabela que está na planilha, pois há outras informações fora da tabela.
Uso este procedimento:
Código: Selecionar todos
Private Sub cmdInserir_Click()
Application.EnableEvents = False
LimparCelulasDispensaveis
Dim PesquisaLinhas As Long
Dim Data As Date
On Error Resume Next
Data = txtData
Dim Num As Double
On Error Resume Next
Num = txtValor
NovoCodigo
If Me.txtValor.Value <> "" And ValidaCamposFormulario = True Then
On Error Resume Next
PesquisaLinhas = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Select
'aqui começa a gravação de dados
Cells(PesquisaLinhas, 1) = Me.TxtCodigo 'Formatado no módulo mdTextForNumber
Cells(PesquisaLinhas, 2) = Me.CbbDocumento
Cells(PesquisaLinhas, 3) = Me.txtData
Alguém poderia me mostrar como fazer isso (achar a última linha preenchida na tabela para inserir um dado)?
Obrigado.