[Yardım]  Uzun zamandır çözemediğim Tekrarlar için kod talebi

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

Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#1)  Bedrettin DEMİRCİ » 19 Haz 2018 11:15

Değerli moderatör ve yönetici arkadaşlardan hassaten ricamdır.
Eğer bu şekilde kod yazılabilirse evet ama değilse örnek dosya göndereceğim..

H ve J sütunlarını tarayacak
Hem H de olan ile J de olan diğer satırlarda varsa belirt

Mesela
Aynı satırda "H" sütununda "25487" var "J" sütununda ise "25.124.45" var
Diğer satırlarda eğer "H" sütununda "25487" ve "J" sütununda da "25.124.45" varsa işaretle. ya renge boya yada satırın sonuna tekrar yaz..

Eğer bu olursa ilave olarak birde "A" sütunu olacak
Aynı satırda A-H-J de olanlar diğer satırlarda da varsa....

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: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#2)  Bedrettin DEMİRCİ » 23 Haz 2018 11:23

Yani Kısaca
İki sütundaki değerlerin diğer satırlardada olduğunu kontrol etmek istiyorum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#3)  Tarkan VURAL » 23 Haz 2018 12:32

Merhaba,
Yeni bir sütunda iki sütunu metin biçiminde birleştirip, yeni bir sütunda EĞERSAY formülü ile karşılaştırma yapabilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Uzun zamandır çözemediğim Tekrarlar için kod t

İleti#4)  Bedrettin DEMİRCİ » 27 Haz 2018 12:41

Tarkan VURAL yazdı:Merhaba,
Yeni bir sütunda iki sütunu metin biçiminde birleştirip, yeni bir sütunda EĞERSAY formülü ile karşılaştırma yapabilirsiniz.



Merhaba Tarkan bey
İlginiz için çok teşekkür ederim..
Verdiğniz formül güzel ama vba ile yardımcı olurmusunuz ?

Veya müsait olan başka bir yönetici arkadaştan rica ediyorum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

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

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#5)  tasad » 27 Haz 2018 19:43

Boş modüle kaydedin.
Kod: Tümünü seç
Sub Mukerrer_renklendir()
Application.ScreenUpdating = False
Dim i As Long, a As Long
For a = 2 To Cells(Rows.Count, "H").End(xlUp).Row
Cells(a, "R") = Cells(a, "H").Text & Cells(a, "J").Text
Next a

For i = 1 To Range("R1000000").End(3).Row
If WorksheetFunction.CountIf(Sayfa1.Range("R1:R" & i), Cells(i, "R")) > 1 Then
Sayfa1.Cells(i, "R").EntireRow.Interior.Color = vbGreen
End If
Next i
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#6)  Bedrettin DEMİRCİ » 28 Haz 2018 10:44

Formül olmadan direk sütunlar üzerinde tarama yapsa ve tekrar edeni işaretlese olmaz mı ?
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#7)  tasad » 28 Haz 2018 11:24

Önceki kodlarda formül yok zaten.Bir de aşağıdaki kodları deneyin.
Kod: Tümünü seç
Sub mukerrer_renklen()
Dim i As Long

With Sheets("Sayfa1")
For i = 2 To .Cells(Rows.Count, "h").End(3).Row
If .Cells(i, "h") & .Cells(i, "j") = .Cells(i - 1, "h") & .Cells(i - 1, "j") Then
.Range(Cells(i, "a"), Cells(i, "m")).Interior.Color = vbGreen
             
  End If
  Next
  End With
i = Empty
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#8)  tasad » 28 Haz 2018 11:49

H ve J de değerler aynı olabilir fakat A daki değerler farklı olabilir.
Bundan dolayı A sütununu da koda ekledim. A-H-J de olanlar diğer satırlarda da varsa renklendirir.
Kod: Tümünü seç
Sub mukerrer_renklen()
Dim i As Long

With Sheets("Sayfa1")
For i = 2 To .Cells(Rows.Count, "a").End(3).Row
If .Cells(i, "a") & .Cells(i, "h") & .Cells(i, "j") = .Cells(i - 1, "a") & .Cells(i - 1, "h") & .Cells(i - 1, "j") Then
.Range(Cells(i, "a"), Cells(i, "m")).Interior.Color = vbGreen
             
  End If
  Next
  End With
i = Empty
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#9)  Bedrettin DEMİRCİ » 28 Haz 2018 14:57

