Puantaj Hareketlerini Departmanlara Aktarma

[YasarPiskin]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

Türkçe

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 koddaki departman isimlerinin 1, 2, 3.... değil de Örnek teki gibi OFİS, TUZLA, TARSUS..... gibi isimlerinde olması halinde çalışacak şekilde iyileştirilmesi hususunda yardımlarınızı rica ediyorum.​

 

Üsttekiyle Aynı Olanlarda Uyarı Verme

Günlük Puantajı Şubelere Aktarma

[Ömer BARAN]

Mevcut kodu aşağıdakiyle değiştirin.

Gerçek belgenizde, FACE, TATİL gibi departman adı olmayan başka sayfalar da varsa
bunların isimlerini de kodda mevcut şu satıra eklersiniz.

haric = Array("FACE", "TATİL")

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.

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

 

[YasarPiskin]

Çok teşekkür ederim.