Aylık bazda yıl raporu

[umooth]

Merhaba,
Benim yapmak istediğim bir sütunda tarihler diger sutunda fiyatlar var.. yıllık olarak hazırlayacağım bu tabloda,A sutununa girilen sıralı olmayan tarihlerin yanındaki tutarları(B sutunu) otomatik çekip yıllık sutunundaki ilgili aya yazmak.

ilgili dosya ektedir daha rahat anlaşılacaktır.

şimdiden çok teşekkür ederim

 

[Orion1]

Merhaba,
Benim yapmak istediğim bir sütunda tarihler diger sutunda fiyatlar var.. yıllık olarak hazırlayacağım bu tabloda,A sutununa girilen sıralı olmayan tarihlerin yanındaki tutarları(B sutunu) otomatik çekip yıllık sutunundaki ilgili aya yazmak.

ilgili dosya ektedir daha rahat anlaşılacaktır.

şimdiden çok teşekkür ederim

B sütunundaki tarikhleri demek istediniz sanırım .çünkü tutarlar c sütununda.
Dosyanız ektedir.

Sub tarih()
Dim i As Long, sat As Long, k As Integer, sut As Integer, sat2 As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("E3:IV65536").ClearContents
sat = Cells(65536, "B").End(xlUp).Row
sut = Cells(2, 256).End(xlToLeft).Column
For i = 3 To sat
    For k = 5 To sut
        If Month(Cells(i, "B").Value) = Month(Cells(2, k).Value) And _
        Year(Cells(i, "B").Value) = Year(Cells(2, k).Value) Then
            sat2 = Cells(65536, k).End(xlUp).Row + 1
            Cells(sat2, k).Value = Cells(i, "C").Value
            Exit For
        End If
    Next k
Next i
Application.ScreenUpdating = True
MsgBox "Aktarım tammalandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[umooth]

çok çok çok teşekkür ederim ellerine sağlık harika olmuş..

 

[Orion1]

çok çok çok teşekkür ederim ellerine sağlık harika olmuş..

Rica ederim.
İyi çalışmalar.