Este fórum está sendo desativado

[MarceloAdriano]

Olá
Como faço para acrescentar, no código abaixo, de forma que possa destacar com cor de preenchimento e da fonte a ultima célula da coluna preenchida?
Segue a planilha de exemplo e a imagem ilustrativa.


Grato
Marcelo Adriano

Sub SelecionarUltimaLinhaColunaB()

Dim SelecionarUltimaLinhaColunaB As Long
Dim i As Long

SelecionarUltimaLinhaColunaB = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To SelecionarUltimaLinhaColunaB
Range("B" & i & ":B" & i).Select
Next i


End Sub

[FelipeMGarcia]

Marcelo, você pode fazer isso com a formatação condicional usando esta fórmula anexa.

=PROC(2;1/(F:F<>"");F:F)

No exemplo ele irá encontrar o último valor na coluna F, se quiser substitua a coluna para a sua que quiser encontrar o valor.

Abs

[MarceloAdriano]

FelipeMGarcia...
Obrigado pela sua boa vontade. Entretando, como estou iniciando meus estudos em VBA, gostaria de desenvolver melhor o código acima descrito, acrecentando a cor no ultima registro encontrado.

Grato,
Marcelo Adriano

[gfranco]

Boa noite MarceloAdriano
Cole a instrução abaixo num módulo ou adapte-a à sua necessidade

Sub pintar()
On Error Resume Next
'nas ocorrências de "plan1" substitua pelo codename da plan que deseja efetuar a coloração
Dim t As Long
Plan1.Range("B:B").EntireColumn.Interior.Pattern = xlNone 'apaga toda a coloração anterior
t = Plan1.Cells(Plan1.Cells.Rows.Count, 2).End(xlUp).Row 'mapeando a _
última célula da coluna B

'pinta a última célula preenchida....

Plan1.Cells(t, 2).Interior.Color = 255 'pinta a última célula da coluna "B"

' o codename vc consegue visualizar à esquerda na janela VBA project

End Sub


at
gfranco

[MarceloAdriano]

Olá Gfranco
Obrigado pela ajuda, esta "quebrando a cabeça' para tentar fazerisso via código em VBA.
Grato e Sucesso Para você!

Marcelo Adriano