çoklu veri arama

[nuhar]

Merhaba;
Ektedeki dosyada yer alan bilgilerden bir rapor yapmak istiyorum.Ama 3 saattir pek bir yol kat edemedim.
İstediğim herhangi bir sütuna veya sütunlara göre bilgilerin süzülerek RAPOR sayfama gelmesi.Yardımlarınız için teşekkürler.

 

[isarican]

Yaptığım işlem veri-süz uyguladım


bir bakın istediğiniz bu mu
? isarican.110mb.com/bakiniz20.xls


Eğer olmassa access te her satırdaki veriye bir otamatik no vererek

tablo hazırlayabilir.Program haline getirilebilinir +sorgu vb istatistik uygulamaları yapılınabilir

 

[nuhar]

Yaptığım işlem veri-süz uyguladım


bir bakın istediğiniz bu mu
? isarican.110mb.com/bakiniz20.xls


Eğer olmassa access te her satırdaki veriye bir otamatik no vererek

tablo hazırlayabilir.Program haline getirilebilinir +sorgu vb istatistik uygulamaları yapılınabilir

İlginize teşekkürler.Fakat benim istediğim ilk sayfada seçtiğim özelliklere ait tüm ürünlerin gelmesini istiyorum.Ben bir lastik firmasında çalışıyorum ve muadil sayılan ürünler arasında fiyat kıyaslaması yapmaya çalışıyorum.
örneğin TBN-YNK-JNT ölçüleri aynı olanları bir raporda görmek istiyorum.
Ayrıca MARKA olarak baya var.Ben örnek olsun diye 5-6 tane aldım sadece.
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Application.ScreenUpdating = False
Set s1 = Sheets("RAPOR")
s1.[a4:s1000].Clear
For i = 2 To Sheets.Count
For bak = 3 To WorksheetFunction.CountA(Sheets(i).[c1:c65000])
If s1.[c3] = Sheets(i).Range("c" & bak) Then
Sheets(i).Range("c" & bak).EntireRow.Copy
say = WorksheetFunction.CountA([a1:a65000]) + 3
Range("a" & say).PasteSpecial
End If
Next
Next
Application.ScreenUpdating = True
End Sub

 

[nuhar]

Sub test()
Application.ScreenUpdating = False
Set s1 = Sheets("RAPOR")
s1.[a4:s1000].Clear
For i = 2 To Sheets.Count
For bak = 3 To WorksheetFunction.CountA(Sheets(i).[c1:c65000])
If s1.[c3] = Sheets(i).Range("c" & bak) Then
Sheets(i).Range("c" & bak).EntireRow.Copy
say = WorksheetFunction.CountA([a1:a65000]) + 3
Range("a" & say).PasteSpecial
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Üstad teşekkürler.
Tam istediğim gibi bir rapor oldu.Fakat ben tek alan veya bir kaç alan için arama yapabilmek istiyorum.

 

[emrexcel123]

ekstre-rapor

http://www.excel.web.tr/showthread.php?t=30754
bu linki inceler misiniz ?

 

[N.Ziya Hiçdurmaz]

yanıt

Üç aramalı şekli ektedir.

 

[emrexcel123]

Application CutCopy Mode

sn V.Basic For Applications kodlarınızın altına şu kodu eklerseniz kopyalama olayı beklemez
Application.CutCopyMode = False
ii çalışmalar...

 

[nuhar]

Üç aramalı şekli ektedir.

Üstad biraz fazla oldum biliyorum ama bu 3 koşula uyanları aynı anda almak istesek.
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Gerekli düzenleme yapıldı.

 

[nuhar]

Gerekli düzenleme yapıldı.

Öncelikle sabırla benim için çalışıp cevap verdiğiniz için çok teşekkür ederim.
Ama maalesef gene olmadı .
Üstadım benim istediğim yukardaki butonların altına 3 adet değer girmek.
örneğin marka:APOLLO, kod:111101, tbn:145
bu 3 koşuluda AYNI ANDA sağlayan ürünlerin gelmesini istiyorum.
Saygılar.