İstenilen Sayfada Kod Çalışmasın

[Seyit Tiken]

Ýstenilen Sayfada Kod Çalışmasın

Bu Siteye Emeği Geçen Herkese Selamlar, Merhabalar,
Yaptığınız bu kod bayağı işime yaradı. Bu kod bloğunu "Rapor" adlı sayfada çalışmamasını sağlanabilir mi? Teşekkür ediyorum.

İlgili Kod :

Dim ilksat, sonsat, deg As Integer
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If ActiveCell.Row > ilksat And ActiveCell.Row < sonsat Then Exit Sub
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row + 2, 20)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row + 2, 20)).FormatConditions(1).Interior.ColorIndex = 33
ilksat = ActiveCell.Row
sonsat = ActiveCell.Row + 3
End Sub

 

[Levent Menteşoğlu]

Kodun en başına ilk satır olarak aşağıdaki satırı ilave edin.

if Activesheet.name="Rapor" then exit sub