tarihe göre raporun sayfaya aktarılması

[efturgut]

arkadaşlar mrb. forumda bulmuş olduğum bir çalışmayı bende editliyerek rent a car programı yapmaya çalışıyorum. tabiki eksikleri vardır fakat ustalar sayesinde güzel bir çalışmaya dönüşeceğine eminim.
takıldığım nokta şu
1- ACV sayfasında araçların alış tarihi P sütununa yazılıyor ve benim isteğim şu B4' hücresine atıyorum OCAK yazdım ve bir buton oluşturarak bana ocak ayındaki hesapları ay sayfasına aktarıp bir rapor sunmasını istiyorum. çalışma ektedir.
vba şifresi 9798

 

[usubaykan]

Merhaba;

Aşağıdaki kodu deneyiniz. P sütunu baz alınarak yapıldı.

Option Explicit

Option Explicit

Sub Aktar()
Dim U As Long, Son_Satır As Long, S_ACV As Worksheet, S_AY As Worksheet

Set S_ACV = Sheets("ACV")
Set S_AY = Sheets("AY")
S_AY.Range("B2:D" & Range("D65536").End(3).Row).ClearContents
Son_Satır = S_AY.Range("D65536").End(3).Row
    For U = 10 To S_ACV.Range("T65536").End(3).Row
        If Format(S_ACV.Cells(U, "P"), "MMMM") = WorksheetFunction.Proper(S_ACV.Range("B4")) Then
            Son_Satır = Son_Satır + 1
            S_AY.Cells(Son_Satır, "B") = S_ACV.Cells(U, "B")
            S_AY.Cells(Son_Satır, "C") = S_ACV.Cells(U, "C")
            S_AY.Cells(Son_Satır, "D") = S_ACV.Cells(U, "T")
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır"
End Sub

 

[efturgut]

sayın usubaykan ilginiz için teşekkürler. ama beceremedim malesef. eğer mümkünse siz ekleyip dosyayı aktarabilirseniz çok sevinirim.

 

[efturgut]

Sayın Usubaykan ilginiz için teşekkür ederim. fakat beceremedim .eğer siz düzenlemeyi yapıp ekleyebilirseniz sevinirim.

 

[usubaykan]

Sayın Usubaykan ilginiz için teşekkür ederim. fakat beceremedim .eğer siz düzenlemeyi yapıp ekleyebilirseniz sevinirim.

Merhaba;

Dosyanız ektedir.

 

[efturgut]

Sayın Usubaykan çok teşekkür ederim süper oldu.

 

[usubaykan]

Sayın Usubaykan çok teşekkür ederim süper oldu.

Rica ederim ;-)