Foto de Abner S.
Abner há 4 anos
Enviada pelo
Site

Macro excel

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

Excel Vba Geral
2 respostas
Professor Elias S.
Respondeu há 4 anos
Contatar Elias
Tem alguns erros de digitação. E quando se deseja selecionar uma linha ou coluna inteira, é preciso repetir o nome da linha ou coluna intercalado com o sinal ":". Por exemplo, Range('A:A').Select, seleciona a coluna A inteira.

Um professor já respondeu

Envie você também uma dúvida grátis
Ver resposta
Tutoria com IA
Converse com a Minerva IA e aprenda, tire dúvidas e resolva exercícios
Professor Ricardo S.
Respondeu há 4 anos
Contatar Ricardo

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!!!

 

 

Um professor já respondeu

Envie você também uma dúvida grátis
Ver resposta
Minerva IA
do Profes
Respostas na hora
100% no WhatsApp
Envie suas dúvidas pelo App. Baixe agora
Prefere professores para aulas particulares ou resolução de atividades?
Aulas particulares
Encontre um professor para combinar e agendar aulas particulares Buscar professor
Tarefas
Envie sua atividade, anexe os arquivos e receba ofertas dos professores Enviar tarefa