[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 13: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#2)  Ali ÖZ » 01 Haz 2018 15: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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9367
 
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 16: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#4)  Bedrettin DEMİRCİ » 02 Haz 2018 13: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/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 13: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#6)  Bedrettin DEMİRCİ » 05 Haz 2018 10: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/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 03: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 15:39
Konum: Emekli
Meslek: Elektrik Elektronik Mühendisi
Yaş: 52
İ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 12: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#9)  Bedrettin DEMİRCİ » 06 Haz 2018 17: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#10)  tasad » 06 Haz 2018 21: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
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 164
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

İleti#11)  feraz » 07 Haz 2018 00: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5156
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#12)  feraz » 07 Haz 2018 04: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5156
 
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 10: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 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#14)  feraz » 07 Haz 2018 11: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5156
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

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

Sayfa1453 te veriler var
onları kod ile mi atıyorsun
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

İleti#16)  feraz » 07 Haz 2018 11: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5156
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

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

a1 de o veriler yok..
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE

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

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

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

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

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

Tamam feraz bey
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1554
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-ETLİK/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 2 misafir

Bumerang - Yazarkafe