Kodun tüm sayfalarda çalışması

[unforgivenn]

Merhabalar, aşağıdaki kodu sayfaya uyguladığımda sorunsuz çalışıyor ama benim yapmak istediğim tüm sayfalarda bunu kullanmak. Workbooka eklemek için ne yapmalıyım



Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c4:c65536")) Is Nothing Then Exit Sub
For i = 4 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 2).Value = ""
Else
s = s + 1
Cells(i, 2).Value = s
End If
Next i
End Sub

 

[Mehmet Şahin]

ThisWorkbook modülüne aşağıdaki kodu yazıp deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c4:c65536")) Is Nothing Then Exit Sub
For i = 4 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 2).Value = ""
Else
s = s + 1
Cells(i, 2).Value = s
End If
Next i
End Sub

 

[unforgivenn]

Teşekkürler halloldu.