Hücredeki sayıyı yada metni arayıp o hücreyi seçmek

[ewreka]

Bir listede sadece bir tane bulunan metni arayarak o hücre değerindeki sayıyı başka bir hücreye yazdırmak istiyorum. yada bu hücreyi seçili hale getirmek istiyorum.

yardımlarınızı bekliyorum. örnek dosya ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki gibi bir kod işinizi görürür sanırım.

Sub RakamBul()
    Dim c As Range
    Dim i As Integer
    Dim Say As String
    
    Set c = Range("A:A").Find("Yukarda", LookIn:=xlValues)
    If Not c Is Nothing Then
        For i = 1 To Len(Cells(c.Row, "A"))
            If IsNumeric(Mid(Cells(c.Row, "A"), i, 1)) = True Then
                Say = Say + Mid(Cells(c.Row, "A"), i, 1)
            End If
        Next i
        [B4] = Val(Say)
    End If
End Sub

 

[ewreka]

Çok Teşekkür ederim dostum. çok işime yaradı

 

[Necdet]

Rica ederim. Güle güle kullanınız.