günü gelen tutarın ilgili başka hücreye aktarılması

[everwin]

günü gelen bir hücredeki tutarın başka bir hücreye aktarılmasını yapabilmemiz mümkünmüdür.ekteki excel sayfasında ayrıntılı açıklamayı yapmaya çalıştım.

şimdiden yardımlarınız için teşekkürler

 

[hamitcan]

Sub auto_open()
    For i = 9 To 14
        If Date = Cells(5, i) Then
        If Cells(6, i) <> "" Then
            [c6] = Cells(6, i)
        End If
        End If
    Next
End Sub

 

[everwin]

sayın hamitcan yardımınız için teşekkür ederim.
fakat uyguladım fakat çalışmadı acaba yanlış bişeylermi yapıyorum.

 

[hamitcan]

1.Makroları etkinleştiriyor musunuz ?
2.Tarihlere dikkat ediyor musunuz ?