• DİKKAT

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

Koşullu formül ile yinelenleri bulunan dosyada, makrolu çözüm nasıl olur?

Üstadım,

18 mesaja eklediğiniz kodu, gerçek dosyama tamamen uyarlayamadım. Şöyleki:

ÇİFT KAYIT yazısı önceki dosyada 16. sütundayken, ekli dosya yapımda 20. sütundadır. Kod aralığında düzeltme yaptım ve ÇİFT KAYIT yazısını, aralığı T2:T1800 yapınca istediğim sütuna aldım.

Ancak, Filtreme için kodunuzun hangi satırlarında değişikliği bir türlü başaramadım.
Gerçek dosyamın yapısına ilişkin işlem sayısı küçük olanı ektedir.
 

Ekli dosyalar

215460
Aldığım hata iletisi
 
Son düzenleme:
Birden fazla mesaj yaratıldığı için silindi
 
Tek mesaj kaydet'e tıklanınca çoğaldığı için silindi
 
215462
Mesaj 23 hata ekranı
 
Son düzenleme:
Merhabalar,

27. iletiye eklediğiniz dosya kodunu , gerçek dosyama yükledim. Ekteki dosyada da görüleceği gibi, sonuç yine olumsuz oldu. Yukarıda 23 ve 26 nolu mesajlardaki hatayı yine alıyorum.

WinRar dosyası ektedir. Sizin değerli zamanınızı aldığım için üzgünüm.
Yardımınızı bekliyorum.
 

Ekli dosyalar

Merhaba, ilgili satırı aşağıdaki gibi değiştirip denermisiniz..

Kod:
Range(Cells(1, 20), Cells(Cells(Rows.Count, 20).End(3).Row, 20)).AutoFilter Field:=1, Criteria1:="ÇİFT KAYIT"
 
Üstadım, işlem tamamdır. Sağ olun, var olun.

Size zahmet verdim ve değerli zamanınızı aldığım için üzgünüm. Hakkınızı helâl eder misiniz?
 
Estağfurullah zahmet verecek bir durum yok , sorununuzun çözülmesine sevindim , hakkım geçti ise helal olsun , iyi çalışmalar dilerim..
 
Geri
Üst