Günlük olarak diğer sayfadan bilgi alma

[alpay2050]

Merhaba Arkadaşlar,

Ben sitenin yeni üyesiyim. Bir sorum var;

Şimdi 1. çalışma sayfasında bir hesaplama tablom var. 2. çalışma sayfasında da günlük merkez bankası dolar kurları

1. sayfadaki A1 hücresinin günlük olarak 2. çalışma sayfasında B1, B2, B3 diye giden hücreleri almasını istiyorum. Mesela dün B1'i aldıysa bugün B2'yi yarın B3'ü vs.

Bunu nasıl yapabilirim?

Saygılar

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.

 

[alpay2050]

Merhaba,

Sorunuzu küçük bir örnek dosya ekleyerek detaylı açıklarmısınız.

Mesela ekteki örnek.xlsx dosyasında sayfa1'de D2'nin Sayfa2'deki D2'den başlayarak aşağıya doğru giden hücrelerdeki verileri günlük olarak değiştirmesini istiyorum. diyelim dün D2'yi aldı, bugün otomatik olarak D3'ü yarın D4'ü vs. şeklinde bir kodalama mümkün müdür?

 

[Murat OSMA]

Ömer Bey'in müsadesiyle....

Şu kodları bir deneyiniz;

Private Sub Workbook_Open()
    Dim tarih As Range
    Set tarih = Sayfa2.Columns("A:A").Find(VBA.Date)
        If Not tarih Is Nothing Then
            Sayfa1.Range("D2").Copy
            tarih.Offset(0, 3).PasteSpecial xlPasteValues
        End If
        Application.CutCopyMode = False
    Set tarih = Nothing
End Sub

 

[Merhum İdris SERDAR]

Mesela ekteki örnek.xlsx dosyasında sayfa1'de D2'nin Sayfa2'deki D2'den başlayarak aşağıya doğru giden hücrelerdeki verileri günlük olarak değiştirmesini istiyorum. diyelim dün D2'yi aldı, bugün otomatik olarak D3'ü yarın D4'ü vs. şeklinde bir kodalama mümkün müdür?

.

Dosyanız ekte.

.

 

[alpay2050]

.

Dosyanız ekte.

.

Sn. Yurttaş,

Emeğinize sağlık. iki çözüm önermişsiniz ikisi de benim için çok kullanışlı. Çok teşekkür ederim.