ara bul-bulamassa geri dön uyar

[musaliha]

merhaba aşağıdaki kodlarla ilgili bir ricam olacak sizden . belirttiğim kodlarda aradığını bulamassa devam etmeyip durması ve bulunamadı mesajını vermesini istiyorum ama çok karıştırdım çıkamadım içinden yardımcı olabilirmisiniz.

Dim Bak As Integer
Dim AraAlan As Range
Dim Bul As Range
Set AraAlan = Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row)
For Bak = 1 To Cells(Rows.Count, "O").End(xlUp).Row
Set Bul = AraAlan.Find(what:=Cells(Bak, "O"), lookat:=xlPart)
If Not Bul Is Nothing Then
If Cells(Bul.Row, "l") = "" Then
Cells(Bul.Row, "l") = Cells(Bak, "O")
Else
Cells(Bul.Row, "l") = Cells(Bul.Row, "l") & ", " & Cells(Bak, "O")
End If
End If
Next
Userform1.show
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Ara()
    Dim Bak As Integer
    Dim AraAlan As Range
    Dim Bul As Range
   
    Set AraAlan = Range("J2:J" & Cells(Rows.Count, "J").End(xlUp).Row)
   
    For Bak = 1 To Cells(Rows.Count, "O").End(xlUp).Row
        Set Bul = AraAlan.Find(what:=Cells(Bak, "O"), lookat:=xlPart)
        If Not Bul Is Nothing Then
            If Cells(Bul.Row, "l") = "" Then
            Cells(Bul.Row, "l") = Cells(Bak, "O")
            Else
            Cells(Bul.Row, "l") = Cells(Bul.Row, "l") & ", " & Cells(Bak, "O")
            End If
        Else
            MsgBox "Bulunamadı!", vbCritical
            Exit Sub
        End If
    Next
   
    Userform1.Show
End Sub

 

[musaliha]

merhaba kodu uyguladığımda bulması gerekenide bulunamadı diyerek işlemi durdurdu.benim yaptıklarımdada aynı durumla karşılaşıyorum.bulunması gerekeni bulduğunda işleme devam etmeli bulamassa durmalı.ama bu haliyle her türlü bulamadı yapıyor.msgboxu kaldırınca buluyor .

 

[Korhan Ayhan]

DURSUN ifadesini kullandığınız için işlemi komple durdurdum.

Aramaya devam etmesi gerekiyorsa Exit Sub satırını silebilirsiniz. Bu durumda her bulamadığı için uyarı verecektir ve aramaya devam edecektir.

 

[musaliha]

korhan bey öncelikle ilgilendiğiniz için teşekkür ederim.Dosyanın ilgili kısmı hariç diğer kısmı temizleyip örnek dosyayı yükledim.exit subu çıkarılmış haliyle yükledim.bu durumda önce bulamadı mesajını verip tamam deyincede buluyor. benim isteğim ise bulamayınce sonraki kodlara devam etmeden durması ve mesaj vermesi.bulursada hiç mesaj vermeden durmadan sonuçlandırması.ancak çıkamadım içinden.