Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Pesquisar pasta com...
 
Notifications
Clear all

Pesquisar pasta com nº do mês e nome do mês

 
2024 - VBA & Macros
Post Recente por schneiderx 10 anos atrás
6 Posts
2 Usuários
0 Reactions
1,208 Visualizações
RSS
 schneiderx
(@schneiderx)
Posts: 15
Active Member
Topic starter
 

Bom dia pessoal, tudo bem?!
Tenho um caminho de pasta da seguinte forma:

H:ClienteItemAno01 - JaneiroDimensional.xls

Porém tive que editar a pasta do Mês para apenas o número do mês (no lugar de "01 - Janeiro" tive que por "1") pois no código que criei faço a pesquisa através de um For de início 13 até 0 para percorrer os meses, só consigo fazer a pesquisa através do número.

Dim caminho As String
Dim CMes As Integer
For CMes = 13 To 0 Step -1
caminho = "H:ClienteItemAno" & CStr(CMes) & "Dimensional.xls
.
.
.
Next

Minha pergunta:
Existe uma maneira de fazer essa pesquisa utilizando um For como o exemplo acima porém dessa maneira:
"...Ano" & CStr(CMes) & " - " & nomemês & "" & Item & "*"

Desde já agradeço, tenham um ótimo dia.

 
Postado : 09/06/2014 8:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia schneiderx,

Ao chegar no 13 é o mês de janeiro do ano subsequente?

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/06/2014 8:41 am
 schneiderx
(@schneiderx)
Posts: 15
Active Member
Topic starter
 

O 13 e o 0 foram além por segurança de que vai mesmo passar pelo 12 e pelo 1. Creio eu que não seja necessário, correto?

 
Postado : 09/06/2014 8:45 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia schneiderx,

Não há necessidade.

Vê se ajuda.

Dim caminho As String
Dim CMes As Integer
On Erros Resume Next
For CMes = 12 To 1 Step -1
caminho = "H:ClienteItemAno" & CStr(CMes) & " - " & Format("1/" & CStr(CMes) & "/2014", "mmmm") & "Dimensional.xls"

.
.
.
Next

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/06/2014 8:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Também pode experimentar algo assim, se quiser utilizar a sintaxe inicial "(H:ClienteItemAno1 - JaneiroDimensional.xls)"

Dim caminho As String, Meses()
Dim CMes As Integer
Meses = Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "....") 'Aqui complete até dezembro

For CMes = 12 To 1 Step -1
caminho = "H:ClienteItemAno" & Format(CMes, "00") & " - " & Meses(CMes - 1) & "Dimensional.xls"
Next

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/06/2014 8:56 am
 schneiderx
(@schneiderx)
Posts: 15
Active Member
Topic starter
 

Funcionou perfeitamente. Muito obrigado!

 
Postado : 09/06/2014 9:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico