Notifications
Clear all

Ultimo valor de celula

4 Posts
2 Usuários
0 Reactions
1,092 Visualizações
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Preencher o ultimo valor de uma determinada coluna em um textbox

 
Postado : 29/08/2014 8:34 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você está perguntando se é possível fazer isso? Sim é.
Você está afirmando que conseguiu fazer isso? Que bom!
Você está perguntando como faz isso? Neste caso precisamos de mais detalhes, solicitados abaixo.

Acredito que entendi sua frase, mas só vou responder quando vc elaborar melhor o pedido. Com educação, humildade e até reconhecimento pelo trabalho gratuito que é feito aqui pelos melhores especialistas no assunto.

Começando com um "Por favor"... Em seguida detalhando mais, algo do tipo, é uma coluna específica? é qualquer coluna? como o formulário saberá qual é a coluna? essa coluna tem valores, mas há espaços em branco no meio dos valores? Qual o nome do textbox no seu código? Em que momento (ou evento) do formulário, esta caixa de texto é preenchida? Na abertura? Ao clicar em um botão? Ao mudar conteúdo de uma célula? Ah, essa textbox está em formulário? está em planilha? É do tipo ActiveX ou é do tipo Form?

Entendeu pq que é bom detalhar e ajudar os outros a te ajudarem ?

 
Postado : 29/08/2014 9:00 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Provavelmente eu não expressei de acordo.
Utilizei esta linha de comando.

Dim lcolunaAtiva As Long
'lcolunaAtiva = Worksheets("Manual").Cells(Worksheets("Manual").Rows.Count, "g").End(xlUp).Row

Porem eu preciso do valor , e esta linha de comando ela informa a linha.
Obs A coluna que desejo que o valor seja extraido encontra-se na coluna g .

 
Postado : 29/08/2014 9:12 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Provavelmente eu não expressei de acordo.

Provavelmente não. Certamente.

Vamos ao que interessa:

Troque :

Dim lcolunaAtiva As Long
lcolunaAtiva = Worksheets("Manual").Cells(Worksheets("Manual").Rows.Count, "g").End(xlUp).Row

Por:

Dim sValor As String
sValor = Worksheets("Manual").Cells(Worksheets("Manual").Rows.Count, "g").End(xlUp).Value

FF

 
Postado : 29/08/2014 9:19 pm