Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Última linha na tabela, não na planilha.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Última linha na tabela, não na planilha.

Mensagem por costaribeiro »

Olá, pessoal!
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
Contudo, como a planilha tem outras informações, fora da tabela, o valor inserido fica fora da tabela, pois será a última linha preenchida da planilha, não da tabela. Não sei se fui claro.

Alguém poderia me mostrar como fazer isso (achar a última linha preenchida na tabela para inserir um dado)?

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder