Bir hücre "abc" içeriyorsa .....

[ilysl]

Bir sipariş excel tablosunda açıklama hücresinde(metin) belirttiğim karakter dizisini içeriyorsa istediğim metni yazsın.

Mesela
Bir hücre "Q" ve "mavi" içeriyorsa "MAVİ-YUVARLAK" yazsın , "kırmızı" içeriyorsa "KIRMIZI" yazsın , "YEŞİL" içeriyorsa yeşil yazsın. .............. gibi

100*150 1 ADET KIRMIZI ............ Q 160 1 ADET MAVİ .......... 180*300 1 ADET YEŞİL......... Q 160 1 ADET sarı..........

 

[md3m1ray]

dener misiniz?_

vba da modül ekleyip bu kodu yazın ve kendinize göre düzeltin ekleyin istediğiniz kriterleri

Function Kontrol(Aciklama As String) As String
    If InStr(1, Aciklama, "Q", vbTextCompare) > 0 And InStr(1, Aciklama, "mavi", vbTextCompare) > 0 Then
        Kontrol = "MAVİ-YUVARLAK"
    ElseIf InStr(1, Aciklama, "kırmızı", vbTextCompare) > 0 Then
        sKontrol = "KIRMIZI"
    ElseIf InStr(1, Aciklama, "YEŞİL", vbTextCompare) > 0 Then
        Kontrol = "YEŞİL"
    ElseIf InStr(1, Aciklama, "Q", vbTextCompare) > 0 And InStr(1, Aciklama, "sarı", vbTextCompare) > 0 Then
        Kontrol = "SARI-YUVARLAK"
    Else
        Kontrol = ""
    End If
End Function

ve orneğin acıklama A1 hücresinde ise sonucu yazdırmak istediğiniz hücreye =Kontrol(A1) yazın ve aşağı kaydırın

 

[ilysl]

Denedim biraz düzenledim oldu.