Sheet te bilgi arama

[TRUSA]

Arkadaslar Merhaba,

Excel sheette bulunan 5 kolonlu bir tabloda, form uzerinde textbox a girdigimiz bir kelimeyi yada rakami hucre hucre aratiyorum. Aradigim hucre bulundugunda, o satirin tamamini form uzerinde bulunan Spreadsheet uzerine yazdiriyorum.Bu islemi asagidaki kodlar ile yapiyorum.

Sorunum su; textbox a kelime girip aradigim zaman problemsiz calisiyor, fakat zaman zaman aradigim rakamlari buldugu oluyor, genelde
rakam girdigim zaman bos geliyor.

ar = Trim(UCase(UserForm8.TextBox2.Text))
Sheets("Mollins").Activate
SAY = Cells(65536, 1).End(xlUp).Row
SQ = 2
For Q = 3 To SAY
If Cells(Q, 1) = ar Or Cells(Q, 2) = ar Or Cells(Q, 3) = ar Or Cells(Q, 4) = ar Or Cells(Q, 5) = ar Then
Spreadsheet1.Sheets(1).Range("A" & SQ & ":G" & SQ) = Range("A" & Q & ":G" & Q).Value
SQ = SQ + 1
End If
Next Q

Yukaridaki kodlarda yanlislikmi var yoksa benim kullandigim yontemmi yanlis.

Yardimlariniz icin simdiden tesekkurler.

 

[Levent Menteşoğlu]

Sorun sayıyınında metin olarak algılanmasından kaynaklanıyor. Kodunuza aşağıdaki mavi renkli satırıda ekleyerek deneyin.

ar = Trim(UCase(UserForm8.TextBox2.Text))
[B][COLOR=blue]if isnumeric(userform8.textbox2)=true then ar=userform8.textbox2*1
[/COLOR][/B]Sheets("Mollins").Activate
SAY = Cells(65536, 1).End(xlUp).Row
SQ = 2
For Q = 3 To SAY
If Cells(Q, 1) = ar Or Cells(Q, 2) = ar Or Cells(Q, 3) = ar Or Cells(Q, 4) = ar Or Cells(Q, 5) = ar Then
Spreadsheet1.Sheets(1).Range("A" & SQ & ":G" & SQ) = Range("A" & Q & ":G" & Q).Value
SQ = SQ + 1
End If
Next Q

 

[TRUSA]

leventm,

Cok tesekkur ederim yardimlarin icin.