• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü textbox ta veri sorgulama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

muammercaylak78

Yeni Üye
Katılım
12 Eki 2022
Mesajlar
86
Aldığı beğeni
13
Excel V
Office 2013 TR
Konu Sahibi
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
 
Tarihe göre sırala Oylara göre sırala
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
asax' Alıntı:
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
Genişletmek için tıkla...

hocam şöyle bir sorun verdi . diğerlerinide buldu . tamam ma basın ca çıkmıyor böyle kalıyor
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
muammercaylak78' Alıntı:
hocam şöyle bir sorun verdi . diğerlerinide buldu . tamam ma basın ca çıkmıyor böyle kalıyor
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
muammercaylak78' Alıntı:
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
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
hocam çok teşekkür ederim elinize sağlık. sorunsuz çalışıyor.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst