Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''[url]erro em tempo de execução[/url]''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. 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.
×
×
  • Criar Novo...