Problema com Macro

Problema com Macro#21271

Por nmareis - 14 Mar 2017 às 05:28

- 14 Mar 2017 às 05:28 #21271

Bom dia pessoal.
Um colega fez-me este código para copiar e colar informação filtrada e eu o adequei ás minhas necessidades, mas após fazer as alterações e depois de clicar nele dá-me um erro e não passa da linha "Set Livro = Workbooks("Ra" & x & ".xlsx").Sheets("Ficheiro Ramais a Executar")". Será que me podem ajudar?...este é o código...

Código: Selecionar todos

Sub Filtrar()
Application.ScreenUpdating = False
Dim Sdata As Date
Dim WFinal As String

WFinal = ActiveWorkbook.Name

Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS AGUEDA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ALBERGARIA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ANADIA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS AVEIRO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS CANTANHEDE.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ESTARREJA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ILHAVO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS MEALHADA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS MEALHADA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS OLIV. BAIRRO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS VAGOS.xlsx")

Workbooks(WFinal).Activate

Sdata = InputBox("Insira sua data abaixo:")
    
Set LivroFinal = Workbooks(WFinal).Sheets("Produção Diária")
LivroFinal.Range("Q4") = Sdata

For x = 1 To 3

If x = 1 Then r = 12
If x = 2 Then r = 6
If x = 3 Then r = 6

Set Livro = Workbooks("Ra" & x & ".xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Next x

For excluir = 39 To LivroFinal.Range("B10000").End(xlUp).Row
If Cells(excluir, 2) = "Expediente" Then
Rows(excluir).Delete Shift:=xlUp
End If
Next excluir

Workbooks("RAMAIS AGUEDA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ALBERGARIA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ANADIA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS AVEIRO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS CANTANHEDE.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ESTARREJA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ILHAVO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS MEALHADA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS OLIV. BAIRRO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS VAGOS.xlsx").Close SaveChanges:=False

End Sub

Muito Obrigado

Problema com Macro#21274

Por Reinaldo - 14 Mar 2017 às 07:30

- 14 Mar 2017 às 07:30 #21274

Verifique a sintaxe correta para se referir ao livro. Seus arquivos abertos tem nome "Ramais...." e voce refere-se a arquivos "RA1" à "RA3"
Set Livro = Workbooks("Ra" & x & ".xlsx") quando x=2 resulta em Workbooks(RA2.xlsx)

Reinaldo
Gostou da resposta? Clique no ícone "Obrigado" da mensagem!

Re: Problema com Macro#21275

Por nmareis - 14 Mar 2017 às 08:10

- 14 Mar 2017 às 08:10 #21275

os nomes dos livros não podem mudar..tem que ser esses...como é que posso fazer?...por favor pode me ajudar?

Re: Problema com Macro#21321

Por nmareis - 14 Mar 2017 às 20:46

- 14 Mar 2017 às 20:46 #21321

Reinaldo escreveu:Verifique a sintaxe correta para se referir ao livro. Seus arquivos abertos tem nome "Ramais...." e voce refere-se a arquivos "RA1" à "RA3"
Set Livro = Workbooks("Ra" & x & ".xlsx") quando x=2 resulta em Workbooks(RA2.xlsx)

não percebo nada disto colega não consigo resolver..ainda experimentei mas não consigo...fiz isto:

Código: Selecionar todos

Sub Filtrar()
Application.ScreenUpdating = False
Dim Sdata As Date
Dim WFinal As String

WFinal = ActiveWorkbook.Name

Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS AGUEDA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ALBERGARIA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ANADIA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS AVEIRO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS CANTANHEDE.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ESTARREJA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS ILHAVO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS MEALHADA.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS OLIV. BAIRRO.xlsx")
Workbooks.Open ("I:\Backup-cme\cme\Fic. Partilhados\Ramais\RAMAIS VAGOS.xlsx")

Workbooks(WFinal).Activate

Sdata = InputBox("Insira sua data abaixo:")
    
Set LivroFinal = Workbooks(WFinal).Sheets("Produção Diária")
LivroFinal.Range("Q4") = Sdata

For x = 1 To 10

If x = 1 Then r = 54
If x = 2 Then r = 6
If x = 3 Then r = 6
If x = 4 Then r = 6
If x = 5 Then r = 6
If x = 6 Then r = 6
If x = 7 Then r = 6
If x = 8 Then r = 6
If x = 9 Then r = 6
If x = 10 Then r = 6

Set Livro = Workbooks("RAMAIS AGUEDA.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS ALBERGARIA.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS ANADIA.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS AVEIRO.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS CANTANHEDE.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS ESTARREJA.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS ILHAVO.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS MEALHADA.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS OLIV. BAIRRO.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Set Livro = Workbooks("RAMAIS VAGOS.xlsx").Sheets("Ficheiro Ramais a Executar")
Livro.Range("B1:R" & r).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=LivroFinal.Range("Q3:Q4"), _
        CopyToRange:=LivroFinal.Range("B10000").End(xlUp).Offset(1, 0), _
        Unique:=False

Next x

For excluir = 39 To LivroFinal.Range("B10000").End(xlUp).Row
If Cells(excluir, 2) = "Expediente" Then
Rows(excluir).Delete Shift:=xlUp
End If
Next excluir

Workbooks("RAMAIS AGUEDA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ALBERGARIA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ANADIA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS AVEIRO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS CANTANHEDE.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ESTARREJA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS ILHAVO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS MEALHADA.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS OLIV. BAIRRO.xlsx").Close SaveChanges:=False
Workbooks("RAMAIS VAGOS.xlsx").Close SaveChanges:=False

End Sub

Re: Problema com Macro#21335

Por babdallas - 15 Mar 2017 às 00:12

- 15 Mar 2017 às 00:12 #21335

Coloca o arquivo em anexo. Fica mais fácil de entender e ajudar.

Espero que tenha ajudado. Se lhe fui útil, agradeço se me conceder seu LIKE.
Se esta ajuda resolveu seu problema, por favor marque o tópico como RESOLVIDO.
Que o amor e a paz de Deus esteja contigo!

Este fórum está sendo desativado

Problema com Macro

Problema com Macro#21271

Problema com Macro#21274

Re: Problema com Macro#21275

Re: Problema com Macro#21321

Re: Problema com Macro#21335

long long title how many chars? lets see 123 ok more? yes 60

Another post test yes yes yes or no, maybe ni? :-/

Do you need a super MOD? Well here it is. chew on this

Lasagna on me this time ok? I got plenty of cash