Veri aktarımı

[karaelmas4467]

ekte gönderdiğim dosyadanda anlaşılacağı gibi sayfalar arası veri aktarımını nasıl yapabilirim. yardımlarınız için şimdiden teşekürler.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Dosyayı istediğniz şekilde günceleldim.
Aykları sayfa adı olarak girdim.

Sub rapor()
Dim i As Long, j As Byte, syf As String, t As Long
Set s1 = Sheets("VERİ")
Application.ScreenUpdating = False
For t = 1 To Worksheets.Count
    If Sheets(t).Name <> "VERİ" Then
        Sheets(t).Range("C5:AH65536").ClearContents
    End If
Next t
For i = 4 To s1.Cells(65536, "B").End(xlUp).Row
    syf = Format(Month(s1.Cells(i, "B").Value), "00") & "." & Year(s1.Cells(i, "B").Value)
    Set s2 = Sheets(syf)
    Set k = s2.Range("C5:C65536").Find(s1.Cells(i, "D").Value, , xlValues, xlWhole)
    If k Is Nothing Then
        s2.[C65536].End(xlUp).Offset(1, 0) = s1.Cells(i, "D").Value
    End If
    Set c = s2.Range("C5:C65536").Find(s1.Cells(i, "D").Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        For j = 4 To 34
                If Day(s1.Cells(i, "B").Value) = s2.Cells(4, j).Value Then
                s2.Cells(c.Row, j).Value = s2.Cells(c.Row, j) + 1
                Exit For
            End If
        Next j
    End If
Next i
Application.ScreenUpdating = True
Set s1 = Nothing
Set s2 = Nothing
MsgBox "RAPOR ÇIKARILDI..!!"
End Sub

 

[karaelmas4467]

çok teşekür ederim. çok güzel bir çalışma yapmışsın emeğine sağlık; bir isteğim daha olacak: veri sayfasındaki tarihler farklı aylarda olduğu zaman aylara göre yeni sayfa oluşturup aylık rapor alabilirmiyim.

 

[Orion1]

çok teşekür ederim. çok güzel bir çalışma yapmışsın emeğine sağlık; bir isteğim daha olacak: veri sayfasındaki tarihler farklı aylarda olduğu zaman aylara göre yeni sayfa oluşturup aylık rapor alabilirmiyim.

İstediğiniz değişiklikleri yaptım.
Önceki mesajımdan dosyayı indirip deneyebilirsiniz.

 

[karaelmas4467]

teşekür

sadece ve sadece teşekür ederim. emeğinize saygılar..

 

[karaelmas4467]

yazdığınız kodlar üzerinden raporlamayı 12 aylık olarak ayrı ayrı sayfalara yapmaya çalıştım ama beceremedim. sizden tekrar yardım istesem ekte yolladığım şekilde çok şey istemiş mi olurum acaba....

 

[Orion1]

yazdığınız kodlar üzerinden raporlamayı 12 aylık olarak ayrı ayrı sayfalara yapmaya çalıştım ama beceremedim. sizden tekrar yardım istesem ekte yolladığım şekilde çok şey istemiş mi olurum acaba....

dosyanız hazır.
Sayfa adlarına dikkat ediniz.Sayfa adları örnek veriyorum ocak 2007 için 01.2007 olmalı. 01=1nci ay 2007=yıl.bunu takiben şubat ayıda sayfa adı 02.2007 olmalıdır.Dosyayı önceki mesajımdan indirebilirisiniz.
İyi çalışmalar.