hugo.moreda
-
Total de itens
11 -
Registro em
-
Última visita
Posts postados por hugo.moreda
-
-
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!
Nome do arquivo a ser salvo com o valor de uma variável.
em VBA
Postado
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