Tekrarlayan veriler ve Biçimlendirme

Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Ç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

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,165
Excel Vers. ve Dili
2019 Türkçe
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:
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
Selam Muzaffer Hocam.Teşekkür ederim. tek eksik olan tekrarlayanlarıda silebilirmi hocam ?
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,165
Excel Vers. ve Dili
2019 Türkçe
Yani A yerine G yi kontrol edeceğiz, öyle mi?
Hangi hücreler renklenmesi gerekiyor?
 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.

 
Katılım
9 Ekim 2021
Mesajlar
335
Excel Vers. ve Dili
excell 2013
Altın Üyelik Bitiş Tarihi
19-12-2023
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.
 
Üst