ciao Salvatore,
oltre la proposta precedente e con le conseguenze del caso, potresti gradire un'alternativa
ciao
Frank
vb
Private Sub UserForm_Activate()
With Me
Select Case ActiveCell.Row
Case 16 To 35
.Top = Int(Application.Height / 3)
ActiveWindow.ScrollRow = ActiveCell.Row
Case 2 To 15
.Top = Int(Application.Height / 3)
ActiveWindow.ScrollRow = ActiveCell.Row
End Select
End With
End Sub
EDIT:
Puoi anche non usare il Select Case ed una volta chiusa la UserForm, tornare alla visualizzazione originaria con
vb
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWindow.ScrollRow = Range("a1").Row
End Sub
[Modificato da tanimon 06/07/2022 15:08]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...