Preencher a ultima coluna da linha do cliente localizado.

2024 - VBA & Macros

Post Recente por srobles 10 anos atrás

2 Posts

2 Usuários

0 Reactions

1,041 Visualizações

RSS

drbeil

(@drbeil)

Posts: 37

Eminent Member

Topic starter

Boa noite,

Duas dificuldades

1-) Quando eu localizo um dado que é a Data no formulário aparece sem o formato de data.
Ex.: Na tabela do excel está 30/05/2015 e no formulario aparece 415256

2-) Quando eu localizar um cliente quero preencher ultima coluna em branco de uma determinada range.

Exemplo:
Localizei a empresa Nani2 e quero preencher uma nova data de contato.
Na range de Z até AI.

Segue planilha em anexo.

Daniel Rodrigo

Postado : 24/05/2015 8:20 pm

srobles

(@srobles)

Posts: 231

Estimable Member

drbeil,

Vamos por partes :

1) Sobre a data

No código do formulário que obtém o valor de data, uma possibilidade de corrigir a exibição no campo, seria você utilizar SeuTextBox=Cells(ActiveCell.Row,"Coluna").Text, ou SeuTexBox=cDate(Cells(ActiveCell.Row,"Coluna").Value), ou ainda SeuTextBox=Format(Cells(ActiveCell.Row,"Coluna").Value),"dd/mm/yyyy").

2) Sobre preencher a última coluna em branco do registro selecionado

a) Vc terá de criar uma rotina que selecione a linha que contém o valor pesquisado;
b) Feito isso, basta vc adicionar o codigo abaixo antes do código que adiciona uma nova data para o registro atual

    Cells(ActiveCell.Row, "A").Select 'Seleciona a coluna A da linha atual
    Selection.End(xlToRight).Select 'Move o foco para a ultima coluna preenchida na linha atual
    ActiveCell.Offset(0, 1).Activate 'Move o foco para a proxima coluna
    If ActiveCell.Column <= 35 Then ' Se a coluna for menor ou igual a AI
        ' Insira seu código para efetuar o cadastro
    End If 'Fim do laço

Veja se isso te ajuda. Qualquer coisa, só chamar!

[]s

Espero ter ajudado.

Abs.

Saulo Robles

Postado : 08/06/2015 11:25 pm