Notifications
Clear all

Limitar as células de uma macro

2 Posts
2 Usuários
0 Reactions
930 Visualizações
(@gvilioni)
Posts: 8
Active Member
Topic starter
 

Boa noite,

Existe alguma forma de limitar as células para trabalho de uma macro?

Gostaria de executar a função offset porém somente entre o intervalo da célula A4:AN47

Dim hor        As Range
Dim W           As Worksheet

Set W = WB.Sheets("Plan1")

Set hor = W.Cells(5, W.Columns.Count).End(xlUp)

Do While ActiveCell.Row > hor.Row

    ActiveCell.Offset(-1, 0).Select
    
Loop

Preciso limitar porque as células de cima fazem parte do cabeçalho.

 
Postado : 19/12/2017 7:22 pm
(@klarc28)
Posts: 971
Prominent Member
 
Dim hor As Range
Dim W As Worksheet

Set W = WB.Sheets("Plan1")

Set hor = W.Cells(5, W.Columns.Count).End(xlUp)

Do While ActiveCell.Row > hor.Row
if ActiveCell.Row >= 4 and ActiveCell.Row <= 47 then
ActiveCell.Offset(-1, 0).Select
end if
Loop
 
Postado : 19/12/2017 10:21 pm