Pessoal,
Bom dia.
Por favor, pode me ajudar? Estou tentando resolver uma situação para terminar uma planilha de faturamento mas ainda não consegui resolver o problema abaixo.
Na aba Validar Faturar... Na coluna A... A partir da Célula A2 eu vou ter alguns números que são os gatilhos para o faturamento. Então a lógica seria
SE A2 <> "" COPIA(E já exclui) ESSE número e coloca na ABA Faturando, na C8, e EXECUTA UMA MACRO que vai puxar informações de outra planilha.
Porém depois de executada esta macro tem que voltar na ABA Validar Faturar pra verificar se na A3 também é <> "" e fazer o mesmo procedimento... Copiar o número, excluir ele, colocar na aba faturando, na C8, executar a macro e retornar para a A4... etc etc etc
Por fim ... Se for = "" o código termina retornando para outra aba.
Alguém pode me ajudar a concluir este trabalho?
Atenciosamente,
Tiago Gonçalves
Ve se ajuda....
Coloca num modulo e um botao na planilha faturando.
Sub Apagar()
Dim Codigo As Long
Dim WV As Worksheet
Dim WF As Worksheet
Dim WVLinha As Long
Dim WVULinha As Long
Set WV = Sheets("Validar Faturar")
Set WF = Sheets("Faturando")
WVLinha = 2
WVULinha = WV.Range("A" & Rows.Count).End(xlUp).Row
Do While WV.Cells(WVLinha, 1).Value <> ""
Codigo = WV.Cells(WVLinha, 1).Value
WF.Cells(8, 3).Value = Codigo
'Aqui voce chama a outra macro
WVLinha = WVLinha + 1
Loop
WV.Range("A2:A" & WVULinha).Value = ""
WF.Cells(8, 3).Value = ""
End Sub
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.