Çözüldü Veri getirme

[ogecen]

Merhaba sayın arkadaşlar,

Herkese sağlıklı, huzurlu ve bereketli yeni bir yıl dilerim.
Açıklamasını Ek li dosyada yapmış olduğum formül konusunda yardımcı olabilirseniz çok sevinirim.

Saygılarımla,

 

[ulutanas]

Merhaba yapay zeka sordum kod ile bir çözüm üretti.

Sub ProsesTanimla()

    Dim sonSatir As Long
    Dim hucre As Range
    Dim deger As String

    sonSatir = Cells(Rows.Count, "A").End(xlUp).Row

    For Each hucre In Range("A2:A" & sonSatir)

        deger = CStr(hucre.Value)
        Cells(hucre.Row, "B").Value = ProsesBul(deger)

    Next hucre

    MsgBox "Prosesler başarıyla tanımlandı.", vbInformation

End Sub


Function ProsesBul(kod As String) As String

    kod = UCase(kod)

    If Left(kod, 4) = "1001" Then
        ProsesBul = "Enjeksiyon"

    ElseIf InStr(kod, "PF") > 0 Then
        ProsesBul = "Preform"

    ElseIf InStr(kod, "PK") > 0 Or InStr(kod, "CS") > 0 Or InStr(kod, "P") > 0 Then
        ProsesBul = "Pet"

    ElseIf Left(kod, 4) = "2003" Then
        ProsesBul = "Şişirme"

    ElseIf Left(kod, 3) = "KLP" Then
        ProsesBul = "Kalıp"

    ElseIf Left(kod, 3) = "SLV" Then
        ProsesBul = "Sleeve"

    ElseIf Left(kod, 3) = "SRG" Then
        ProsesBul = "Serigrafi"

    ElseIf Left(kod, 3) = "CNT" Then
        ProsesBul = "Fason"

    ElseIf Right(kod, 1) = "D" Then
        ProsesBul = "Deneme"

    Else
        ProsesBul = "Tanımsız Ürün"
    End If

End Function

 

[Muzaffer Ali]

Merhaba.
B2 formülü. Deneyiniz.

=EĞER(A2="";"";EĞER(SOLDAN(A2;4)="1001";"Enjeksiyon";
EĞER(ESAYIYSA(EĞERHATA(BUL("PF";A2);""));"Preform";
EĞER(ESAYIYSA(EĞERHATA(BUL("PK";A2);""));"Pet";
EĞER(ESAYIYSA(EĞERHATA(BUL("CS";A2);""));"Pet";
EĞER(ESAYIYSA(EĞERHATA(BUL("P";A2);""));"Pet";
EĞER(SOLDAN(A2;4)="2003";"Şişirme";
EĞER(SOLDAN(A2;3)="KLP";"Kalıp";
EĞER(SOLDAN(A2;3)="SLV";"Sleev";
EĞER(SOLDAN(A2;3)="SRG";"Serigrafi";
EĞER(SOLDAN(A2;3)="CNT";"Fason";
EĞER(SAĞDAN(A2;1)="D";"Deneme";
"Tanımsız Ürün"))))))))))))

 

[ogecen]

Sn. Muzaffer bey,

Elinize sağlık, çok güzel olmuş,
sadece sorun KLP ile başlayanlara "Kalıp" yerine "Pet" yazdı.
Bilgilerinize sunarım

 

[Muzaffer Ali]

Düzenledim.

=EĞER(A2="";"";EĞER(SOLDAN(A2;4)="1001";"Enjeksiyon";
EĞER(SOLDAN(A2;3)="KLP";"Kalıp";
EĞER(ESAYIYSA(EĞERHATA(BUL("PF";A2);""));"Preform";
EĞER(ESAYIYSA(EĞERHATA(BUL("PK";A2);""));"Pet";
EĞER(ESAYIYSA(EĞERHATA(BUL("CS";A2);""));"Pet";
EĞER(ESAYIYSA(EĞERHATA(BUL("P";A2);""));"Pet";
EĞER(SOLDAN(A2;4)="2003";"Şişirme";
EĞER(SOLDAN(A2;3)="SLV";"Sleev";
EĞER(SOLDAN(A2;3)="SRG";"Serigrafi";
EĞER(SOLDAN(A2;3)="CNT";"Fason";
EĞER(SAĞDAN(A2;1)="D";"Deneme";
"Tanımsız Ürün"))))))))))))

 

[ogecen]

Muzaffer bey çok teşekkür eder, saygılarımı sunarım

 

[Korhan Ayhan]

Alternatif..

 

[ogecen]

Sn. Korhan Hocam,

Alternatif çalışmalar için çok çok teşekkür ederim. Son derece faydalı çalışma oldu.