Diğer sayfaya geçerken oluşan hata mesajı

[AKREP1]

:hey: Arkadaşlar benim sorunum çok sayıda sayfadan oluşan bir Excel kitabın da bir tablo hazırlıyorum
Bu tabloda yazı boyutunu küçültmek için ve kayan yazı için verilen kodlar aşağıda.

Yazı boyutunu otomatik küçültsün diye
ThisWorkbook(Code) ye kayıtlı
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [b:aj]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

Kayan yazı efekti
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Loop
End Sub


Başka bir sayfaya geçerken bu hatayı veriyor.

Run-time error’1004’:
Method ‘Intersect’of object’_Global’failed


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [b:aj]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

dosyadan bir bölüm ekte sunulmuştur.
Yardımlarınız için teşekkürler.

 

[Skorpiyon]

Sayın Akrep1,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [b:aj]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub

Bu iki satırı yer değiştirerek bir deneyin. Sanırım problem kalkar.

Bir de konu başlıklarını "kodları düzeltmek için yardımmmmm" yerine, "Diğer Sayfaya Geçişte Hata" gibi birşey yazarsanız, hem probleminizi belirtmiş olursunuz, hemde problem çözmek isteyen arkadaşlara ön bilgi vermiş olursunuz.

Saygılarımla...

 

[AKREP1]

Teşekkür eder saygılar sunarım