(12/11/2009, 02:03)maytas yazdı: Merhaba.
Sayın axikral, alttaki kodları bir deneyin bakalım sitediğinize cevap verecek mi.
PERSONEL PERFORMANS sayfasında B4 hücresine yazdığınız tarihi D4:AH4 aralığında arıyor ve bulunca alttaki 6 satıra B4 hücresinin aştındaki 6 satırı değerlerini ekliyor.
Yanılmıyorsam istediğiniz buydu.
Kodları bir butona atayın ve hergün yeni değerleri girdiğinizde düğmeye tıklamanız yeterli olacak.

Kod:

Sub Aktar()
    Dim Alan As Range, Hucre As Range, Gunun_Tarihi As Range, Tarih As Date, Satir As Integer
    With Worksheets("PERSONEL PERFORMANS")
        Set Gunun_Tarihi = .Range("B4")
        Tarih = DateSerial(Year(Gunun_Tarihi), Month(Gunun_Tarihi), Day(Gunun_Tarihi))
        Set Alan = .Range("D4:AH4")
        For Each Hucre In Alan.Cells
            If CDate(Hucre.Value) = Tarih Then
                For Satir = 1 To 6
                    Hucre(1 + Satir, 1) = Hucre(1 + Satir, 1) + Gunun_Tarihi(1 + Satir, 1)
                Next
                Exit For
            End If
        Next
    End With
End Sub

Bence çok başarılı bir kod. Elinize sağlık maytas.