hugo.moreda

Prezados amigos, Sub nome_do_arquivo_=_data_atual() 'Dim dia As String 'Dim ano As String 'Dim mes As String Dim LValue As String Dim data As String LValue = Format(Date, "yyyy/mm/dd") Range("A1").Offset(1, 0).Value = LValue data = Selection.NumberFormat = "[$-416]d mmmm, yy;@" 'gostaria que o arquivo salvasse com o nome da variável "data" ....Como eu faço ?' Workbooks.Open Filename:= _ "Y:\marketing\Gerência\Resultados\Panorama de Campanhas\Panorama Geral de Campanhas_20121213.xlsx" Sheets("Dados").Select Range("C30").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Sheets("TB DIM").Select ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh ActiveWorkbook.SaveAs Filename:= _ "Y:\marketing\Gerência\Resultados\Panorama de Campanhas\data.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close End Sub

Você precisa especificar/descrever "melhor" suas variáveis. O comando Dim não está completo... ex de como fazer... Dim ultimalinha as integer for i=1 to ultimalinha ...... Next i Abs!

Tela congelada roda a macro mais rápido que no modo normal? POr favor se alguém tiver certeza me diga. Pois eu só tenho macros muito grandes aqui e demoradas, e infelizmente estou sem tempo para avaliar o tempo das mesmas. Muito obrigado!

Bom dia, Eu faria essa macro gravando aos pouquinhos para mudar de texto para colunas.(há essa opção no excel) Abre o arquivo gravando também pra você ver o código. Abs!

A Função Date Retorna a data corrente do sistema, sem precisar de parâmetro. Exemplo de código: Sub Função_Date() MsgBox Date() End Sub Posta sua programação ai que a gente dá um jeito de adaptar. Abs!

Coloque o código ai pra gente dar uma olhada e tentar te ajudar.

Amigos, Gostaria da ajuda de vocês. Gostaria de separar de um email qualquer todos os caracteres que vem após. Ex hugomoreda@gmail.com resultado: @gmail.com Alguém pode me ajudar? Grato.

Isso não deu certo! Tem alguma outra idéia do que pode vir a ser? Abs!

VOU TENTAR. muito OBRIGADO! JÁ FALO SE DEU CERTO! ABS!

Boa tarde, Estou com um problema para inserir uma tabela dinâmica e gostaria da ajuda de vocês. Tenho uma base em "Plan1" com 75 variáveis organizadas por colunas(75 colunas), e na primeira linha seus respectivos nomes Gostaria de inserir uma Tabela Dinâmica em "Plan2" que funcionasse para qualquer extensão de linha que eu tiver na base. Pois as vezes a base é grande(muitas linhas) as vezes é pequena. A princípio tentei fazer gravando. Funcionou durante um tempo, depois parou. Quero fazer uma agora sólida. Para não dar mais problema. Segue essa macro gravada. Ocorreu o erro '1004' nela. Sub FazTabela() ' FazTabela Macro ' Sheets("Plan2").Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Plan1!R1C1:R65536C76", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="Plan2!R1C1", TableName:="Tabela dinâmica1", _ DefaultVersion:=xlPivotTableVersion10 Sheets("Plan2").Select Cells(1, 1).Select End Sub Depois Tentei a seguinte programação: Sub CreatePivot() ' Dim WSD As Worksheet Dim PTCache As PivotCache Dim PT As PivotTable Dim PRange As Range Dim FinalRow As Long Set WSD = Worksheets("TabelaDinâmica") For Each PT In WSD.PivotTables PT.TableRange2.Clear Next PT FinalRow = WSD.Cells(Application.Rows.Count, 1).End(x1Up).Row FinalCol = WSD.Cells(1, Application.Columns.Count).End(x1ToLeft).Column Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol) Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address) Set PT = PTCache.CreatePivotTable(TableDestination:=WSD.Cells(2, FinalCol + 2), TableName:="Tabela_dinamica1") PT.ManualUpdate = True PT.AddFields RowFields:=Array("idEmergencia", "Modalidad Viajem"), ColumnFields:="Transportadora" With PT.PivotFields("Produto 1") .Orientation = xlDataField .Function = xlSum .Position = 1 End With PT.ManualUpdate = False PT.ManualUpdate = True PT.ShowTableStyleRowStripes = True PT.TableStyle2 = "PivotStyleMedium10" WSD.Activate Range("J2").Select End Sub Muito obrigado!