Hücredeki değeri o günün tarihini gösteren satıra işlemek?

[dumanibo]

Sayfa2'de A sütununda yılın günleri yazılı. (01.01.2007'den 31.12.2007'ye kadar). Sayfa1'deki A1 hücre değeri hergün değiştirilecek. Sayfa1'de A1 hücresindeki değeri Sayfa2'de o günün tarihini gösteren hücrenin sağındaki hücreye nasıl işleyebiliriz? Mesela bugün 15.02.07. A sütunundaki bu değerin bulunduğu satırın yanındaki B sütunundaki hücreye nasıl işleyebiliriz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1in kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [sayfa2!a1:a65536].Find(Date).Next = [a1]
End Sub

 

[ileriexcel]

Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Range("a1").Copy
s2.Select
Range("a1").Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub

 

[Qene]

Sub arama()
Sayfa2.Range("A1:A366").Find(Date).Offset(0, 1) = Sayfa1.Range("A1").Value
End Sub

 

[dumanibo]

İlgilenen arkadaşlara teşekkür ederim. Sn. Qene'nin verdiği arama kodu işime yararlı oldu. Teşekkürler...

 

[Qene]

Rica ederim.
Çalışmalarınızda başarılar..