Boa tarde!
Me encontro em dúvida na seguinte situação:
Tenho um arquivo que possui uma base de sugestão de pedidos, essa sugestão vem através de uma formula, ou seja a coluna inteira (AO) possui fórmulas, celula a celula.
Preciso de uma macro onde eu consiga identificar celula por celula por exemplo AO1, AO2, AO3 quais possuem valores, se estiver "" pular para proxima, se identificar algum valor copiar e jogar para outro local da planilha e assim por diante até a ultima celula que não contenha formula alguma.
Alguem tem alguma sugestão?
Comecei a pensar em algo como abaixo porem ainda não consegui fazer o código funcional com a proposta inicial.
Sub movimentação()
Set Rng = Range("AO12")
Do While Rng.Value = ""
Set Rng = Rng.Offset(1, 0)
Do While Rng.Value <> ""
Rng.Offset(0, 2).Value = Worksheets("Preenchimento").Range("C" & linha)
Set Rng = Rng.Offset(1, 0)
Loop
Loop
End Sub
Olá Henrique:
Tu podes utilizar o seguinte programa:
Sub procura()
For i = 1 To 13
If Cells(i, 41) <> "" Then Cells(i, 42) = Cells(i, 41)
Next
End Sub
Ele fai rastriar 13 linhas da coluna AO (equivalente à coluna 41). Se o valor da célula da coluna não vor vazio, ele reproduz na coluna AP.
Esta é apenas a lógica, é só criar uma macro no EXCEL, preencher algumas células da coluna e rodar a macro.
Qualque dúvida é só perguntar.
Olá, tudo bem?
Primeiro você precisa encontrar o total de linhas preechidas, algo do tipo:
lastLIne = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count, "AO").End(xlUp).Row,"AO").End(xlUp).Row
Nesse caso debaixo para cima, isso depende de como estão modelados os dados na planilha, seria interessante postar a mesma.
Ai é só usar IF e o Offset combinado com While.
Qualquer coisa estou por aqui.
Aulas particulares
