Aranan değer yoksa uyarı mesajı alma

[beza]

Merhaba,
Private Sub CommandButton3_Click()

Worksheets("Urun").Select
arananb = TextBox10
Range("A:A").Find(arananb).Select
sil_satır1 = ActiveCell.Row

TextBox9.Value = Worksheets("Urun").Cells(sil_satır1, 2)
TextBox11.Value = Worksheets("Urun").Cells(sil_satır1, 3)
TextBox12.Value = Worksheets("Urun").Cells(sil_satır1, 4)
TextBox13.Value = Worksheets("Urun").Cells(sil_satır1, 5)
bu şekilde aranan değer "Urun" sayfası A sütununda var ise işlemi yapıyor. Yok ise hata veriyor. Textbox10 daki değer yok ise Hatalı kod girdiniz gibi mesaj verip
işlemi sonlandırsın, değer var ise işlemi yapsın istiyorum. İstemekle olmadığını bilmek gerektiğini de çok iyi anladım. Yardımcı olabilecek arkadaşlara çok teşekkür ederim.

 

[YUSUF44]

Cepten baktığımdan deneyemiyorum.

Range satırının başına

a=

Yazın ve sondaki

.select

İfadesini silin.

Altına

if a is nothing then
Msgbox "hatalı veri girdiniz!", vbinformation
Exit Sub
Else
a.select
End if


Satırlarını ekleyip dener misiniz?

 

[Muzaffer Ali]

Merhaba.

        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlWhole)
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlPart)

Yukarıdaki satırlara aşağıda açıklama yaptım.
Size uygun olan kalsın diğer satırı silin.

Private Sub CommandButton3_Click()
    Dim Bul As Range
    With Worksheets("Urun")
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlWhole) ' TextBox10'a yazan metin hücrede tam eşleşiyorsa bulur.
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlPart) ' TextBox10'a yazan metin hücrede tam eşleşmiyorsa da bulur. Örnek:TextBox10 da "Ali" yazıyorsa Hücrede "Ali Veli" yazıyorsa bu hücreyi bulur.
       
        If Bul Is Nothing Then
            MsgBox "Bulunamadı."
            Exit Sub
        End If
        TextBox9.Value = .Cells(Bul.Row, "B")
        TextBox11.Value = .Cells(Bul.Row, "C")
        TextBox12.Value = .Cells(Bul.Row, "D")
        TextBox13.Value = .Cells(Bul.Row, "E")
    End With
End Sub

 

[beza]

Cepten baktığımdan deneyemiyorum.

Range satırının başına

a=

Yazın ve sondaki

.select

İfadesini silin.

Altına

if a is nothing then
Msgbox "hatalı veri girdiniz!", vbinformation
Exit Sub
Else
a.select
End if


Satırlarını ekleyip dener misiniz?

Yusuf Bey merhaba,
a = Range("A:A").Find(arananb) satırına hata veriyor.
Muzaffer Ali Bey in gönderdiği kodlar sorunu çözdü. İlgi ve emeğinize çok teşekkür ederim.

 

[beza]

Merhaba.

        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlWhole)
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlPart)

Yukarıdaki satırlara aşağıda açıklama yaptım.
Size uygun olan kalsın diğer satırı silin.

Private Sub CommandButton3_Click()
    Dim Bul As Range
    With Worksheets("Urun")
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlWhole) ' TextBox10'a yazan metin hücrede tam eşleşiyorsa bulur.
        Set Bul = .Range("A:A").Find(what:=TextBox10.Text, lookat:=xlPart) ' TextBox10'a yazan metin hücrede tam eşleşmiyorsa da bulur. Örnek:TextBox10 da "Ali" yazıyorsa Hücrede "Ali Veli" yazıyorsa bu hücreyi bulur.
       
        If Bul Is Nothing Then
            MsgBox "Bulunamadı."
            Exit Sub
        End If
        TextBox9.Value = .Cells(Bul.Row, "B")
        TextBox11.Value = .Cells(sil_satır1, "C")
        TextBox12.Value = .Cells(sil_satır1, "D")
        TextBox13.Value = .Cells(sil_satır1, "E")
    End With
End Sub

Muzaffer Ali Bey, Sorun çözüldü. İlgi ve emeğiniz için çok teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.