- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
Ã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
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