Copiar dados de um mes para outro quando celula vazia

Boa noite,

Tenho uma planilha de compra e venda de ações da bolsa, gostaria de copiar automaticamente de um mes para outro quando nao tiver vendido a ação.
Exemplo: compro uma ação em 1 de julho e não a vendo ate dia 31 de julho, queria que fosse copiado a linha completa para o mes de agosto.

Tenho como informação que não foi vendida a mesma da seguinte maneira.

coluna 1 coluna 2
compra venda
1/07 12/07
3/07

nesse exemplo a segunda linha não contem data de venda, então logo seria copiado para o proximo mes.

Se alguem puder dar um auxilio, muito obrigado.

Boa noite!

Você poderia mandar a planilha? ou foto dela, para melhor visualização do que o sr. deseja

Olá, tudo bem?

Você conhece um pouco de VBA?

Vamos supor que essa base esteja na aba “Julho”. E você queira jogar pra aba “Agosto”, ok?

O código é mais ou menos isso… nao cheguei a testar no Excel, peço que teste. Se conhecer VBA você vai entender os detalhes. Em resumo, o que faço:

  • encontro a última linha em “Julho”
  • faço um loop da linha 2 (a primeira fora cabeçalho) até essa linha final
  • se não encontrar data de venda na coluna B, copio e colo pra aba de agosto. Uso um auxiliar de cont para indicar a linha da aba Agosto

Sub Processo()

Dim lin_fin as double
Dim cont as double

cont = 0
lin_fin = sheets(“Julho”).Range(“A100000”).End(xlUp).row 'descobrimos a linha final

For i = 2 to lin_fin 'considerando que começamos na linha 2

if sheets(“Julho”).Range(“B” & i)="" then 'se for vazio, ele joga pra outra aba
cont = cont + 1
sheets(“Julho”).select
Range(“A”&i&":F"&i).Select 'A = coluna inicial, F = coluna final. Mudar se não for
Selection.Copy
sheets(“Agosto”).select
Range(“A” & cont).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if

Next i

End Sub