koşullu biçimlendirme ekran görüntü problemi

[uhercan]

merhaba arkadaşlar, üstadlar.
sorum şu, koşullu biçimleme yaptığımda ekranda (çalışma sayfası) görsel bozuk görünüyor. ancak çıktı alıca ya da baskı ön izlemede düzeliyor. bu uyum sorunu nasıl çözerim.
not:
resim 1 ekran görüntüsü (excel-11.jpg)
resim 2 baskı ön izleme görüntüsü (excel-22.jpg)

 

[nihatkr]

Sutunu Seç. Üst menuden metni kaydır de tamamdır. satırları da ona göre ayarla.

Yada yine tüm sutunu seç. Sağtık-Hücre Biçimlendir-Hizlama-Metni Kaydır de.

 

[uhercan]

Sutunu Seç. Üst menuden metni kaydır de tamamdır. satırları da ona göre ayarla.

teşekkür ederim. ancak onu en başta yaptım. dikkat edersen baskı önizlemede sorun yok

 

[nihatkr]

dosya eklerseniz daha kolay olabilir.

 

[uhercan]

dosya eklerseniz daha kolay olabilir.

sorunu çözdüm.
alttaki makro yüzünden oluyor. sorunlu hücreyi tıklayınca düzeliyor.

macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim a, b As Long
If Intersect(Target, [a4:a65000]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
For Each alan In Range("a4:" & [a65000].End(xlUp).Address)
a = alan.Offset(-1, 0).Interior.ColorIndex
If a = 34 Then '34 MAVİ 35 YEŞİL 36 SARI'
a = 0
b = 34
Else
a = 34
b = 0
End If
If alan.Value <> alan.Offset(-1, 0).Value Then
Range(alan, alan.Offset(0, 20)).Interior.ColorIndex = a
Else
Range(alan, alan.Offset(0, 20)).Interior.ColorIndex = b
End If
Next
End Sub