sayfada ileri geri ve satır ekleme

[periklet]

Merhaba, ekte bir rapor hazırlıyorum, acaba ordaki tabloda eklediğim ileri geri butonları ile sayfalar arasında gidilebilirmi ve bir diğer konu A16 daki satır ekleme yazısına tıkladığımızda üste satır ekleyerek kullanabilirmiyiz.

Teşekkürler

 

[Ömer]

Merhaba, ekte bir rapor hazırlıyorum, acaba ordaki tabloda eklediğim ileri geri butonları ile sayfalar arasında gidilebilirmi

Merhaba,

Module kopyalayıp oklara atayın.

Sub SolOk_Tıklat()
 
    On Error Resume Next
    Sheets(ActiveSheet.Index - 1).Select
 
End Sub
 
Sub SağOk_Tıklat()
 
    On Error Resume Next
    Sheets(ActiveSheet.Index + 1).Select
 
End Sub

bir diğer konu A16 daki satır ekleme yazısına tıkladığımızda üste satır ekleyerek kullanabilirmiyiz.

ThisWorbook sayfasına kopyalayın.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
    If ActiveSheet.Name = "FİFRİST" Then Exit Sub
 
    On Error Resume Next
    If Target.Value <> "SATIR EKLEME" Then Exit Sub
 
    Selection.EntireRow.Insert
 
End Sub

.