Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Passando variavel c...
 
Notifications
Clear all

Passando variavel como parametro do workbook

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
3 Posts
3 Usuários
0 Reactions
792 Visualizações
RSS
 vinicius.c
(@vinicius-c)
Posts: 0
New Member
Topic starter
 

Pessoal estou fazendo uma macro que vai basicamente copiar dados fixos de uma planilha e colar nesta onde estará a macro,
porém este processo sera efetuado diversas vezes , fazendo essa copia de varias planilhas diferentes , então o nome das planilhas de que vou copiar os dados não são estáticos ,
oque eu tenho um esboço de código é algo do genero

Workbooks.Open Filename:="C:Usersvinicius.ViniciusDesktopexceltesteteste1.xlsx"

Workbooks("teste1.xlsx").Worksheets("Plan1").Range("A1:F3").Copy Destination:=Workbooks("1.xlsm").Worksheets("Planilha1").Range("a1")

Workbooks("teste1.xlsx").Close

porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha , tipo Workbooks(range("A8").value).worksheet....
pois ai a pessoa que for utilizar a macro so precisara colocar o nome do workbook e pronto.

Alguem ai consegue me dar uma luz ?

 
Postado : 18/06/2017 11:23 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

Deixa eu ver se entendi..

Você está querendo copiar dados de outras planilhas em apenas 1 planilha, mas desde que estas sejam separadas em abas(sheet) para cada planilha?

Quer fazer isso para todas planilhas existentes na pasta de forma automatizada ou deseja selecionar cada manualmente e salva-las em cada aba da planilha?

Tente explicar melhor e anexe sua planilha que irá receber os dados e também as que irão ser "importadas" para que possamos ajudá-lo melhor! (ou anexe um exemplo)

Abraços

 
Postado : 19/06/2017 7:14 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

...porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha...

Exemplo, 'coloque os nomes dos arquivos em coluna a partir de 'M1'

Sub teste()
 Dim nomeArq As Range
  For Each nomeArq In Range("M1", Cells(Rows.Count, "M").End(3))
   Workbooks.Open Filename:="C:Usersvinicius.ViniciusDesktopexcelteste" & nomeArq.Value & ".xlsx"
  Next nomeArq
End Sub
 
Postado : 19/06/2017 7:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico