tarihler arası ürün listeleme ve toplamı

[yucel baygul]

ekteki dosyada yapmak istediğimi anlatmaya çalıştım.
ilgilenenler çok teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub sorgu()
Dim ilktarih As Date, sontarih As Date
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("F5:I65536").ClearContents
ilktarih = CDate(Range("G2").Value)
sontarih = CDate(Range("H2").Value)
sat = 5
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If CDate(Cells(i, "A").Value) >= ilktarih And _
    CDate(Cells(i, "A").Value) <= sontarih Then
        Cells(sat, "F").Value = sat - 4
        Cells(sat, "G").Value = Cells(i, "B").Value
        Cells(sat, "I").Value = Cells(i, "C").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[yucel baygul]

sn Orion2 ilginize çok teşekkürler. bu işlemin kullanıcı tanımlı fonksiyonla değilde yerleşik fonksiyonlarla olmasını istiyorum. bunu belirtmediğim için çok özür dilerim. size zahmet verdim. mümkünse bunu yerleşik fonksiyonlarla yapılması.

 

[Ali]

Yücel Bey, mükerrer yayın noları var bunlar için birşey belirtmediğiniz için herbirini ayrı ayrı istediğinizi düşünerek örnek bir dosya hazırladım.

Örneğiniz ektedir.

 

[yucel baygul]

sn Ali haklısınız bunu belirtmem gerekiyordu. mükerrer yayınlar dikkate alınmalı bunların taplamları yazılmalı. Örneğin EF-052 yayını bir hücrede (H5) olmalı bun karşında da (J5) toplamlar olmalı. bu şekilde yapılabilinirmi?
ilgilenenler çok teşekkürler.

 

[Ali]

sn Ali haklısınız bunu belirtmem gerekiyordu. mükerrer yayınlar dikkate alınmalı bunların taplamları yazılmalı. Örneğin EF-052 yayını bir hücrede (H5) olmalı bun karşında da (J5) toplamlar olmalı. bu şekilde yapılabilinirmi?
ilgilenenler çok teşekkürler.

Son istediğinize uygun örnek dosyanız ektedir.

 

[yucel baygul]

sn Ali cevap hemen geldi ama teşekküre geçiktim. sizlerden çok şeyler öğrendim işlerimde uyguladım. bu sitede bana göre çok faydalı şeyler yapılıyor. sizler iyiki varsınız. çok teşekkürler çoookk.

 

[Ali]

Rica ederim Yücel Bey,işinize yaramasına sevindim.Sizlerde iyiki varsınız,sizin gibi kaliteli ve seviyeli üyelerimiz bu forumda çok var. Bu formun başarısıda burada.