Hafta içi gün saydırma

[aceylan5741]

arkadaşlar merhaba;

çok ii olmasada biraz makro yazmayı öğrendim. ama öğrendiklerimle bazı şeyleri yapamıyorum.
ekteki çalışmada rapor alan personellerin hafta içi kaç gün rapordan dolayı gelmediklerini bulmam lazım. örneğin 01/04/2011 il 15/04/2011 tarihleri arası raporlu olan biri 13 gün hafta içi 2 gün hafta tatili olmak üzere toplam 15 gün raporlu oluyor. işte bana bu 13 günü bulacak bir makro lazım. yardımcı olabilir misiniz?

 

[mesudiye_052]

Selamlar;

istediğiniz böyle birşey mi

=TOPLA.ÇARPIM((--(HAFTANINGÜNÜ(SATIR(DOLAYLI(E2&":"&F2));2)<7)))

?
Saygılarla;

 

[aceylan5741]

yazdığın formül işimi görüyo mesudiye 052. emeğin için teşekkür ederim. Bunu makroda nasıl yapabileceğimi biliyomusun?

 

[mesudiye_052]

Selamlar;

Formül ile

=(A2-A1+1)-AŞAĞIYUVARLA((A2-A1+HAFTANINGÜNÜ(A1;2))/7;0)+EĞER(HAFTANINGÜNÜ(A1;2)=7;1;0)

Kullanıcı tanımlı Formül ile
Pazar için =Gunhesapla(A1;A2;7) şeklinde kullanmalısınız.

Pazartesi günkodu=1 Salı günkodu=2 ......Pazar günkodu=7 şeklinde kullanabilirsiniz.

Function Gunhesapla(ilktarih As Date, sontarih As Date, Gunkodu As Byte) As Integer
  Dim Gunler As Date
  Dim Count As Integer
    Application.Volatile
  For Gunler = ilktarih To sontarih
    If WorksheetFunction.Weekday(Gunler, 2) = Gunkodu Then
      Count = Count + 1
    End If
  Next
Gunhesapla = (sontarih - ilktarih + 1) - Count
End Function