bom dia
pessoal estou apanhando para desenvolver um código
segue o raciocínio abaixo:
Sub copia maquina()
Sheets("Pendencia").Select
Range("D3").Select
Do Until ActiveCell = "MAQUINA 02" 'FINALIZA AÇÃO AO ENCONTRAR
ActiveCell.Offset(1, 0).Select 'PULA UMA LINHA
If ActiveCell = "MAQUINA 01" Then 'DETECTA A MAQUINA
AQUI ELA DEVE PULAR UMA LINHA E LOGO APOS COMEÇAR A COPIAR
NA RANGE "D" AS PENDENCIAS ATE ENCONTRAR A SEGUNDA MAQUINA E PARAR
ElseIf ActiveCell = "MAQUINA 02" Then
Application.Run "BUSCAMAQUINA"
End If
Loop
End Sub
Alguem pode me ajudar?
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Realizar Copia de Planilha de Acordo com a Condição
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Sáb Mai 20, 2017 11:53 am
Realizar Copia de Planilha de Acordo com a Condição
- Anexos
-
- planilha.png (14.87 KiB) Exibido 2323 vezes