Este fórum está sendo desativado

[dariohcruz]

Bom dia, pessoal.

Tudo bem?

Estou tentando fazer duas macros para dois botões, os quais são “Anterior” e “Próximo”.
Eles estão sendo feitos para voltar e “pular” uma linha na mesma coluna. Contudo, gostaria que esse “anterior” e esse “próximo” ficassem limitados ao Range(B76:B109) e que o botão “Próximo” parasse assim que atingisse a última célula preenchida dentro deste limite. E quando eu parasse esses comando em uma determinada célula, ele selecionasse a linha referente à célula selecionada. Por exemplo, caso eu parasse na célula B80 ele selecionasse a linha inteira (B80:W80)

Para isso,estou utilizando os seguintes comandos:

ActiveSheet.Cells(ActiveCell.Row - 1, ActiveCell.Column).Select

ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

Range(Selection, Selection.End(xlToRight)).Select (Não sei como mudar esse código para selecionar a linha selecionada até a coluna W)

Desde já, agradeço pelo ajuda.

Muito obrigado.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub Próxima()
 If ActiveCell.Column <> 2 Or ActiveCell.Row >= 109 Then Exit Sub
 ActiveCell.Offset(1).Resize(, 22).Select
End Sub

Sub Anterior()
 If ActiveCell.Column <> 2 Or ActiveCell.Row <= 76 Then Exit Sub
 ActiveCell.Offset(-1).Resize(, 22).Select
End Sub