Çözüldü Hücre İçindeki Kelimeyi Makro ile Bulmak

[cavanoos]

Arkadaşlar;

EĞER(ESAYIYSA(MBUL(4587;A6));"UĞUR")

Yukarıdaki formülü makro ile yapabilir miyiz ?
Tanımlamalar sayfasında A sütununda 4587 var.
Tanımlamalar sayfasında B sütununda UĞUR var.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub Makro()
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(SEARCH(4587,RC[-1])),""UĞUR"","""")"
    Selection.AutoFill Destination:=Range("B5:B7")
    Range("B5:B7").Select
    Range("B5").Select
End Sub

işinizi görür mü?

Şu da olur; D1 e 4587, E1 e UĞUR yazın

Sub Bak()
    Dim Son As Long
    Son = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B5:B" & Son).ClearContents
        For i = 5 To Son
            If Cells(i, 1).Text Like "*" & [D1].Text & "*" Then
                Cells(i, 2) = Cells(1, 5)
            End If
        Next i
End Sub

deneyiniz ...

 

[cavanoos]

Günaydın Tevfik Bey;

Soruyu eksik sorduğumu farkettim. İki farklı çalışma sayfası var.
En güzeli örnek dosya ekleyip derdini anlatmakmış meğer

Ekteki dosyada işlem sayfası D sütununa makro ile sonuçlar gelecek.
Öncesinde burada eğer formülü vardı.

 

[Tevfik_Kursun]

Deneyiniz ...

 

[cavanoos]

Teşekkür ederim. Emeğinize sağlık.
Bu benim için büyük, sizin için küçük bir adım

 

[Tevfik_Kursun]

Rica ederim

 

[cavanoos]

Tevfik Bey;

Birşey farkettim.
Kod, küçük-büyük harf düzenine göre çalışıyor.
Ekteki örnekte KZCP olarak tanımladım, sonuç geldi.
kzcp olarak tanımladım, sonuç yok.

Hal böyle olunca tanımlamalar sayfasında hem büyük harf hemde ufak harfe göre aynı kelimeyi yazmam gerekiyor.
Buna birşey yapabilir miyiz ?

 

[Tevfik_Kursun]

Olacaktı diye hatırlıyorum, bulurum sanırım. Lütfen acele etmeyin

 

[Korhan Ayhan]

Kullandığınız sürüme göre bu formülde işinize yarayabilir..

Birden fazla eşleşmede sonuçları aralarına virgül ekleyerek benzersiz ve alfabetik sıralı listeler..

=TEXTJOIN(", ";1;SORT(UNIQUE(INDEX(Tanımlamalar!A:A;MATCH(FILTER(TEXTSPLIT(TRIM(B2);;" ");ISNUMBER(MATCH(TEXTSPLIT(TRIM(B2);;" ");Tanımlamalar!B:B;0)));Tanımlamalar!B:B;0)))))

Sürümünüz Türkçe ise formülü çevirmeniz gerekir..

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
Makro olarak bakmıştık.
Saygılarımla

 

[Korhan Ayhan]

Önerdiğim formülü linkteki yöntemle makroya dönüştürebilirsiniz..

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[Tevfik_Kursun]

deneyiniz ...