Stok adından Stok kodu oluşturma

[hamza9]

Merhabalar,

Stok adlarının yazılı olduğu bir sütundan otomatik olarak stok kodu oluşturmak istiyorum. Excel bilgim bunu yapabilecek çapta değil. Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basın.
Karşınıza kod editörü gelecektir.
INSERT menüsünden MODULE seçeneğini seçin.
Sağ tarafta boş beyaz bir pencere açılacaktır.

Aşağıdaki kod bu pencereye aktarın ve kursor kodun içinde bir yerde iken F5 tuşu ile makroyu çalıştırın.

Sub STOK_KODU()
    Dim X As Long, Renk As Range, Data As Variant, Bul As Integer, Say As Integer, Son As Long
    
    Range("D5:D" & Cells(Rows.Count, 1).End(3).Row).ClearContents
    
    For X = 5 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, "B") <> "" Then
            Data = Split(Trim(Cells(X, "B")), " ")
            Cells(X, "D") = Data(0) & " " & Data(1)
            Son = Cells(Rows.Count, "F").End(3).Row
            For Each Renk In Range("F5:F" & Son)
                Say = Say + 1
                Bul = InStr(1, Data(UBound(Data)), Renk.Value)
                If Bul > 0 Then
                    Cells(X, "D") = Cells(X, "D") & " " & Renk.Offset(0, 1) & Replace(Mid(Data(UBound(Data)), Bul, 255), Renk.Value, "")
                    GoTo 10
                End If
            Next

10          If Say = Son - 4 And InStr(1, Data(UBound(Data)), "Std") > 0 Then
                Cells(X, "D") = Cells(X, "D") & " " & Mid(Data(UBound(Data)), InStr(1, Data(UBound(Data)), "Std"), 255)
            End If
            Say = 0
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hamza9]

Ustad cok tesekkur ederim. Sayenizde kucumsedigim excel in mahir ellerde nelere kadir oldugunu anliyorum.

Müthis bir zaman kazanci benim acimdan. tekrar tesekkurler