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

[assenucler]

ÇÖZÜLDÜ

 

[assenucler]

Ü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.

 

[assenucler]

Aldığım hata iletisi

 

[assenucler]

Birden fazla mesaj yaratıldığı için silindi

 

[assenucler]

Tek mesaj kaydet'e tıklanınca çoğaldığı için silindi

 

[assenucler]

Mesaj 23 hata ekranı

 

[EmrExcel16]

Deneyiniz..

 

[assenucler]

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.

 

[EmrExcel16]

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

Range(Cells(1, 20), Cells(Cells(Rows.Count, 20).End(3).Row, 20)).AutoFilter Field:=1, Criteria1:="ÇİFT KAYIT"

 

[assenucler]

Ü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?

 

[EmrExcel16]

Estağfurullah zahmet verecek bir durum yok , sorununuzun çözülmesine sevindim , hakkım geçti ise helal olsun , iyi çalışmalar dilerim..