• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Koşullu Mükerrer Hücre için Renk Değiştirmek

Katılım
12 Aralık 2013
Mesajlar
39
Excel Vers. ve Dili
2013
Merhaba

C sütununda mükerrer kayıt aranıp ilk satırını bırakıp geri kalan mükerrer HÜCRE'nin yazı rengini beyaz yani görünmez yapmak istiyorum.
Aynı şekilde C sütununda mükerrer bulduğu hücrenin D sütunuda mükerrer olacağı için D hücrelerininde ilk satırını bırakıp sonrakileri beyaz renk yani görünmez yapmak istiyorum. Fakat mükerrer kayıt araması C sütunu için yapılacak yani D sütunun da yapılmayacak.

Toplam satır sayımız 9256 olup mükerrer araması C8 satırında başlaması gerekiyor.

Ekran görüntüsü anlattığımı daha iyi ifade edecektir.
Sayfa yapısı bozulmaması adına link olarak ekliyorum.
http://i.hizliresim.com/ng5WN0.jpg

Yardımcı olursanız çok sevinirim.
 
Merhaba sorunum ve yardıma ihtiyacım devam etmektedir.

Yardımlarınızı bekliyorum.

Teşekkürler.
 
Sorunumu çözdüm aynı sorunu yaşayabilecek kişiler için cevap yazıyorum.

Bu forumda mükerrer veride hücrenin içini boşaltma makrosu buldum.

Kod:
Option Explicit
Sub mükerrer_olanları_temizle_1967()
'Konu       :   Mükerrer Olanları Temizle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, SAY As Long
Application.ScreenUpdating = False
With WorksheetFunction
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If .CountIf(Range("A1:A" & SAT), Cells(SAT, "A")) > 1 Then
SAY = SAY + 1
Cells(SAT, "A")[B].Font.ColorIndex = 2[/B]
End If: Next: End With
Application.ScreenUpdating = True
MsgBox SAY & " Sayıda Mükerrer Temizlendi" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"

End Sub

Şu kısmı Cells(SAT, "A").ClearContents
Cells(SAT, "A").Font.ColorIndex = 2
Şu şekilde değiştirdim ve mükerrer hücrelerin ilk satırı kalacak diğer satırların yazı rengi beyaz olacak şekilde değiştirdim.

Bu yaptığımı verimi başka bir sayfaya kopyalayarak A sütununa yerleştirerek yapmıştım. Hemen B sütununa diğer mükerrer verimi kopyaladım.
Filtre ile beyaz olanları süzdüm doğal olarak B sütununda ki mükerrer verim de gelmiş oldu onu da beyaz yaparak sonuca ulaştım.
 
Geri
Üst