excel den veri alma

[Yunusyahya]

merhabalar,

ekli dosyamda tarih değiştikçe diğer sayfalarda ki verilerin gelmesini istiyorum. Bunu nasıl başarabilirim??https://we.tl/t-GD9DroHDK1

 

[ÖmerBey]

Merhaba,
Öncelikle sekme isimlerinizi standart hala getirmelisiniz. (6.2.24 ile 08.2.24 aynı formatta değil)
Formülünüzü aşağıdaki ile değiştirip deneyiniz.

=DOLAYLI("'"&METNEÇEVİR($A$3;"g.a.yy")&"'!A7:A50")

Makro ile yapmak isterseniz de aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Or Not IsDate(Range("A3")) Then Exit Sub
Dim syf As Worksheet
Dim s As Long
On Error Resume Next
Set syf = Sheets(Format(Range("A3"), "d.m.yy"))
If syf Is Nothing Then
    MsgBox "Bu tarihe ait bir sayfa yok."
    Exit Sub
End If
On Error GoTo 0
s = syf.Cells(Rows.Count, "A").End(3).Row
Range("A7:H" & UsedRange.Rows.Count).ClearContents
With syf.Range("A7:H" & s)
    Range("A7").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End Sub

 

[Yunusyahya]

çok teşekkür ederim. ellerinize sağlık..

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...