Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CONDIÇÃO IF LOOP? W...
 
Notifications
Clear all

CONDIÇÃO IF LOOP? WHILE?

 
2024 - VBA & Macros
Post Recente por MPrudencio 8 anos atrás
2 Posts
2 Usuários
0 Reactions
860 Visualizações
RSS
 tiagogn
(@tiagogn)
Posts: 0
New Member
Topic starter
 

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?

 
Postado : 14/10/2016 5:37 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

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
 
Postado : 14/10/2016 4:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico