Çözüldü Pdks Puantajı Şubelere Aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

YasarPiskin

Yıllık Forum Üyesi

Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Bir önceki konu kapandığı için tekrar açıyorum. FACE sayfasındaki mevcut kod A sütunundaki sicil numaralarının günlük hareketlerini D sütunundaki tarih esas alınarak N1 hücresindeki YOLLA butonu ile departmanları temsil eden 1, 2, 3.... sayfalarının C sütunundaki sicil numaralarına göre aktarım yapmaya çalıştığım mevcut kod sadece 3 nolu departmana aktarım yapmaktadır. Her departmandaki sicil tek yerde kullanılmaktadır. Mevcut kodu her departmana aktarım yapmasını sağlayacak şekilde iyileştirilmesi hususunda yardımlarınızı rica ediyorum.​
 

Ekli dosyalar

  • PDKS Revize.xlsb
    1.5 MB · Görüntüleme: 2
Çözüm
1'den 12'ye kadar sayfalar olduğunu görünce, bunların AY sayfaları olduğunu düşünmüş ve
FACE isimli sayfada D sütunundaki TARİH'in ay kısmına bakarak bilginin hangi sayfaya yazdırılacağı kararı verilecek şekilde
kod önerisinde bulunmuştum.

Her neyse, kodu şöyle değiştirin.

NOT: Forum yazılımımızdan kaynaklı bir sorun nedeniyle ilgili yere yazamadığım,
kodda yer alan If sf.Range("D" & i) Mod 7 = 1 Or Application.Count(Sheets.... kısmındaki
Count ibaresini CountIf olarak değiştirip kullanın.

VBA:
Görüntülemek için giriş yapmalısınız.
(6 satır)
1'den 12'ye kadar sayfalar olduğunu görünce, bunların AY sayfaları olduğunu düşünmüş ve
FACE isimli sayfada D sütunundaki TARİH'in ay kısmına bakarak bilginin hangi sayfaya yazdırılacağı kararı verilecek şekilde
kod önerisinde bulunmuştum.

Her neyse, kodu şöyle değiştirin.

NOT: Forum yazılımımızdan kaynaklı bir sorun nedeniyle ilgili yere yazamadığım,
kodda yer alan If sf.Range("D" & i) Mod 7 = 1 Or Application.Count(Sheets.... kısmındaki
Count ibaresini CountIf olarak değiştirip kullanın.

VBA:
Görüntülemek için giriş yapmalısınız.
(37 satır)
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Konuyu başlatan
Yıllık Forum Üyesi
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
2
Geri
Üst