Sayfalar arası veri aktarım

[acetinnster]

Arkadaşlar veri aktarımı ile ilgili bir konuda yardımcı olabilirmisiniz.
Herkese teşekkürler.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub ekle()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
If s2.[AK4] = "" Then
    MsgBox "Önce tarih belirtiniz!", vbCritical
    s2.Activate
    s2.[AK4].Select
ElseIf IsDate(s2.[AK4]) = False Then
    MsgBox "Lütfen tarih olarak düzeltiniz!", vbCritical
    s2.Activate
    s2.[AK4].Select
ElseIf WorksheetFunction.CountIf(s2.[A4:AJ4], s2.[AK4]) = 0 Then
    MsgBox "Belirtilen tarih listede bulunmuyor!", vbCritical
    s2.Activate
    s2.[AK4].Select
Else
    sut = WorksheetFunction.Match(s2.[AK4], s2.[A4:AJ4], 0)
    For Each hucre In s2.Range(s2.Cells(5, sut), s2.Cells(68, sut))
        If hucre <> "" And hucre.Interior.Color <> xlNone Then
            s1.Cells(hucre.Row, "F") = s1.Cells(hucre.Row, "F") + hucre.Value
            hucre.Interior.Color = xlNone
        End If
    Next
End If
End Sub

 

[acetinnster]

YUSUF44 hocam her zamanki gibi süpersiniz Allah razı olsun mübarek ramazan günü çok duamı aldınız