iki şarta göre raporlama

[Qosqo]

merhaba arkadaşlar

formda bu konu ile ilgili olarak bi kaç örnek gördüm ama makro konusunda
zayıf hatta sıfır olduğum için uyarlamalar yapamadım,bu konuda bana yardımcı olursanız çok sevinirim.
Şimdi örnek bi tablo gönderdim şöyleki ;
ilk iki çalışma sayfasında verilen veriler ışığında, ilk sayfadaki verilerin içinde miktarı örneğin 5 ve 5 in üzerindekileri,ikinci sayfada da fiyatı 50 ve 50 nin üzerindeki hesap no ve hesap adını miktar ve fiyatı ile birlikte listeleme sayfasına yazmasını istiyorum.Örnekte listeyi az tuttum ama çok uzun olabilir
ilgilenir ve yardımcı olursanız çok sevinirim.

 

[İhsan Tank]

Merhaba
Bu verileri nasıl eşleştireceksiniz.
Mesela 1. sayfadaki hesap numarası 5'in üstünde ise 2. sayfadaki aynı hesap numarası'da 50'nin üzerinde midir_?

 

[Qosqo]

Selam ilginiz için teşekkür ederim
Evet eksik yazmışım ilk ve ikinci sayfalardaki aynı hesap numaralarinda miktar ve fiyatlar farklı olabilir bu yüzden her iki şartida aynı anda yerine getiren hesap numaraları ve adları listelensin istedim
Teşekkür ederim

 

[İhsan Tank]

Selam ilginiz için teşekkür ederim
Evet eksik yazmışım ilk ve ikinci sayfalardaki aynı hesap numaralarinda miktar ve fiyatlar farklı olabilir bu yüzden her iki şartida aynı anda yerine getiren hesap numaraları ve adları listelensin istedim
Teşekkür ederim

Dosyanıza buna göre örnek ekler misiniz_?

 

[Qosqo]

selam

ilgili örneği güncelledim.Arama kriterini girmek için için satır açtım.mesela 5 değilde 4 de olabilir o satıra bunu yazabilirim.listeleme sayfasında açıklama yaptım.
çok teşekkür ederim.

 

[İhsan Tank]

selam

ilgili örneği güncelledim.Arama kriterini girmek için için satır açtım.mesela 5 değilde 4 de olabilir o satıra bunu yazabilirim.listeleme sayfasında açıklama yaptım.
çok teşekkür ederim.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kriterli_aktarım_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, asi
Set bordo = Sheets("Sheet1")
Set mavi = Sheets("Sheet2")
Set asi = Sheets("listele")
asi.Range("A5:D" & Rows.Count).ClearContents
kaplan = asi.Range("A" & Rows.Count).End(xlUp).Row
ts = bordo.Range("A" & Rows.Count).End(xlUp).Row
bordo.Range("A3:C" & ts).Copy Destination:= _
asi.Range("A" & kaplan + 1)
mavi.Range("C3:C" & ts).Copy Destination:= _
asi.Range("D" & kaplan + 1)
For ts = asi.Cells(Rows.Count, "A").End(xlUp).Row To 5 Step -1
If asi.Cells(ts, "C") < Range("B3") Then
Rows(ts).Delete
End If
Next
For ts = asi.Cells(Rows.Count, "A").End(xlUp).Row To 5 Step -1
If asi.Cells(ts, "D") < Range("D3") Then
Rows(ts).Delete
End If
Next
End Sub

 

[Qosqo]

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

 

[İhsan Tank]

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

Rica ederim
:keyif: