Ir ao conteúdo

Posts recomendados

Postado

Boa noite amigos do Clube do Hardware.

 

Peço aos amigos ajuda para incrementar uma planilha que estou fazendo para meus clientes.

Tenho na minha planilha uma tabela da coluna V a coluna AB. Tenho um Userform com a seguinte formação:

 

Userform3;

TXTleitura - Para inserir leitura;

TXTdata - Para inserir a data da próxima leitura;

BTNOK - Botão de OK;

BTNcancelar - Botão de cancelar.

 

A função do Userform acima citado:

 

Quando executado preenchesse a primeira linha vazia da coluna Z e AB respectivamente e o cursor parasse na primeira linha vazia da coluna i

 

De já agradeço a quem possa me ajudar

 

Paulo Cézar

 

  • Solução
Postado

@paulocezarpicos Deixei a seleção da coluna I no botão, veja se assim resolve,

 

Private Sub BTNOK_Click()
    Dim Acumulado   As Range
    Dim Leitura     As Range
    
    Set Acumulado = [Z8]
    
    If Acumulado.Value <> "" Then
        Set Acumulado = Acumulado(0).End(xlDown)(2)
    End If
    
    Acumulado.Value = TXTleitura.Value
    Acumulado(, 3).Value = TXTdata.Value
    
    Set Leitura = [I6]
    
    If Leitura.Value <> "" Then
        Set Leitura = Leitura(0).End(xlDown)(2)
    End If
    
    Leitura.Select
End Sub

 

  • Curtir 1

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!