Excel VBA para capturar valor coluna anterior com condição

[Diegodcr]

Como faço um VBA para capturar valor da última célula preenchida da coluna A que estiver acima da primeira célula da coluna B.

 

Em anexo tem uma planilha explicando como deve ser o resultado, nela o processo esta mais claro

dados.xls

[OreiaG]

Veja se atende.

 

Sub teste()
 Dim linB As Long, linA As Long
  linB = Cells(1, 2).End(xlDown).Row
  linA = Cells(linB, 1).End(xlUp).Row
  MsgBox Cells(linA, 1) 'valor da última célula não vazia em A, acima da primeira linha não vazia em B
End Sub

 

[Diegodcr]

@OreiaG Muito obrigado pela ajuda porém o código exibe na tela e eu preciso que o resultado fique salvo numa nova aba e seja igual como esta na planilha em anexo na guia resultado.

[OreiaG]

11 horas atrás, Diegodcr disse:

Como faço um VBA para capturar valor da última célula preenchida da coluna A que estiver acima da primeira célula da coluna B.

 

 

O código que postei responde a questão acima.

 

Para colocar a resposta em A1 da planilha resultado:

Sheets("resultado").[A1]=Cells(linA, 1)

 

[Diegodcr]

@OreiaG Sim mas aparece só o primeiro resultado e são vários... No post eu citei que na planilha fica melhor explicado