bir sayfadaki veriyi diğer sayfalara yazdırma

[atlantis228]

merhaba değerli üstadlar .
1. sayfadaki 100 lerce veri içinden arama yaptırarak 2. sayfada aynı verileri alt alt toplamak istiyorum . yarımcı olabilirmisiniz.
örnek dersek :
ali 5 lira para harcadı
veli 2 lira para harcadı diyelim .
her gün tutuyoruz bunları . ben diğer sayfada ali'nin ne kadar para harcadığını alt alta gelecek şekilde görmek istiyorum .
tabi burada alinin olduğu satırın hepsini görmek istiyorum cünkü problemim bu kadar basit değil maalesef.

 

[İhsan Tank]

dosya ekler misiniz ve dosyada açıklama yaparsanız ona göre çözüm üretebiliriz

 

[atlantis228]

örnek olarak basite indirgeyip hazırladım.
1. Sayfa da günlük olarak yazmış olduğum üretimlerim yer alıyor .
2 sayfada ben bu üretimlerden 21060 yada bir baska kod daki parçanın üretim ayar zamanları ile tarihlerini alt alta gelicek şekilde görmek istiyorum .
Zaman ayırdığın teşekkür ederim üstad

 

[İhsan Tank]

örnek olarak basite indirgeyip hazırladım.
1. Sayfa da günlük olarak yazmış olduğum üretimlerim yer alıyor .
2 sayfada ben bu üretimlerden 21060 yada bir baska kod daki parçanın üretim ayar zamanları ile tarihlerini alt alta gelicek şekilde görmek istiyorum .
Zaman ayırdığın teşekkür ederim üstad

merhaba
F1 hücresine parça kodu'nu yazın. ve Sayfa2 c sütunu tarih olarak biçimlendirin
ve bu kodu bir module yapıştırın.

Sub İstediğin_Verileri_Listele()
Dim c As Range, sat As Long, ilkadres As Variant
Sheets("Sayfa2").Range("A2:E" & Rows.Count).ClearContents
sat = 2
With Sheets("Sayfa1").Range("B:B")
Set c = .Find(Sheets("Sayfa2").Range("F1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("Sayfa2").Cells(sat, "A") = Sheets("Sayfa1").Cells(c.Row, "B")
Sheets("Sayfa2").Cells(sat, "B") = Sheets("Sayfa1").Cells(c.Row, "C")
Sheets("Sayfa2").Cells(sat, "C") = Sheets("Sayfa1").Cells(c.Row, "A")
Sheets("Sayfa2").Cells(sat, "D") = Sheets("Sayfa1").Cells(c.Row, "D")
Sheets("Sayfa2").Cells(sat, "E") = Sheets("Sayfa1").Cells(c.Row, "E")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
End Sub

 

[atlantis228]

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

 

[İhsan Tank]

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

rica ederim
:yazici: