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

Inserir dado na última linha vazia: linhas delimitadas. [RESOLVIDO]

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

Inserir dado na última linha vazia: linhas delimitadas. [RESOLVIDO]

Mensagem por costaribeiro »

:geek: Olá, pessoal!

Boa tarde.

Tentei, não consegui; procurei, não achei.

Como inserir dados de cadastro dentro de um limite de linhas? Por exemplo: inserir dados nas 3 primeiras colunas, isto é, entre "A3:C20" (numa planilha que tem 6 colunas "A:F"), ou seja, o código vai procurar a primeira linha vazia dentro desse limite "A3:C20".

Estou trabalhando nesse código, só que ele procura a primeira vazia, não dentro de uma certa quantidade de linhas.

Código: Selecionar todos

Application.EnableEvents = False
    
    Dim Totalregistro As Long
    
    Dim data As Date
    On Error Resume Next
    data = txtData
    
    Dim num As Double
    On Error Resume Next
    num = txtValor
    
    On Error Resume Next
    
    Totalregistro = Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    
    Cells(Totalregistro, 2) = cbbDescritor
    Cells(Totalregistro, 3) = data
    Cells(Totalregistro, 5) = num
    
    'comandos para limpar as caixas de texto
    txtData = ""
    cbbDescritor = ""
    txtValor = ""
      
    txtData.SetFocus
    Call TextoParaNumerico
    Cells(2, 5).Select
      
    Me.lblResultado.Caption = "Inserido com sucesso!"
    TravaCampos
    Application.EnableEvents = True
End Sub
Quem puder dar uma forcinha, ficarei bastante grato.

Desde já, agradeço.
Editado pela última vez por costaribeiro em Sex Nov 23, 2018 9:17 am, em um total de 1 vez.


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.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Inserir dado na última linha vazia: linhas delimitadas.

Mensagem por Tov Elen Shau »

Colega

Range("A20").End(xlUp).Offset(1, 0).Select 'Busca a primeira célula vazia Entre A1 a A20

Veja se resolve, caso contrário nos avise. Nesse caso ele faz uma busca de A20 indo uma célula pra cima até encontrar uma célula vazia.


Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Re: Inserir dado na última linha vazia: linhas delimitadas.

Mensagem por costaribeiro »

Amigão,
Obrigado pela ajuda, mas não deu certo.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Inserir dado na última linha vazia: linhas delimitadas.

Mensagem por Tov Elen Shau »

Colega

Tem como postar seu arquivo, mesmo sem dados?


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.


Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Re: Inserir dado na última linha vazia: linhas delimitadas.

Mensagem por costaribeiro »

Tov,
Bom dia.
Deus certo.
Valeu, 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