Sub Declaracao () Sheeta ("Banco de Dados").Select Range ("b6"). Copy Sheets("Plana").Select Range("10") .PasteSpecial xlPasteValues Sheet("Banco de Dadas").Select Range("16") Copy Sheets ("Plan3") .Select Range("010") .Paste special x1 Pastevalues Sheets ("Banco de Dados Select Range("C6").Select If Value - "Pte de 04 Or "PEŠ de Sheets (*Plan3") -Select Cells("g10") - Educação InfantiL" Else Cells ("a1o") - "Ensino Fundamental" End It Declaracao Digite uma pergunt 3 OS" Then End Sub Alguém pode me ajudar achar o erro
Abner,
Existem muitos erros de digitação e alguns comandos estão incompletos, mesmo assim o que me parece que ve deseja, pode ser bem mais simples do que vc digitou!!
Vc copiou várias celulas de uma planilha para outra e poderia apenas incluir os conteudos das origens direto como resultado de destino;
Exemplo; Vc deseja copiar a celula c6 da plan1 para celula d7 na plan2, então!
Public Sub Teste()
Sheets("plan2").select
Range("D7").Value = Sheets("Plan1").Range("C6")
e assim para todas as celulas que deseja copiar!!! Evitando o entra e sai de planilhas e o copiar e colar o tempo todo!!!
Sobre o IF que vc montou, recomendo Case Select, fica realmente bem mais claro e prático de se trabalhar, porem se usar realmente o IF, recomendo uma lógica do mais provável para o menos provável, assim o desvio fica mais rápido e poderá usar o Else no último sem ter que condiciona-lo!!!
espero ter conseguido explicar bem e ajudado!!!
Se desejar mandar com Identação do procedimento ou mesmo print do Excel, acredito que poderei ajudar melhor!!!