Kod hatası

[AKREP1]

Hücre içerisine 100 yazıldığında yazı tipi boyutu 8 olması gerekiyor.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:aj]) Is Nothing Then Exit Sub
If Target.Cells.Value > 99 Then
Target.Cells.Font.Size = 8
Else
Target.Cells.Font.Size = 10
End If
End Sub
kod hata veriyor.Nasıl düzeltebilirim.Teşekkürler

 

[Orion1]

Aşağıdaki satırı değiştirin.

If Target.Cells.Value > 99 Then

ayni yere aşğıdakini yapıştırın.

If Target.Cells.Value = 100 Then

 

[AKREP1]

Çok çok sağolun.Teşekkürler.

 

[Orion1]

Çok çok sağolun.Teşekkürler.

Rica ederim.

 

[AKREP1]

Aynı hatayı tekrar verdi.

 

[Orion1]

Bu kod D ile AJ aralığında çalışır.
Bunun dışında çalışmaz bu aralığın dışındada çalışmasını istiyorsanız.Kodu düzenlemek gerekir.

 

[AKREP1]

İlginize teşekkürler.Nasıl düzeltebileceğimi söylerseniz çok memnun olurum.Saygılarımla.

 

[Orion1]

İlginize teşekkürler.Nasıl düzeltebileceğimi söylerseniz çok memnun olurum.Saygılarımla.

Aşağıda d:AJ yazan yere istediğiniz aralığı yazın.

If Intersect(Target, [d:aj]) Is Nothing Then Exit Sub

 

[AKREP1]

Teşekkürer.

 

[Orion1]

Teşekkürer.

Rica ederim.