Ir para conteúdo
Fórum Script Brasil
  • 0

Erro em tempo de execução 1004


asbgrodrigo

Pergunta

Ola pessoal, sou novo aqui no forum e tambem na area de suporte.

Estou com um problema para executar uma macro no excel, gostaria muito da ajuda de vocês.

Segue o problema:

Erro em tempo de execução 1004

O metodo range do objeto global falhou

o code:

Sub TabDinamica_xml()
'
' TabDinamica_xml Macro
'
'
    Dim Nlinha, nColuna, nColuna1, nColuna2 As Integer
    Dim Slinha, Slinha1, Sformula, sWork As String
    Dim sColuna, sColuna1, sColuna2 As String
    Dim Slinha2, Slinha3, Slinha4, Slinha5, Slinha6 As String
    Dim FaixaDados, letras(100) As String
    
    letras(1) = "A": letras(2) = "B": letras(3) = "C": letras(4) = "D"
    letras(5) = "E": letras(6) = "F": letras(7) = "G": letras(8) = "H"
    letras(9) = "I": letras(10) = "J": letras(11) = "K": letras(12) = "L"
    letras(13) = "M": letras(14) = "N": letras(15) = "O": letras(16) = "P"
    letras(17) = "Q": letras(18) = "R": letras(19) = "S": letras(20) = "T"
    letras(21) = "U": letras(22) = "V": letras(23) = "W": letras(24) = "X"
    letras(25) = "Y": letras(26) = "Z": letras(27) = "AA": letras(28) = "AB"
    letras(29) = "AC": letras(30) = "AD": letras(31) = "AE": letras(32) = "AF"
    letras(33) = "AG": letras(34) = "AH": letras(35) = "AI": letras(36) = "AJ"

    ChDir "C:\XMLCONTROL"
    Workbooks.Open Filename:="C:\XMLCONTROL\KXMLSUM.xls"
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=CELL(""lin"",RC[-1])"
    Nlinha = ActiveCell.Value
    ActiveCell.Value = ""
    Slinha = Format(Nlinha - 1)
    Slinha1 = "R" + Slinha + "C6"
    FaixaDados = "KXMLSUM!R1C1:" + Slinha1     '"KXMLSUM!R1C1:R6450C6"
    
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        FaixaDados, Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Plan1!R3C1", TableName:="Tabela dinâmica2", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Plan1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KEY")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KEY").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("Tabela dinâmica2").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica2").PivotFields("KEY05"), "Soma de KEY05", xlSum
    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXCLFO04")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXCLFO04").Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False _
        )
    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXFLCF04")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXFLCF04").Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False _
        )
    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXNOME04")
        .Orientation = xlRowField
        .Position = 4
    End With
    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("KXNOME04").Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False _
        )
    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("DATA04")
        .Orientation = xlColumnField
        .Position = 1
    End With
    Range("E3").Select
    With ActiveSheet.PivotTables("Tabela dinâmica2")
        .ColumnGrand = True
        .RowGrand = False
    End With
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("1:3").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Windows("KXMLSUM.xls").Activate
    Sheets("KXMLSUM").Select
    ActiveWindow.SelectedSheets.Delete


    Rows("1:1").Select
    Selection.Font.Bold = True
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Código"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "c/f"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Nome"
    
    Range("C1").Select
    'Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=CELL(""lin"",RC[-1])"
    Nlinha = ActiveCell.Value
    ActiveCell.Value = ""
    Slinha = Format(Nlinha - 1)
    ttLinha = Nlinha
    Slinha2 = "A2:A" + Slinha
'--------------------------------------------------------
    Range("A1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "dif"
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
'------------------------------------------------------------
    Range("A1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=CELL(""col"",RC[-1])"
    Nlinha = ActiveCell.Value
    ActiveCell.Value = ""
    Slinha3 = "A1:" + letras(Nlinha) + Slinha
'------------------------------------------------------------
    Slinha4 = letras(Nlinha) + "2:" + letras(Nlinha) + Slinha
    Slinha8 = letras(Nlinha) + "2:" + letras(Nlinha) + Format(ttLinha)
    SRange = letras(Nlinha) + "2"
    Range(SRange).Select
    Selection.AutoFill Destination:=Range(Slinha8)   'Range("R2:R754")
    Range(Slinha8).Select
    Slinha5 = letras(Nlinha) + ":" + letras(Nlinha)
    Columns(Slinha5).Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

'--------------------------------------------------------

    'Cells.Select
    SRangeX = "A1:" + letras(Nlinha) + Format(ttLinha - 1)
    Range(SRangeX).Select
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range(Slinha4) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range(Slinha2) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range(Slinha3)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    sUltLinha = Format(ttLinha) + ":" + Format(ttLinha)
    Rows(sUltLinha).Select
    Selection.Cut
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    
    SRange2 = "A2:" + letras(Nlinha) + "2"
    Range(SRange2).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    SRange = "D1:" + letras(Nlinha - 1) + "2"
    SRange2 = "Plan1!$D$1:$" + letras(Nlinha - 1) + "2"
    Range(SRange).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range(SRange2)  '"Plan1!$D$1:$Q$2"
    ActiveSheet.Shapes("Gráfico 1").IncrementLeft -124.5
    ActiveSheet.Shapes("Gráfico 1").IncrementTop 78
    Sheets("Plan1").Select
    Sheets("Plan1").Name = "Resumido"
    ActiveWorkbook.SaveAs Filename:="C:\XMLCONTROL\KXMLResumo.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("MacroControleXML.xlsm").Activate
    ActiveWorkbook.Close
End Sub

Desde já agradeço.

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...