[Yardım]  Mükerrer taraması yap ve tekrar edeni renklendir

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Mükerrer taraması yap ve tekrar edeni renklendir

İleti#1)  Bedrettin DEMİRCİ » 01 Haz 2018 11:07

Değerli forum arkadaşlarım
Ekte bulunan dosyada belirli sütunları aşağı doğru tara ve her ikisindende tekrar eden var mı eğer varsa rengini boya gibi bir kod yazabilirmiisniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#2)  Ali ÖZ » 01 Haz 2018 13:42

İki sütunu birleştirip tekil bir değer elde edip koşullu biçimlendirme ile mükerrerleri bulabilirsiniz.Ya da aynı şekilde İki sütunu birleştirip tekil bir değer elde edip pivot table ile bulabilirsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9729
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#3)  Bedrettin DEMİRCİ » 01 Haz 2018 14:05

For döngüsü içinde if şartı ile bir kod yazılabilirse daha kullanışlı olur
haftada bir tekrarları bulmam gerekiyor
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#4)  Bedrettin DEMİRCİ » 02 Haz 2018 11:32

İki sütunda olan değerleri karşılaştırıp eğer varsa tekrar eden renk olarak belirtmesini istiyorum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#5)  Bedrettin DEMİRCİ » 02 Haz 2018 11:35

"H" Sütununda fatura numarası var
"J" de borç bakiyesi
"K" de alacak bakiyesi var

Eğer H ve J de bulunan değer H ve J nin diğer satırlarındada varsa belirt
aynı şekilde
H ve K da olanlarıda belirt
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#6)  Bedrettin DEMİRCİ » 05 Haz 2018 08:00

İki sütunda mükerrer kaydını bulmam gerekiyor
Yardımcı olursanız memnun olurum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#7)  AnoktaSerdar » 06 Haz 2018 01:24

H sütununda Evrak No var, J ve K sütunlarında ise sayısal değer (TL) var.

H ile J ve H ile K nasıl karşılaştırılacak anlayamadım ?
Kullanıcı avatarı
AnoktaSerdar
Yeni Başlamış
 
Adı Soyadı:A.Serdar ÖZBAY
Kayıt: 08 Ekm 2010 13:39
Konum: Emekli
Meslek: Elektrik Elektronik Mühendisi
Yaş: 53
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin / Anamur

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#8)  Bedrettin DEMİRCİ » 06 Haz 2018 10:56

Mesela "H-J" sütununu ele alalım

H de fatura numarası var
J de tutar var

Kontrol ederken hem fatura numarası hemde tutarı aynı olan diğer kayıtları bulacağız.
15. satırda H sütununda "25478" var J sütununda "2.254,56" var
Diğer satırlara bakarken H sütununda "25478" gördüğü yerde J sütunundaki tutara bakacak eğer orda da "2.254,56" varsa tekrar eden kayıt var demektir , bu bulduğu ikinci kaydı işaretleyecek

H ile K de aynı şekilde
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#9)  Bedrettin DEMİRCİ » 06 Haz 2018 15:31

Sadece H ve J sütununu yaparsak yeterli olur

Yani: H sütununda fatura numarası "A25478" ve J sütununda ise "2.254,56" TL yazdığını varsayarsak

Diğer satırlarda H sütunuunda fatura numarası "A25478" ve J sütununda "2.254,56" TL varsa onu bulup mükerrer kayıt olarak işaretlemesini istiyorum

Bu şekilde yapılabilirse yeterli olur.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#10)  tasad » 06 Haz 2018 19:16

Aşağıdaki kodları deneyin.
Kod: Tümünü seç
Sub Mukerrer_renklendir()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim i As Long
For i = 1 To Range("h65536").End(3).Row
  If WorksheetFunction.CountIf(Sayfa1.Range("H1:h" & i), Cells(i, "H")) > 1 Then
  If WorksheetFunction.CountIf(Sayfa1.Range("J1:J" & i), Cells(i, "J")) > 1 Then
   
    Sayfa1.Cells(i, "h").Interior.Color = vbGreen
    Sayfa1.Cells(i, "J").Interior.Color = vbGreen
    End If
    End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#11)  feraz » 06 Haz 2018 22:58

Alternatif olarak.

