Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Resultado da macro ...
 
Notifications
Clear all

Resultado da macro na horizontal

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
881 Visualizações
RSS
 luizhcosta
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Boa tarde a todos,

Não se trata de uma dúvida, é mais uma ação mesmo. No código a seguir são listados os nomes de todas as planilha da pasta a partir da célula A2.
Minha necessidade é que o resultado fosse listado na horizontal a partir da mesma célula.

É isso.

Obrigado.

Sub GetSheets()
    Dim j As Integer
    Dim NumSheets As Integer
    
    NumSheets = Sheets.Count
       For j = 1 To NumSheets
           Range("a2").Cells(j, 1) = Sheets(j).Name
       Next j
End Sub
 
Postado : 29/07/2016 10:32 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 
    Sub GetSheets()
        Dim j As Integer
        Dim NumSheets As Integer
       
        NumSheets = Sheets.Count
           For j = 1 To NumSheets
               Range("a2").Cells(2, j) = Sheets(j).Name
           Next j
    End Sub
 
Postado : 29/07/2016 10:50 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Opa!

Há um pequeno equívoco no código anterior. Considere este:

    Sub GetSheets()
        Dim j As Integer
        Dim NumSheets As Integer
       
        NumSheets = Sheets.Count
           For j = 1 To NumSheets
               Range("a2").Cells(1, j) = Sheets(j).Name
           Next j
    End Sub
 
Postado : 29/07/2016 10:52 am
 luizhcosta
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Wag,

Obrigado!

 
Postado : 29/07/2016 11:52 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Luiz

Tenho notado que você não tem mais clicado na mãozinha para agradecer os colaboradores.

[]s

 
Postado : 29/07/2016 3:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico