Ir para conteúdo
Fórum Script Brasil

Paulo Andrade

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Paulo Andrade

Paulo Andrade's Achievements

0

Reputação

  1. Srs., Estou iniciando com programação VBA. Peço a ajuda dos colegas para analisar o código e ver o erro. O código é executado sem erro, mas os dados da tabela origem não é copiado pro destino (Planilha 'Dados') Agradeço quem puder me ajudar. Sub lsExpandirDados() On Error GoTo Sair Dim lPlanCriada As String Dim lPlanilhaOriginal As String 'Captura o nome da planilha aonde está a tabela dinâmica lPlanilhaOriginal = ActiveSheet.Name & "!" & ActiveCell.Address 'Desabilita mostrar alertas de mostrar mensagens de erro Application.DisplayAlerts = False 'Limpa a planilha dados Sheets("Dados").Range("A:XFD").Clear 'Abre os detalhes do registro da tabela dinâmica Selection.ShowDetail = True 'Guarda o nome da planilha criada lPlanCriada = ActiveSheet.Name 'Copia os dados abertos Selection.Copy 'Cola as informações na tabela dados Sheets("Dados").Select Sheets("Dados").Cells(1, 1).Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'Exclui a planilha criada Worksheets(lPlanCriada).Delete 'Organiza as colunas Selection.EntireColumn.AutoFit Worksheets("Dados").Range("B2").Select ActiveWindow.FreezePanes = True Worksheets("Dados").Range("A1").Select Selection.End(xlToRight).Select Worksheets("Dados").Cells(1, ActiveCell.Column + 2).Select ActiveCell.Value = "Voltar" 'Cria o hiperlink ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ lPlanilhaOriginal, TextToDisplay:="Voltar" Worksheets("Dados").Activate Range("E5").Activate Sair: End Sub
  2. Srs., Boa Tarde! Estou iniciando com programação VBA. Peço a ajuda dos colegas para analisar o código e ver o erro. O código é executado sem erro, mas os dados da tabela origem não é copiado pro destino (Planilha 'Dados') Agradeço quem puder me ajudar. Sub lsExpandirDados() On Error GoTo Sair Dim lPlanCriada As String Dim lPlanilhaOriginal As String 'Captura o nome da planilha aonde está a tabela dinâmica lPlanilhaOriginal = ActiveSheet.Name & "!" & ActiveCell.Address 'Desabilita mostrar alertas de mostrar mensagens de erro Application.DisplayAlerts = False 'Limpa a planilha dados Sheets("Dados").Range("A:XFD").Clear 'Abre os detalhes do registro da tabela dinâmica Selection.ShowDetail = True 'Guarda o nome da planilha criada lPlanCriada = ActiveSheet.Name 'Copia os dados abertos Selection.Copy 'Cola as informações na tabela dados Sheets("Dados").Select Sheets("Dados").Cells(1, 1).Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False 'Exclui a planilha criada Worksheets(lPlanCriada).Delete 'Organiza as colunas Selection.EntireColumn.AutoFit Worksheets("Dados").Range("B2").Select ActiveWindow.FreezePanes = True Worksheets("Dados").Range("A1").Select Selection.End(xlToRight).Select Worksheets("Dados").Cells(1, ActiveCell.Column + 2).Select ActiveCell.Value = "Voltar" 'Cria o hiperlink ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ lPlanilhaOriginal, TextToDisplay:="Voltar" Worksheets("Dados").Activate Range("E5").Activate Sair: End Sub
×
×
  • Criar Novo...