Kod: Tümünü seç
Sub Mukerrer()

   Dim i As Long, son As Long

    Application.ScreenUpdating = False
    With Sheets("Sayfa1")
        son = .Range("A" & Rows.Count).End(3).Row
        .Range("H2:J" & Rows.Count).Cells.Interior.Color = xlNone
        For i = 1 To son
          If WorksheetFunction.CountIfs(.Range("H2:H" & son), .Range("H" & i).Value, .Range("J2:J" & son), .Range("J" & i).Value) > 1 Then _
            .Range(.Range("H" & i), .Range("J" & i)).Interior.Color = vbGreen
        Next i
        .Range("I2:I" & Rows.Count).Cells.Interior.Color = xlNone
        Application.ScreenUpdating = True
    End With
    i = Empty: son = Empty

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5843
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#12)  feraz » 07 Haz 2018 02:09

Eğer yavaş çalışırsa kod alttaki dosyayı deneyebilirsin.

Yardımcı sayfa ve koşullu biçimlendirme ile yaptım.Anında işlem oluyor.


Kod: Tümünü seç
Sub rennkkk()
    Dim dic   As Object
    Dim arrH  As Variant
    Dim i As Integer
   
    Set dic = CreateObject("System.collections.arraylist")
    Application.ScreenUpdating = False
   
    With ThisWorkbook.Sheets("Sayfa1")
        .Range("H2:J" & Rows.Count).Cells.Interior.Color = xlNone
        arrH = .Range("H2:J" & .Cells(Rows.Count, "A").End(3).Row)
            For i = 1 To UBound(arrH)
                dic.Add (arrH(i, 1) & "|" & arrH(i, 3))
            Next
     End With
     
   With ThisWorkbook.Sheets("Sayfa1453")
      .Range("A:A").ClearContents
      .Range("A1").Resize(dic.Count, 1).Value = Application.Transpose(dic.toarray)
       dic.Clear
    End With

    Application.ScreenUpdating = True

i = Empty: Set dic = Nothing: Erase arrH
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5843
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Mükerrer taraması yap ve tekrar edeni renklend

İleti#13)  Bedrettin DEMİRCİ » 07 Haz 2018 08:31

İl denememde sadec ebu çalıştı
diğerleri çalışmadı görünüyor


feraz yazdı:Alternatif olarak.

Kod: Tümünü seç
Sub Mukerrer()

   Dim i As Long, son As Long

    Application.ScreenUpdating = False
    With Sheets("Sayfa1")
        son = .Range("A" & Rows.Count).End(3).Row
        .Range("H2:J" & Rows.Count).Cells.Interior.Color = xlNone
        For i = 1 To son
          If WorksheetFunction.CountIfs(.Range("H2:H" & son), .Range("H" & i).Value, .Range("J2:J" & son), .Range("J" & i).Value) > 1 Then _
            .Range(.Range("H" & i), .Range("J" & i)).Interior.Color = vbGreen
        Next i
        .Range("I2:I" & Rows.Count).Cells.Interior.Color = xlNone
        Application.ScreenUpdating = True
    End With
    i = Empty: son = Empty

End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#14)  feraz » 07 Haz 2018 09:03

Diğeride çalışıyor,tabii gönderdiğim dosyada test edersen.

En son yolladığım dosyayı kendine uyarlamak için önce Sayfa1453 adında sayfa açacaksın ve resimdeki gibi koşullu biçimlendirmeleri.

Ancak bu şekilde çalışır.1 saniyede 10000 satır tamam böyle.Sen de 2 saniye :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5843
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#15)  Bedrettin DEMİRCİ » 07 Haz 2018 09:25

Sayfa1453 te veriler var
onları kod ile mi atıyorsun
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#16)  feraz » 07 Haz 2018 09:35

Evet.

Kod: Tümünü seç
.Range("A1").Resize(dic.Count, 1).Value = Application.Transpose(dic.toarray)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5843
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#17)  Bedrettin DEMİRCİ » 07 Haz 2018 09:36

a1 de o veriler yok..
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#18)  feraz » 07 Haz 2018 09:38

Uzaktan bağlantıyla anlatayım abey.
Teamviewer ile bağlanayım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5843
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Mükerrer taraması yap ve tekrar edeni renklendir

İleti#19)  Bedrettin DEMİRCİ » 09 Haz 2018 08:36

Tamam feraz bey
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

Bumerang - Yazarkafe