textboxa girilen veriye göre 2 sayfada birden aratma yapıp tek listboxda listeleme?

[udentr2002]

Merhaba arkadaşlar textboxa veri girerek rapor sayfasındakilerini listboxa listeleme yapıyorum. Benim yapmak istediğim şu aynı listboxa veri girdiğimde hem rapor sayfasından hemde başka bir sayfadan aynı listboxda listeleme yapabilirmiyim kullandığım kod aşağıdadır

Private Sub TextBox1_Change()


On Error Resume Next
ListBox1.RowSource = Empty
ListBox1.Clear
Dim isim As Range
Set s1 = Sheets("Rapor")
Sheets("HammaddeDepo").Select
s1.[a2: d65536].ClearContents
ListBox1.RowSource = Empty
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

ListBox1.ColumnHeads = True


For Each isim In Sheets("HammaddeDepo").Range("a3:a" & Sheets("HammaddeDepo").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
sat = WorksheetFunction.CountA([Rapor!a:a]) + 1
s1.Range("a" & sat & ": d" & sat) = Range("a" & isim.Row & ": d" & isim.Row).Value
ListBox1.RowSource = "Rapor!a2: d" & s1.[a65536].End(3).Row

ilgilenen arkadaşlarıma teşekkür ederim

 

[kulomer46]

Ne yapmak istediğinizi daha açık anlatabilirmisiniz? teşekkürler..

 

[udentr2002]

hocam

yukarıdaki kod ile textboxa veri girerek listboxa süzüyorum listbox Rapor adlı sayfadan veri almaktadır ben süzme işlemini ayrı iki sayfadan yaptırabilirmiyim??

 

[udentr2002]

(????

Yardım edebilecek bir hocam yokmu lütfen?

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz.Sorunuzu tam olarak anlayamadım.

 

[drfuturetense]

arkadaslar ben bu sitede yeniyim yeni konu yazmayı bulamadığım için buraya yazıyorum benim bi kaç sorum olacaktı ama...örneğin bir hücrede formülle bulunan bir sonuç var ve ben belli aralıklardaki sonuçlardan arasında aynı olan var mı yada çok yakın olan var mı diye aratıp bulmak istiyorum ve bulduğu sonucu istediğim yere atayacak yani o hücrede gözükecek..yani diyelim b1 hücresindeki veriyi d1 ve d100 arasındaki sonuçlarda aynı var mı diye tarayacak ve bulduğu satırdaki sonucun yanındaki (örneğin d56 da buldu d55 teki ni)hücreyi c 2 ye yazdıracak.. acaba yardımcı olabilir misiniz..umarım anlatabilmişimdir. iyi paylaşımlar..