Sayfa1 den Sayfa2 ye lite çekmek istiyorum

[centetic]

Sayfa1 den Sayfa2 ye veri çekmek istiyorum

Değerli arkadaşlarım. Excel de öğrendiğim herşeyi bu foruma borçluyum. emeği geçen tüm arkadaşlara ve hocalarıma sonsuz teşekkürler.

sorunum şu. sayfa1 e sürekli olarak veri girişi yapıyorum. bu verileri belirli bir düzene ve her defasında ayrı kod numarasına göre yapıyorum. bu veriler vermiş olduğum siparişler. Sayfa2 de ise ilk sayfadan girdiğim verilerin koduna göre listeyi tamamlamak. örneğin sipariş kodu 2 yi çağırdığımda ilk sayfada yer alan 2 nolu siparişe ait tüm verileri bana sıralasın istiyorum.

yardımcı olursanız sevinirim.

saygılarımla.

Başlıkta imla hatası yapmışım özür diliyorum

 

[YUSUF44]

YAzdırma sayfasının kod bölümüne aşağıdaki kodları yapıştırın. Bu sayfada C3 hücresine yazdığınız (veya sizin veri doğrulamayla ayarlayıp seçeceğiniz) kodun bilgileri aşağıda listelenecektir.

Yalnız öncesinde YAzdırma sayfasındaki başlık satırlarında gereksiz yere hücre birleştirme yi iptal edin (4. ve 5. satırları birleştirmşsiniz).

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
Set s1 = Sheets("SİPARİŞLER")
Set s2 = Sheets("Yazdırma")
a = s1.Cells(Rows.Count, 2).End(3).Row + 1
b = s2.Cells(Rows.Count, 2).End(3).Row + 1
s2.Range(Cells(5, 1), Cells(b, 15)).ClearContents
For i = 3 To a
If s1.Cells(i, 15) = s2.[c3] Then
b = s2.Cells(Rows.Count, 2).End(3).Row + 1
s2.Cells(b, 1) = s1.Cells(i, 1)
s2.Cells(b, 2) = s1.Cells(i, 3)
s2.Cells(b, 5) = s1.Cells(i, 4)
s2.Cells(b, 8) = s1.Cells(i, 9)
s2.Cells(b, 9) = s1.Cells(i, 10)
s2.Cells(b, 10) = s1.Cells(i, 11)
End If
Next
End Sub

 

[centetic]

teşekkür ederim çok sağolun

 

[centetic]

son olarak Yazdırma sayfasına sipariş koduna ait tarihi de çekmem gerekiyor.

 

[YUSUF44]

aşağıdaki şekilde kullanabilirsiniz. Tarih hücresini tarih olarak biçimlendirmeyi unutmayın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
Set s1 = Sheets("SİPARİŞLER")
Set s2 = Sheets("Yazdırma")
a = s1.Cells(Rows.Count, 2).End(3).Row + 1
b = s2.Cells(Rows.Count, 2).End(3).Row + 1
s2.Range(Cells(5, 1), Cells(b, 15)).ClearContents
For i = 3 To a
If s1.Cells(i, 15) = s2.[c3] Then
b = s2.Cells(Rows.Count, 2).End(3).Row + 1
s2.Cells(b, 1) = s1.Cells(i, 1)
s2.Cells(b, 2) = s1.Cells(i, 3)
s2.Cells(b, 5) = s1.Cells(i, 4)
s2.Cells(b, 8) = s1.Cells(i, 9)
s2.Cells(b, 9) = s1.Cells(i, 10)
s2.Cells(b, 10) = s1.Cells(i, 11)
s2.[n2] = s1.Cells(i, 2)
End If
Next
End Sub

 

[centetic]

tekrar tekrar teşekkür ederim