• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    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 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
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
12 Eki 2022
Mesajlar
73
Aldığı beğeni
7
Excel V
Office 2013 TR
Konuyu Başlatan
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
 

Ekli dosyalar

  • RESIM.PNG
    RESIM.PNG
    24.6 KB · Gösterim: 4
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
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
 

Ekli dosyalar

  • resım.PNG
    resım.PNG
    38.4 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
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 ?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
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
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
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 ?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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