Este fórum está sendo desativado

[arley251]

Gostaria de uma macro para inserir a informação de uma célula específica na primeira linha em branco de uma coluna específica desde que a célula superior a esquerda esteja preenchida. Até consegui algumas partes, mas me atrapalho na hora de condicionar. A Sub que consegui até agora foi...

Código: Selecionar todos

Sub INDICIPLINADO()
'
Sheets("OI").Select
linha = Range("R25").End(xlUp).Row + 1
Cells(linha, 18).Value = Cells(3, 4)
End Sub

Ela escreve o que está em Cells(3,4), mas sei como por a condição de escrever (colar valor) apenas quando a célula superior a esquerda, ...de cells(linha,18)..., já estiver preenchida

[mprudencio]

Se eu entendi

Sub INDICIPLINADO()
'
Sheets("OI").Select
linha = Range("R25").End(xlUp).Row + 1
if Cells(linha-1, 17).Value <> "" then
Cells(linha, 18).Value = Cells(3, 4)
end if

End Sub

[evpassos]

Acho que é isso mesmo:

Código: Selecionar todos

if Cells(linha-1, 17).Value <> "" then