Sayfalar Arası Koşullu Biçimlendirme

[tuncat133]

Selam Arkadaşlar;

Sayfalar Arası Koşullu Biçimlendirme yapmak istiyorum.Formülü bir türlü çıkaramadım. Ne yapmak istediğim ekli dosyada ayrıntlı bir şekilde var. Yardımlarınızı bekliyorum.Teşekkürler.

 

[Merhum İdris SERDAR]

.

C2:C52 aralığını seçin.

Formül bölümüne:

=VE(C3<>"";kuryehesap!C3<>"";C3=kuryehesap!C3)

yazın.

.

 

[tuncat133]

Hocam teşekkür ederim de ya ben beceremedim yada bir yanlışlık var hata veriyor.

 

[Merhum İdris SERDAR]

Hocam teşekkür ederim de ya ben beceremedim yada bir yanlışlık var hata veriyor.

.

Dosyanız ekte.

.

 

[ÖmerBey]

Excel 2007 doğrudan sayfalar arası koşullu biçimlendirme ve veri doğrulama yapmıyor.
Ad tanımlama ile belki yapabilirsiniz. Ama benim denemelerim olumlu sonuç vermedi.
Ya da makro kullunabilirsiniz.

Sub karsilastir()
Dim r, c
Sheets("hesapkontrol").Select
Range("C3").Select
Do Until ActiveCell.Row = 52
r = ActiveCell.Row
c = ActiveCell.Column
If ActiveCell.Value = Sheets("kuryehesap").Cells(r, c) Then
    With Selection.Interior
        .Pattern = xlNone
    End With
Else
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End If
ActiveCell.Offset(1, 0).Select
Loop
Sheets("hesapkontrol").Range("C3").Select
End Sub

 

[tuncat133]

Hocam çok teşekkür ederim makro çalışıyor fakat 2 aşama daha soracam izninizle birincisi bu makroyu diğer tutar yazan sutunlarada uygulamak istiyorum. (E,G,I,K,M,O,Q).Epey uğraştım fakat başaramadım. ikincisi 2 tabloda aynı sayfada olsaydı bu sonucu almak için conditional format a nasıl bir formul yazmamız gerekirdi.
Yardımınız bekliyorum. Çok Teşekkür ederim Hocam.

 

[ÖmerBey]

Makroyu şu şekilde değiştiriniz.

Sub karsilastir()
Dim r, c, s
Sheets("hesapkontrol").Select
[COLOR="red"]For s = 3 To 17 Step 2
Cells(3, s).Select[/COLOR]
Do Until ActiveCell.Row = [COLOR="Red"]53[/COLOR]
r = ActiveCell.Row
c = ActiveCell.Column
If ActiveCell.Value = Sheets("kuryehesap").Cells(r, c) Then
    With Selection.Interior
        .Pattern = xlNone
    End With
Else
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End If
ActiveCell.Offset(1, 0).Select
Loop
[COLOR="Red"]Next[/COLOR]
Sheets("hesapkontrol").Range("C3").Select
End Sub

Koşullu biçimlendirmeye de yukarıda Yurttaş Bey'in verdiği kodu yazabilirsiniz. Ancak kuryehesap!C3 yerine karşılaştırma yapacağınız bölümün ilk hücresini yazmanız gerek.
İyi çalışmalar...
Düzeltme: Bu arada gözden kaçmış son satır kontrol edilmiyormuş. Değeri ActiveCell.Row = 53 olarak değiştiriniz.

 

[tuncat133]

Hocam teşekkür ederim. Makro benim gönderdiğim dosyda çalıştı fakat uygulamak istediğim dosyada bir türlü çalıştıramadım. Sürekli 400 hatası alıyorum . Yardımınızı bekliyorum Hocam. İyi çalışmalar.

 

[ÖmerBey]

Makroyu modüle kopyalamanız gerekiyor. Sayfa içinde çalışmaz. herhangi bir modülün içine kopyalayıp deneyiniz.
Bunun yanısıra sayfanız bu haldeyken öyle de çalışmayacaktır. Çünkü sayfanız korumalı. Makronun biçim değişikliği yapmasına izin vermiyor.
Sayfa korumasını biçimlere izin verecek şekilde düzenleyiniz.
Ya da kodun başına sayfa korumasını kaldıran ve sonuna da tekrar aktif eden bir kod ekleyiniz.

 

[tuncat133]

Hocam Allah sizden razı olsun. sayfadaki protecti kaldırdım sorun kalmadı.Bir dahaki takıldığım yerde görüşmek üzere. İyi çalışmalar Hocam.