Makro Yardım

[iplikci_80]

Arkadaşlar EK 'te gönderdiğim örnekteki makroyu, Sayfa 1 deki A5 ve B5 hücrelerindeki tarihleri arasındaki günlerden Sayfa 2 deki A sütundaki tarihlerden kaç gün var ise sayısını Sayfa 1 deki C5 hücresine B5 teki tarih ile toplayarak getirilmesini sağlayacak ve aşağı doğru çoğaltacak şekilde düzeltmek istiyorum. Yardımlarınız bekliyorum, teşekkürler.

 

[asi_kral]

Merhaba
Sorunuzdan hiç bir şey anlamadım nasıl olacak_?
Örnek vererek anlatırsanız yardımcı olmaya çalışırım.

 

[iplikci_80]

Öncelikle ilginize teşekkür ederim. EK'teki örnek umarım gibi olmuştur,

 

[asi_kral]

Merhaba

Option Explicit
Sub asi_kral()
Dim S1 As Worksheet, S2 As Worksheet, SAT As Long
Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
SAT = S2.Range("A" & Rows.Count).End(xlUp).Row
With WorksheetFunction
S2.Range("A1:A" & SAT).AutoFilter field:=1, Criteria1:=">=" & _
CDbl(S1.Range("A5")), Operator:=xlAnd, Criteria2:="<=" & _
CDbl(S1.Range("B5"))
SAT = .Subtotal(3, S2.Range("A2:A" & SAT))
S1.Range("C5") = S1.Range("B5") + SAT
S2.Range("A1:A" & SAT).AutoFilter
End With
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

 

[iplikci_80]

Çok teşekkürler. Belge üzerinde denedim ama çalıştıramadım, rica etsem gönderdiğim örnek üzerinde uygulayıp gönderebilir misiniz.

 

[asi_kral]

Çok teşekkürler. Belge üzerinde denedim ama çalıştıramadım, rica etsem gönderdiğim örnek üzerinde uygulayıp gönderebilir misiniz.

İnceleyin lütfen.