Run -time error '434': Object doesn't support this property or method

[leventunc]

Merhaba değerli forum sakinleri,
Excel çalışma sayfasında A,B ve C sütunlarındaki satırlara yeni değerler girince şu hatayı veriyor.

Run -time error '434':
Object doesn't support this property or method

Bu hata mesajının yapmış olduğu yönlendirmeler ile kodların yazılı olduğu sayfa açılınca tam olarak koyu renk ile belirtmiş olduğum satır, sarı renk ile gösteriliyor.

If Intersect(Target, [A21000]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To Cells(65336, "A").End(3).Row
If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then
t1 = t1 + 1
End If

Bu çözmede yardımcı olabilirseniz çok mutlu olurum.

NOT: Çalışma sayfası ve ekran görüntülerinin linki ektedir. Teşekkür ederim...

Sistem Bilgileri:
Microsoft Office Excel 2007
Windows 64-Bit

Çalışma Sayfası
Ekran Görüntüsü 1
Ekran Görüntüsü 2

 

[Saban Sertkaya]

Merhabalar,
Hücre renklendirme de DisplayFormat ifadesi olmamalı.
Zaten hata komutu da bu özelliğin desteklenmediğini belirtiyor.
Aşağıdaki şekilde deneyiniz.

If Range("A" & i).Interior.ColorIndex = 3 Then

Kolay gelsin.

 

[leventunc]

Merhabalar Saban bey, denedim yine aynı hatayı veriyor.

If Range("A" & i).Interior.ColorIndex = 3 Then

Yazdım, bu satır da sarı renk ile gösteriliyor.

 

[Korhan Ayhan]

Aşağıdaki komut 2007 ve öncesi versiyonlarda çalışmaz.

DisplayFormat

 

[leventunc]

Merhabalar Korhan bey, ilgilendiğiniz için çok teşekkür ederim. Office programında versiyon yükseltmemizin vakti geldi sanırım...