• DİKKAT

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

Tekrarlayan veriler ve Biçimlendirme

Katılım
9 Ekim 2021
Mesajlar
343
Excel Vers. ve Dili
excell 2013
Çok Değerli Excel.web.tr hocalarıma selamlar saygılar.

benim sorum tekrarlayan verileri çıkaran.ve tekrarlayan satırları renk ile birbirinden daha belirgin şekilde ayıran bir liste hazırlamak üzerine olcak.

kısaca a-f sütununun j-o satırı gibi olmasını istiyorum.bir makro düğmesi vasıtasıyla


herkese saygılar sevgiler.
 

Ekli dosyalar

Merhaba.

Kod:
Sub Test()
    Dim Bak As Long
    Dim IlkSatir As Long
    Dim Renk As Long
    IlkSatir = 2
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(IlkSatir, "A") <> Cells(Bak + 1, "A") Then
            If Renk = 14277081 Then
                Renk = 12566463
            Else
                Renk = 14277081
            End If
            Range(Cells(IlkSatir, "A").Address, Cells(Bak, "F").Address).Interior.Color = Renk
            If IlkSatir <> Bak Then Range(Cells(IlkSatir + 1, "E").Address, Cells(Bak, "F").Address) = ""
            IlkSatir = Bak + 1
        End If
    Next
End Sub
 
Son düzenleme:
Selam Muzaffer Hocam.Teşekkür ederim. tek eksik olan tekrarlayanlarıda silebilirmi hocam ?
 
Muzaffer hocam harika olmuş düzeltme için teşekkürler.

son naçizane bir sorum olcak g sütunundada tekrarlayan firma isimleri olduğunu düşünsek. g sütunundaki tekrarlayanlarıda e ve f de yaptığınız gibi teke indiren bir çözümüde ekleyebilirmisiniz
 
Yani A yerine G yi kontrol edeceğiz, öyle mi?
Hangi hücreler renklenmesi gerekiyor?
 
yine a kontrol hocam sadece g dede e f gibi tekrarlayanlar olcak..

hocam bide ben ağırlık ve ölçüyü girerken hızlı girmek için alt alta girmeyi düşünüyorum.ama onları yine kolilere dağıtmam gerekiyor.vaktiniz olduğundada diğer konuyada gözden geçirirseniz sevinirim orda cevap verilecek koduda burdakiyle birleştirip kombine bişi yapmak istiyorum.

 
OOO SÜPER HOCAM ÇALIŞTI 3 TEKRARLAYAN SÜTUN İÇİNDE.DEMEKİ Bİ ARALIK BELİRTMİŞ OLDUK..SAĞOLUN VAROLUN MUZAFFER HOCAM.

HERŞEY GÖNLÜNÜZCE OLSUN.
 
Geri
Üst