Rapor dosyasına isim tekrar kodları eklemesi

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

Kısa Açıklama

Rapor dosyasına isim tekrar kodları eklemesi isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
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

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

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)

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.


VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst