İçinde yazan kelimeyle hücreyi seçme kodu

[hakki83]

Selamlar

Range(“B2”).Select satırıyla, düğmeye basarak istediğimiz hücrenin komutla seçilmesini sağlayabiliyoruz.

Bir hücrenin içinde ELMA kelimesi yazıyorsa ve içinde ELMA yazan o hücrenin kodla seçilmesini (o hücreye gitmesini) istiyorsak nasıl yazmalıyız?

Range(“ELMA”).Select olarak yazdım olmadı.

 

[askm]

Sub askm()
Dim bul As Range
With Range("A1:A500") 'Bu alana arama yapılacak hücre aralığı yazılacak.
    Set bul = .Find("elma", LookIn:=xlValues)
'   Set bul = .Find(range("B1"), LookIn:=xlValues)  'Aranan değeri B1 hücresinden aldırmak için
    If Not bul Is Nothing Then 'Eğer aranan değer varsa
        satir = bul.Row 'Aranan değerin satırını bul
        Cells(satir, 1).Select 'İşaretle
    Else 'Eğer aranan değer yoksa
        MsgBox "Aranan değer bulunamadı.", vbCritical, "UYARI!"
    End If
End With
End Sub

 

[hakki83]

Askm hocam emeğinize sağlık, çok güzel detaylı kod olmuş. Fakat küçük bir hata var sanıyorum. Hücrenin kendisine değil de, A sütunundaki karşılığına gidiyor.

 

[bmutlu966]

Sayın askm'nin kodlarını aşağıdaki şekilde değiştirin.

Sub askm()
Dim bul As Range
With Range("A1:Z100") 'Bu alana arama yapılacak hücre aralığı yazılacak.
    Set bul = .Find("elma", LookIn:=xlValues)
'   Set bul = .Find(range("B1"), LookIn:=xlValues)  'Aranan değeri B1 hücresinden aldırmak için
    If Not bul Is Nothing Then 'Eğer aranan değer varsa
        satir = bul.Row 'Aranan değerin satırını bul
        sutun = bul.Column
        Cells(satir, sutun).Select 'İşaretle
    Else 'Eğer aranan değer yoksa
        MsgBox "Aranan değer bulunamadı.", vbCritical, "UYARI!"
    End If
End With
End Sub

 

[veyselemre]

Askm hocam emeğinize sağlık, çok güzel detaylı kod olmuş. Fakat küçük bir hata var sanıyorum. Hücrenin kendisine değil de, A sütunundaki karşılığına gidiyor.

Sub askm()
    Dim bul As Range
    With Range("A1:Z100") 'Bu alana arama yapılacak hücre aralığı yazılacak.
        Set bul = .Find("elma", LookIn:=xlValues)
        '   Set bul = .Find(range("B1"), LookIn:=xlValues)  'Aranan değeri B1 hücresinden aldırmak için
        If Not bul Is Nothing Then 'Eğer aranan değer varsa
            bul.Select 'İşaretle
        Else 'Eğer aranan değer yoksa
            MsgBox "Aranan değer bulunamadı.", vbCritical, "UYARI!"
        End If
    End With
End Sub

 

[hakki83]

bmutlu966 hocam ve veyselemre hocam emeğinize sağlık, iki şekilde de düzeldi.