End If
  Next
  End With

Bu üç satır kırmızı oldu
neden aceba
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#10)  Bedrettin DEMİRCİ » 28 Haz 2018 15:03

'End if

Bu şekilde değiştirdim ama şu resimdeki hatayı verdi
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: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#11)  tasad » 28 Haz 2018 15:07

End If ' in başındaki tırnak işaretini sil.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#12)  Bedrettin DEMİRCİ » 28 Haz 2018 15:10

Zaten hata verdikten sonra tırnak yazdım
hatadan kurtarmak için
yoksa üç satırda kırmızı gözüküyordu..

Yinede sildim aynı resimdeki hatayı verdi
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#13)  Bedrettin DEMİRCİ » 28 Haz 2018 15:13

End if ten önceki boşluğu sildim hata vermedi ama renklendirme de yapmadı
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#14)  Bedrettin DEMİRCİ » 28 Haz 2018 15:15

Aşağıdaki kodu aynen kullandım ama reklendirme olmadı
tekrar edenleri bulmadı veya başka bir sorun oldu

Sub mukerrer_renklen_yeni()
Dim i As Long
With Sheets("Sayfa1")
For i = 2 To .Cells(Rows.Count, "a").End(3).Row
If .Cells(i, "a") & .Cells(i, "h") & .Cells(i, "j") = .Cells(i - 1, "a") & .Cells(i - 1, "h") & .Cells(i - 1, "j") Then
.Range(Cells(i, "a"), Cells(i, "m")).Interior.Color = vbGreen
End If
Next
End With
i = Empty
End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#15)  tasad » 28 Haz 2018 15:16

Sayfa ismini kontrol et belki farklı olabilir,yada örnek bir dosya ekle.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#16)  Bedrettin DEMİRCİ » 28 Haz 2018 15:21

Tamam
Çalıştı
:)
Sayfa ismi farklı imiş

ama bir konu var
Tekrar eden satır hemen altında ise yeşile boyuyor diğer satırlarda ise boyamıyor
Onu çözebilirmisiniz

Yani aynı değerler 25.satırda 30.satırda 36.satırda olabilir o sebepten sadece bir önceki değilde tümüne bakıp tekrar edeni bulabilirse tam istediğim olacak
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#17)  tasad » 28 Haz 2018 15:36

A sutunu küçükden büyüğe sıralı ise atlama yapmaz.Yinede bir kaç satırı kontrol edin
bu şekilde hata var ise düzeltiriz.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#18)  Bedrettin DEMİRCİ » 28 Haz 2018 15:39

Bu şekilde hiç hatasız çalışıyor
Çok güzel. hızlı çalışıyor
ama
A sütunu sıralı olmaz Muhasebe kodları var a sütununda

Mesela 1000 satır var
Aynı kayıttan 10. satırda 50. satırda ve 160. satırda olabiliyor
Bunları bulabilirmisiniz ?
Bu şekilde kodu değiştirebilirmisiniz
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 11:45
Meslek: MUHASEBE
Yaş: 37
İleti: 1539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara-GİMAT

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#19)  tasad » 28 Haz 2018 16:04

Muhasebe kodları da 100 den 900 kadar sıralı.Küçükden büyüğe sıralama yaptırırsak sorun çözülür zanediyorum.
Yada örnek bir dosya ekleyin bakalım.Ne nerdedir bilmeden çözüm bulmak zorlaşıyor.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Uzun zamandır çözemediğim Tekrarlar için kod talebi

İleti#20)  tasad » 28 Haz 2018 16:30

Aşağıdaki kodları deneyin.Sayfa ismini değiştirmeyi unutmayın.
Kod: Tümünü seç
Sub mukerrer_renklen()
Dim i As Long

With Sheets("Sayfa1")
.Range("A2:P" & .Cells(Rows.Count, "A").End(3).Row).Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo

For i = 2 To .Cells(Rows.Count, "a").End(3).Row
If .Cells(i, "a") & .Cells(i, "h") & .Cells(i, "j") = .Cells(i - 1, "a") & .Cells(i - 1, "h") & .Cells(i - 1, "j") Then
.Range(Cells(i, "a"), Cells(i, "m")).Interior.Color = vbGreen
             
  End If
  Next
  End With
i = Empty
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 5 misafir

Bumerang - Yazarkafe