Sayfalar arası hücre içeriğine göre tüm satırı yazdırmak

[BeaLzeBuB]

sayfa1 de bir tablom var

tarih - kişi - miktar - iş

"iş" çeşidim 6 adet.
A işi, B işi C işi gibi...

Sayfa2 'yi A işi için
Sayfa3 'ü B işi için
Sayfa4 'ü C işi için

kullanacağım.

Sayfa 1'e bir iş yazdığımda "iş" sutuna girdiğim bilgiye göre, tüm satır (tarih - kişi - miktar bilgileri) ilgili sayfaya geçiş yapsın istiyorum.
Düşeyara komutunu kullanmaya çalıştım ama beceremedim.

yardımlarınızı bekliyorum

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[İhsan Tank]

sayfa1 de bir tablom var

tarih - kişi - miktar - iş

"iş" çeşidim 6 adet.
A işi, B işi C işi gibi...

Sayfa2 'yi A işi için
Sayfa3 'ü B işi için
Sayfa4 'ü C işi için

kullanacağım.

Sayfa 1'e bir iş yazdığımda "iş" sutuna girdiğim bilgiye göre, tüm satır (tarih - kişi - miktar bilgileri) ilgili sayfaya geçiş yapsın istiyorum.
Düşeyara komutunu kullanmaya çalıştım ama beceremedim.

yardımlarınızı bekliyorum

merhaba
genel sayfasının kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Dim ts, kaplan, a, b
a = 3
b = 3
Sheets("A işi").Range("A3:C65536").ClearContents
Sheets("B işi").Range("A3:C65536").ClearContents
For ts = 2 To Sheets("GENEL").Cells(65536, "D").End(xlUp).Row
If Sheets("Genel").Cells(ts, "D") = "[COLOR="Red"]A[/COLOR]" Then
Sheets("A işi").Cells(a, "A") = Sheets("Genel").Cells(ts, "A")
Sheets("A işi").Cells(a, "B") = Sheets("Genel").Cells(ts, "B")
Sheets("A işi").Cells(a, "C") = Sheets("Genel").Cells(ts, "C")
a = a + 1
End If
If Sheets("Genel").Cells(ts, "D") = "[COLOR="red"]B[/COLOR]" Then
Sheets("B işi").Cells(b, "A") = Sheets("Genel").Cells(ts, "A")
Sheets("B işi").Cells(b, "B") = Sheets("Genel").Cells(ts, "B")
Sheets("B işi").Cells(b, "C") = Sheets("Genel").Cells(ts, "C")
b = b + 1
End If
Next
End Sub

bu kodu kopyalarak dener misiniz

 

[BeaLzeBuB]

iki arkadaşıma da çok teşekkür ederim. İhsan Tank'ın dediği kesin oluyordur ama benim kısıtlı bilgim nedeniyle başarılı olamadım. Çok sağol.


muygun'un hazırladığı tam istediğim şeydi. kullanım amacıma göre düzenledim ve çok güzel bir şey çıktı ortaya. Allah ikinizden de razı olsun.

 

[BeaLzeBuB]

muygun'un verdiği ilk başta çok güzel işimi gördü sonra satır sayıları arttıkça (2500-3000 satır gibi) excel iyice kasmaya başladı. 7 farklı işe verileri yetiştirmek için 4 işlemciyi birden kullanmaya başladı hatta sağ altta her hücre doldurmamdan sonra %15-24-36 diyerek işlemi gerçekleştiriyor.
sanırım tamamen vbasic tabanlı birşey kullanmam gerekiyor.

yardımları bekliyorum arkadaşlar tekrar.
şimdiden teşekkür ederim.

 

[İhsan Tank]

muygun'un verdiği ilk başta çok güzel işimi gördü sonra satır sayıları arttıkça (2500-3000 satır gibi) excel iyice kasmaya başladı. 7 farklı işe verileri yetiştirmek için 4 işlemciyi birden kullanmaya başladı hatta sağ altta her hücre doldurmamdan sonra %15-24-36 diyerek işlemi gerçekleştiriyor.
sanırım tamamen vbasic tabanlı birşey kullanmam gerekiyor.

yardımları bekliyorum arkadaşlar tekrar.
şimdiden teşekkür ederim.

merhaba
#3. nolu mesajda kodu vermiştim

 

[BeaLzeBuB]

vermiştiniz ama ben onu beceremedim malesef

 

[İhsan Tank]

vermiştiniz ama ben onu beceremedim malesef

bunu söyleseydiniz
dosyayı eklerdim.
buyrun inceleyin

 

[BeaLzeBuB]

çok sağol dostum ortalıkta kod gözükmediği için kasma yapmıyor.

bunu gönderdiğim dosyaya entegre nasıl ederim?

A yerine YALI
B yerine YORGANCILAR

yazamadım.

3. mesajındaki kodlarda değişmesi gereken yerleri gösterirsen ben uygulamaya çalışayım.

 

[İhsan Tank]

çok sağol dostum ortalıkta kod gözükmediği için kasma yapmıyor.

bunu gönderdiğim dosyaya entegre nasıl ederim?

A yerine YALI
B yerine YORGANCILAR

yazamadım.

3. mesajındaki kodlarda değişmesi gereken yerleri gösterirsen ben uygulamaya çalışayım.

3. mesajdaki kod'da boyadım ilgili yerleri kırmızı olan yerler

 

[BeaLzeBuB]

teşekkürler istediğim değişikliği yaptım hatta sutun sayısını falan da arttırdım ama bir sorun oluştu;

"genel" sekmesine bir satır yazıyorum, örneğin "A işi" için, bu direk gitmesi gereken sekmeye hemen geçmiyor, ama 2. bir satır daha eklersem bu sefer iki satır birden ilgili sekmeye geçiyor.

hazırladığım dosya ektedir.

kodu ise şu şekilde yaptım :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range[COLOR="Red"]("G:G")[/COLOR]) Is Nothing Then Exit Sub
Dim ts, kaplan, a, b
a = 3
b = 3
Sheets("YALI").Range("A3:E65536").ClearContents
Sheets("B işi").Range("A3:E65536").ClearContents
For ts = 2 To Sheets("GENEL").Cells(65536, "G").End(xlUp).Row
If Sheets("Genel").Cells(ts, "G") = "A" Then
Sheets("YALI").Cells(a, "A") = Sheets("GENEL").Cells(ts, "A")
Sheets("YALI").Cells(a, "B") = Sheets("Genel").Cells(ts, "B")
Sheets("YALI").Cells(a, "C") = Sheets("Genel").Cells(ts, "C")
Sheets("YALI").Cells(a, "D") = Sheets("Genel").Cells(ts, "D")
Sheets("YALI").Cells(a, "E") = Sheets("Genel").Cells(ts, "E")
a = a + 1
End If
If Sheets("Genel").Cells(ts, "D") = "B" Then
Sheets("B işi").Cells(b, "A") = Sheets("Genel").Cells(ts, "A")
Sheets("B işi").Cells(b, "B") = Sheets("Genel").Cells(ts, "B")
Sheets("B işi").Cells(b, "C") = Sheets("Genel").Cells(ts, "C")
b = b + 1
End If
Next
End Sub

 

[İhsan Tank]

sizin kod'da kırmızıya boyadığım yeri unutmuşsunuz.
D sütununda işlem gördüğünde tetikleme yapıyordu
şu an değiştirdim G sütununa göre işlem yapıyor.