Tarih Kosullu Hücre Kopyalama

[Yavuzdan]

Selam,
Birçok koşullu kopyalama konusu inceledim fakat faydalı bir örnek bulamadım tarih koşulu için

Veritabanından excele döviz kurları çekiyorum tarih sıralı olarak. Her sabah açıp veri yenile diyorum ve tablom güncelleniyor.

B sütününda Tarih , C sütününda Döviz Cinsi , D - E - F - G sütünlarında ise günlük alış-satış kurları var.
Hergün veri yeniledikten sonra Örneğin D82 ye gelen alış kurunu gidip H82 ye manuel olarak Değerleri Kopyala yapıyorum.

İstediğim bu işi manuel değilde Makro ile yapabilmek. Makro B sütünündaki tarihe bakacak, eğer bugününün tarihi ise o D deki kuru H sütünundaki hücreye sadece değer olarak kopyalayacak.

Eski tarihli satırlara dokunmayacak.

Örnek dosya ektedir.

Yardımlarınızı rica ederim.
Teşekkürler.

 

[Yavuzdan]

Yardımcı olabilecek bir arkadaş yok mu..?

 

[use2000]

Merhaba h80 satırındayken =d80 yapıp aşağıya doğru çekerseniz istediğiniz veriyi oraya getirecektir. Umarım doğru anlamışımdır.

 

[Yavuzdan]

Merhaba h80 satırındayken =d80 yapıp aşağıya doğru çekerseniz istediğiniz veriyi oraya getirecektir. Umarım doğru anlamışımdır.

H sütünuna girilen verilerin kalıcı olması gerektiğinden formül ile çözüm iş görmemektedir.
D sütünunda veri değiştiğinde H ilk değerinde kalmalı ki bir değişiklik olursa farkı bulabilelim. O nedenle makro ile çözüm şart..

ilginize teşekkürler

 

[Yavuzdan]

Yardımcı olacak bir arkadaş yok mu..?
Hacalarım yadım lütfen...

 

[mterzy]

bunu denediniz mi ?

=+IF(B80=TODAY();D80)

 

[Yavuzdan]

bunu denediniz mi ?

=+IF(B80=TODAY();D80)

Peki yarın tabloyu açtığımızda bu satır bozulmayacak mı..? İçindeki Today() formülü yarın B80 hücresinde 26.02.2011 tarihini arayacak ve h80 hata verecek. Geriye dönük tüm tarihler hata veriyor olacak.

Bu tür formülleri çok denedim, ama olmuyor.

O nedenle sadece makro ile çözüm gerekir diye düşünüyorum.

 

[Yavuzdan]

Hala çözüme ulaşamadım, yardım lütfeeennn...

 

[Yavuzdan]

Nihayet sorunu bi arkadaş yardımıyla çözümledim.

Böyle birşeye ihtiyacı olan çıkarsa en azından faydalanmış olur.

Sub bugun()
Dim i As Long, hucre As Range
Dim sonsatir As Integer

sonsatir = Range("B65536").End(3).Row
For Each hucre In Range("B4:B" & sonsatir)
If DateValue(hucre.Text) = DateValue(Cells(2, 3).Text) Then
hucre.Offset(0, 2).Copy
hucre.Offset(0, 6).PasteSpecial (xlPasteValues)
End If
Next hucre

i = Empty
sonsatir = Empty
Set hucre = Nothing
End Sub

Yardımcı olarak, C2 hücresine "=bugün()" formülü ile bugünün tarihini aldırdım.