Diğer sayfaya otomatik geçiş

[serdarica]

5.000 ci satırda iken bir alt satıra geçildiği anda otomatik olarak sağındaki bir sayfaya geçiş yaptırmak mümkün müdür?

Teşekkürler

 

[hamitcan]

Hangi sütunda işlem yapıyorsunuz ?

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfası kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Row >= 5001 Then
        ActiveSheet.Next.Select
    End If
End Sub

. . .

 

[serdarica]

. . .

Çalışma sayfası kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Row >= 5001 Then
        ActiveSheet.Next.Select
    End If
End Sub

. . .

Çok teşekkür ederim.