hücredeki değerlerin açıklamasını otomatik yazmak

[darkhome]

Merhaba arkadaşlar,

Bir hücredeki değerleri başka bir hücrede açıklamasını nasıl yapabilirim.

Örneği A1 hücresinde abcd yazılı
a=uzun boylu
b= Sarı saçlı
c=orta kilolu
d= orta yaşlı

Bu açıklamayı b1 hücresine şu şekilde yazdırabilir miyim.

A1 hücresi= ac B1 hücresi=Uzun boylu, orta kilolu

Şimdiden teşekkür ederim

Not= Açıklanacak değerler 50 nin üzerinde olabiliyor.
http://www.dosyaupload.com/d55t

 

[askm]

Örnek dosya eklerseniz, kod ile ya da formulle yardımcı olmaya çalışalım.

 

[darkhome]

Örnek dosya eklerseniz, kod ile ya da formulle yardımcı olmaya çalışalım.

Dosya eklendi

 

[ASLAN7410]

Merhaba dosyanız görünmüyor.

Herhalde böyle bir şey istediniz?
B1 hücresine aşağıdaki formülü yapıştırıp aşağı doğru çekin.

=EĞER(EĞERSAY(A1:A1;"*"&"a"&"*")=1;"Uzun boylu, ";"")&EĞER(EĞERSAY(A1:A1;"*"&"b"&"*")=1;"Sarı saçlı, ";"")&EĞER(EĞERSAY(A1:A1;"*"&"c"&"*")=1;"Orta kilolu, ";"")&EĞER(EĞERSAY(A1:A1;"*"&"d"&"*")=1;"Orta yaşlı";"")

 

[Korhan Ayhan]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

H6 hücresine aşağıdaki formülü uygulayıp deneyiniz.

=K_DÜŞEYARA(F6;$A$1:$B$100;2;0)

Function K_DÜŞEYARA(Aranan As Variant, Tablo_Dizisi As Range, Sütun_İndis_Sayısı As Integer, Eşleştir As Byte)
    For X = 1 To Len(Aranan.Value)
        For Y = 2 To 1 Step -1
            Bul = ""
            Veri = Mid(Aranan, X, Y)
            On Error Resume Next
            Bul = WorksheetFunction.VLookup(Veri, Tablo_Dizisi, Sütun_İndis_Sayısı, Eşleştir)
            On Error GoTo 0
            If Bul <> "" Then
                If K_DÜŞEYARA = "" Then
                    K_DÜŞEYARA = Bul
                Else
                    K_DÜŞEYARA = K_DÜŞEYARA & ", " & Bul
                End If
                Exit For
            End If
        Next
    Next
End Function

 

[darkhome]

Yardım eden arkadaşlara teşekkürler
İşlem tamamdır