Hücre içinde istenen metne göre işlem yapma

[MUSSAR]

Merhabalar,
Örnek dosyamı gönderdim.
Yardımcı olursanız sevinirim.

A sutununda "Makina kısa"
B sutununda "Makine Kodları" bulunmakta.

D sutununda "Parça no" larının içinde , A sunundaki değerler geçiyor.
E sunununa , B sutunda geçen Makina kodlarını gelmesini istemekteyim.

Teşekkür ederim.

[SNNAY]

Deneyiniz; Kodu bir modüle yapıştırınız.

Kod: Tümünü seç

Sub EkleMakineKodlari()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowD As Long
    Dim i As Long, j As Long
    Dim makinaKısa As String
    Dim found As Boolean
    
    ' Aktif çalışma sayfasını ayarla
    Set ws = ActiveSheet
    
    ' Son satırları bul
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowD = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' D sütunundaki değerleri kontrol et
    For i = 2 To lastRowD ' D sütunundaki verilerin başlama satırını 2 olarak ayarlayın
        found = False ' Başlangıçta eşleşme bulunmadı
        
        For j = 2 To lastRowA ' A sütunundaki verilerin başlama satırını 2 olarak ayarlayın
            makinaKısa = ws.Cells(j, "A").Value
            If InStr(ws.Cells(i, "D").Value, makinaKısa) > 0 Then
                ' E sütununa makine kodunu yaz
                ws.Cells(i, "E").Value = ws.Cells(j, "B").Value
                found = True ' Eşleşme bulundu
                Exit For ' Eşleşme bulunduğunda iç döngüden çık
            End If
        Next j
        
        ' Eğer eşleşme bulunmadıysa "yok" yaz
        If Not found Then
            ws.Cells(i, "E").Value = "yok"
        End If
    Next i
    
    MsgBox "İşlem tamamlandı!", vbInformation
End Sub

[MUSSAR]

Selamlar,
Kod ile oldu.
Formül kullanarak da yapabilirmiyiz? Bu mümkünmüdür?
Teşekkür ederim.

[SNNAY]

Kod: Tümünü seç

=EĞERHATA(İNDİS(B:B;KAÇINCI(DOĞRU;ESAYIYSA(BUL(A:A;D2));0));"Yok")

[MUSSAR]

Merhabalar,
Sinan bey çok teşekkür ederim.
Tamamdır:))