"içinde geçiyorsa"

Katılım
12 Mayıs 2009
Mesajlar
196
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
17.06.2021
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,110
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Deneyiniz.

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

walabi

Altın Üye
Katılım
22 Eylül 2012
Mesajlar
1,051
Excel Vers. ve Dili
excel 2010

excel 2013
Altın Üyelik Bitiş Tarihi
06-08-2025
Merhaba, alternatif olarak deneyin,

Kod:
=EĞER(EĞERSAY(B1;"*"&A1&"*")>0;B1;"")
 
Katılım
20 Ekim 2005
Mesajlar
488
S.a.

Kod:
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
 
Katılım
12 Mayıs 2009
Mesajlar
196
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
17.06.2021
A.S.

çok teşekkür ederim "airborne"
 
Üst