Guru do Excel e Power BI

Fórum de Dúvidas sobre Excel e Power BI
https://gurudoexcel.com/

Problema com Macro

https://gurudoexcel.com/viewtopic.php?t=4285

Página 1 de 1

Problema com Macro

Enviado: 14 Mar 2017 às 05:28
por nmareis
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

Enviado: 14 Mar 2017 às 07:30
por Reinaldo
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)

Re: Problema com Macro

Enviado: 14 Mar 2017 às 08:10
por nmareis
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

Enviado: 14 Mar 2017 às 20:46
por nmareis
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

Enviado: 15 Mar 2017 às 00:12
por babdallas
Coloca o arquivo em anexo. Fica mais fácil de entender e ajudar.
Todos os horários são UTC-03:00
Página 1 de 1
Powered by phpBB® Forum Software © phpBB Limited