Çözüldü Puantaj Hareketlerini Departmanlara Aktarma

YasarPiskin · 29 Mar 2023

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.

Ömer BARAN · 29 Mar 2023

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.

VBA:

Görüntülemek için giriş yapmalısınız.
(42 satır)

YasarPiskin · 29 Mar 2023

Çok teşekkür ederim.

Z	Çözüldü Günlük puantaj hareketlerinin puantaj defterine aktarılması Feyzullah 6 Ara 2020 Excel Makro Soruları
	Çözüldü Puantaj Sayfasına Bazı Kurallar Dahilinde Aktarma sedat2161 28 Eyl 2020 Excel Makro Soruları
Y	Çözüldü Günlük Pdks Hareketlerini Aktarma YasarPiskin 22 Haz 2023 Excel Makro Soruları
Y	Çözüldü Departmanlara Pdks Hakaretlerini Aktarma YasarPiskin 21 Mar 2023 Excel Makro Soruları
T	Çözüldü İki Dosya Arasındaki Fark - PUANTAJ - KBS __TR__ 22 Kas 2019 Excel Makro Soruları

Çözüldü Puantaj Hareketlerini Departmanlara Aktarma

Gizliliğinize önem veriyoruz,