Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Reexibir uma linha ...
 
Notifications
Clear all

Reexibir uma linha por vez dentro de um intervalo de dados

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
979 Visualizações
RSS
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

Pessoal, boa tarde. Tudo bem?

Tenho linhas ocultas em minha planilha desde a linha 38 até à 51 e gostaria de criar um comando para que elas fossem reexibidas uma por vez, conforme o comando seja acionado. Exemplo: Uma vez clicado, reexibe a linha 38. Quando for novamente acionado, reexibe a linha 39 e assim por diante. Creio ser algo simples, mas estou tendo dificuldades.

Alguém pode me ajudar, por favor?

 
Postado : 03/11/2015 10:45 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

jrodrig7,

Boa Tarde!

Veja se é assim.

ReExibição de Linha.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/11/2015 10:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sub AleVBA_17980()
    Dim actionRange As Range
    Set actionRange = Range("A38:A51")
    
    On Error Resume Next
    With actionRange.Columns(1)
        With Application.Union(.Offset(-1, 0).Rows(1), .SpecialCells(xlCellTypeVisible))
            With .Areas(1)
                With .Offset(.Rows.Count, 0).Cells(1, 1).EntireRow
                    Application.Intersect(actionRange, .Cells).EntireRow.Hidden = False
                End With
            End With
        End With
        .Rows(1).EntireRow.Hidden = False
    End With
End Sub

Att

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

 
Postado : 03/11/2015 11:03 am
Forum Jump:
  Tópico Anterior
Próximo Tópico