Rapor Sayfasına Yinelenen İsimleri Tekrar Adetleriyle Getirme

  • Konuyu başlatan Konuyu başlatan hakki83
  • Başlangıç tarihi Başlangıç tarihi
hakki83

hakki83

Kullanıcı
Katkı: %2
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar

Örnek1’de Sayın @Ömer BARAN hocamın kodları olan dosya vardır.
Örnek2’de ise yine @Ömer BARAN hocamın alternatif kodları vardır.

Bu dosyalara Rapor sayfalarındaki D sütununa Tekrar eden isimleri;
E sütununa da Tekrar adetlerini almak istiyorum.

Fakat sayın hocamın kodlarına ilave olmasındansa, ayrı bir kod olursa daha kolay olur, Call ile çağırır ve hem bu dosyalarda hem de başka dosyalarda kolayca kullanırım diye düşündüm.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@hakki83

Seçenek1: Mevcut kodların MsgBox satırının üstüne Call BENZERSIZ_LISTELE_SAY diye bir satır ekleyip şu kodu çağırabilirsiniz.
Bu; A-C sütunlarına veri yazdırma işi bittikten sonra işlem yaptırmak oluyor.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap

Seçenek2: Burada; A-C sütunlarına veri yazılmakta iken aynı anda da D-E sütunu doldurulur.
Bunun için For... Next döngüsünün içindeki If...End If blokunda End If satırının üstüne şu satırları ekleyebilirsiniz.
Bu kod satırları örnek2 isimli belgeniz için. örnek1 isimli belge için de bu yöntemi kullanmak isterseniz 2 yerde bulunan
hcr.Value ibaresini h.Cells(hsat, hsut) olarak değiştirmeniz lazım.

NOT: Bu yöntem kullanılacaksa;
mevcut kodlarınızın baş kısmındaki ...ClearContents satırında A-E sütunlarını boşalttırmalısınız tabi.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (4 satır). Giriş Yap
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst