Notifications

Clear all

Importação de Dados Filtrados

2024 - VBA & Macros

Post Recente por mestre 7 anos atrás

8 Posts

3 Usuários

0 Reactions

1,938 Visualizações

RSS

mestre

(@mestre)

Posts: 20

Eminent Member

Topic starter

Ola amigos.
Estou com dificuldade numa macro que importa dados de uma outra planilha.
Me parece que está tudo certo, mas simplesmente não funcional.

Sub Exportar()
    Sheets("Lista_Larga").Activate
    Sheets("Lista_Larga").Range("A5:B1005").Copy
    Sheets("Sorteio").Activate
    Range("d11:e1011").ClearContents
    Range("D11").Select
    ActiveSheet.past
    Application.CutCopyMode = False
End Sub

Estou postando também a planilha em anexo.
O problema está no módulo 3 da VBA.

Se puderem me ajudar, fico grato.
Abraço

Postado : 22/06/2018 8:57 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Seu anexo não veio mas, tente assim:

Sub Exportar()
Sheets("Sorteio").Range("D11:E1011").ClearContents
Sheets("Lista_Larga").Range("A5:B1005").Copy Destination:=Sheets("Sorteio").Range("D11")
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 22/06/2018 9:35 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

mestre,

Boa tarde!

Antes de mais nada, pedimos, por gentileza, que ao postar código VBA utilize a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Faça uma pequena modificação no seu código. Troque-o por este:

Sub Exportar()
    Sheets("Sorteio").Range("d11:e1011").ClearContents
    Sheets("Lista_Larga").Activate
    Sheets("Lista_Larga").Range("A5:B1005").Copy
    Sheets("Sorteio").Activate
    Range("D11").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 22/06/2018 1:18 pm

mestre

(@mestre)

Posts: 20

Eminent Member

Topic starter

Realmente esses códigos estão dando algum conflito na minha planilha.
Mesmo com a macro certa.
E eu não consigo enviar ela como anexo, porque ela é grande. tem 610kb em arquivo .rar.

Tem algum e-mail que eu poderia estar enviando para alguém dar uma olhada?

Desde já agradeço.

Postado : 22/06/2018 2:21 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

mestre,

Boa noite!
Poste em um site gratuito de compartilhamento de arquivos e cole o link aqui.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 22/06/2018 3:49 pm

mestre

(@mestre)

Posts: 20

Eminent Member

Topic starter

Obrigado amigo.
Segue o link:

http://www.mediafire.com/file/2sbupy3g7 ... 03%29.xlsm

O problema está no módulo 3. Não está rodando.
Se puder dar mais algumas dicas sobre essa planilha, eu agradeceria.
valeu

Postado : 22/06/2018 6:07 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

mestre,

Segue com a respectiva correção.

Taekwondo de sorteio de chaves (003).zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 22/06/2018 6:20 pm