Y

Çözüldü Departmanlara Pdks Hakaretlerini 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
Diğer
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 1 departmanın C sütunundaki sicil numaralarına göre aktarım yapmaktadır. Burada yapmak istediğim şey bir tek departmana değil de 1 den 12 ye kadar olan departmanların C sütunlarındaki sicil numaralarına göre aktarım yapılmasının sağlamak için mevcut kodun iyileştirilmesi hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Çözüm
@YasarPiskin

Kodu şöyle değiştirip dener misiniz?

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ş yapmanız gerekmektedir.
(12 satır)
@YasarPiskin

Kodu şöyle değiştirip dener misiniz?

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ş yapmanız gerekmektedir.
(34 satır)
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst