istediğim tarihteki bilgileri farklı sayfalardan getirme

[csncesur]

Notlarım ve Bilgilerim isimli sayfada tarih tarih aldığım bilgilerim mevcuttur. İstediğim şey Bugün Yapılacak isimli sayfada bulunan GETİR isimli buton yardımıyla ve M1 Hücresinde bulunan tarihteki bilgileri bu sayfada göstermesini istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Merhaba aşağıdaki kodu deneyiniz.

Sub raporla()
Dim v()
Dim satv As Long
Dim s As Long
Sayfa3.Range("a1:b" & Rows.Count).Clear
v = Sayfa1.Range("a1:b" & Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row)
s = 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
v = Sayfa2.Range("a1:b" & Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row)
s = Sayfa3.Cells(Rows.Count, "a").End(xlUp).Row + 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Eğer ofis 365 sürümünü kullanıyorsanız aşağıdaki formülle tüm listeyi dökülmeli olarak listeleyebilirsiniz.

=EĞERHATA(DÜŞEYYIĞ({"Tarih"\"Notlarım \ Bilgilerim"};FİLTRE(DÜŞEYYIĞ(Notlarım:Bilgilerim!A1:B5000);DÜŞEYYIĞ(Notlarım:Bilgilerim!A1:A5000)=EĞER(M1="";YOKSAY();M1)));"")

 

[csncesur]

Merhaba aşağıdaki kodu deneyiniz.

Sub raporla()
Dim v()
Dim satv As Long
Dim s As Long
Sayfa3.Range("a1:b" & Rows.Count).Clear
v = Sayfa1.Range("a1:b" & Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row)
s = 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
v = Sayfa2.Range("a1:b" & Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row)
s = Sayfa3.Cells(Rows.Count, "a").End(xlUp).Row + 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
End Sub

Çok teşekkür ederim elinize sağlık. Tam istediğim buydu.

 

[csncesur]

Merhaba aşağıdaki kodu deneyiniz.

Sub raporla()
Dim v()
Dim satv As Long
Dim s As Long
Sayfa3.Range("a1:b" & Rows.Count).Clear
v = Sayfa1.Range("a1:b" & Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row)
s = 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
v = Sayfa2.Range("a1:b" & Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row)
s = Sayfa3.Cells(Rows.Count, "a").End(xlUp).Row + 1
For satv = 1 To UBound(v)
If v(satv, 1) = Sayfa3.[m1] Then
Sayfa3.Cells(s, "a") = v(satv, 1)
Sayfa3.Cells(s, "b") = v(satv, 2)
s = s + 1
End If
Next
End Sub

Çok teşekkür ederim elinize sağlık