Çözüldü textbox ta veri sorgulama

[muammercaylak78]

sevgili hocalarım aşagıdaki kod sayfa6 daki verileri sorguluyor. aynı isimden olan ürünler de var. sadece ilk bulduğunu msjbox ta gösteriyor. diğer ürünleride görmek istiyorum bu mümkünmü. teşekkür ederim
With Sayfa6
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)
If Not bul Is Nothing Then

MsgBox "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(
bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value, _
vbQuestion, "Mükerrer"
'Exit Sub
End If
Set bul = Nothing
End With

 

[asax]

If Not bul Is Nothing Then sorun burda sonlandırıyor bunun yerine Set bul = .Range("A:A").FindNext(bul) olunca devam eder aramaya.

With Sayfa6
Dim bul As Range
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)

If Not bul Is Nothing Then
Dim mesaj As String
mesaj = "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value

Do
MsgBox mesaj, vbQuestion, "Mükerrer"
Set bul = .Range("A:A").FindNext(bul)
Loop While Not bul Is Nothing
End If

Set bul = Nothing
End With

 

[muammercaylak78]

If Not bul Is Nothing Then sorun burda sonlandırıyor bunun yerine Set bul = .Range("A:A").FindNext(bul) olunca devam eder aramaya.

With Sayfa6
Dim bul As Range
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)

If Not bul Is Nothing Then
Dim mesaj As String
mesaj = "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value

Do
MsgBox mesaj, vbQuestion, "Mükerrer"
Set bul = .Range("A:A").FindNext(bul)
Loop While Not bul Is Nothing
End If

Set bul = Nothing
End With

hocam şöyle bir sorun verdi . diğerlerinide buldu . tamam ma basın ca çıkmıyor böyle kalıyor

 

[muammercaylak78]

hocam şöyle bir sorun verdi . diğerlerinide buldu . tamam ma basın ca çıkmıyor böyle kalıyor

hocam diğer kayıtlarıda bulmuyor takılıp kalıyor.

 

[excelcan]

Basit bir dosya örneği eklemiş olsanız
soru daha kolay anlaşılır ve
yanıt almanız daha kolay olurdu.
Tag kodlarını dener misiniz ?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[muammercaylak78]

hocam şöyle bir sorun verdi . diğerlerinide buldu . tamam ma basın ca çıkmıyor böyle kalıyor

hocam bu kodda en sonarcı buluyor arka arkaya getirmiyor

With Sayfa6
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)

Set bul = .Range("A:A").FindNext(bul)

MsgBox "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value, _
vbQuestion, "Mükerrer"
'Exit Sub
'End If
Set bul = Nothing
End With

 

[muammercaylak78]

hocam bu kodda en sonarcı buluyor arka arkaya getirmiyor

With Sayfa6
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)

Set bul = .Range("A:A").FindNext(bul)

MsgBox "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value, _
vbQuestion, "Mükerrer"
'Exit Sub
'End If
Set bul = Nothing
End With

hocam bu kod da ise en son urunu buluyor. sırayla getirmiyor. msj box kapanmıyor

With Sayfa6
Dim bul As Range
Set bul = .Range("A:A").Find(Me.TextBox4.Value, , xlValues, 1)

Set bul = .Range("A:A").FindNext(bul)

Dim mesaj As String

mesaj = "Secilen Hazir Kumaslar Sayfasinda Var..." & vbNewLine & vbNewLine _
& "Arac İsmi : " & .Cells(bul.Row, 1).Value & vbNewLine _
& "Orta : " & .Cells(bul.Row, 2).Value & vbNewLine _
& "Kenar : " & .Cells(bul.Row, 3).Value & vbNewLine _
& "Sıra No : " & .Cells(bul.Row, 4).Value & vbNewLine _
& "Aciklama : " & .Cells(bul.Row, 5).Value

Do
MsgBox mesaj, vbQuestion, "Mükerrer"
Set bul = .Range("A:A").FindNext(bul)
Loop While Not bul Is Nothing
End If

 

[muammercaylak78]

Basit bir dosya örneği eklemiş olsanız
soru daha kolay anlaşılır ve
yanıt almanız daha kolay olurdu.
Tag kodlarını dener misiniz ?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

hocam çok teşekkür ederim elinize sağlık. sorunsuz çalışıyor.