"içinde geçiyorsa"

[qazxswedc321]

Merhaba,

A sütununun her bir hücresinde sayılardan oluşan veriler var.
Örneğin;
A1: 256345
A2: 659874
A3: 652374

B sütununda ise hem sayı hem de metinden oluşan veriler var.
Örneğin;
B1: Numune_235415
B2: 123678965415
B3: Adet_652374_4561

A sütunundaki her bir hücredeki değeri B sütununda aratmak istiyorum.
Eğer varsa C sütununda aynı satırda bulduğu değeri yazsın:
Örneğin:
A3 hücresindeki değer B3 hücresinde geçiyor (652374), A3 hücresinin C sütunu karşılığı olan C3 hücresine B3'teki değeri yazsın.

Bunu nasıl yapabileceğimi bulamadım, yardımcı olursanız sevinirim.

Saygılarımla

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

=EĞER(ESAYIYSA(MBUL(A1;B1));B1;"")

 

[walabi]

Merhaba, alternatif olarak deneyin,

=EĞER(EĞERSAY(B1;"*"&A1&"*")>0;B1;"")

 

[qazxswedc321]

Merhaba,
Desteğiniz için çok teşekkür ederim.
Saygılarımla

 

[airborne]

S.a.

Sub eses()

    Dim i As Long
    Dim sonSatir As Long
    Dim degerA As String
    Dim degerB As String


    sonSatir = Cells(Rows.Count, "A").End(xlUp).Row

  
    For i = 1 To sonSatir
        degerA = Trim(CStr(Cells(i, "A").Value))
        degerB = CStr(Cells(i, "B").Value)

      
        If degerA <> "" And InStr(degerB, degerA) > 0 Then
            Cells(i, "C").Value = degerB
        Else
            Cells(i, "C").Value = ""
        End If
    Next i

    MsgBox "İşlem tamamlandı.", vbInformation

End Sub

 

[qazxswedc321]

A.S.

çok teşekkür ederim "airborne"