Makro ile kod yapma

[emrebengul]

merhaba üstadlar
sayfada seçmiş olduğum koddan sonra ki sütunlarda bir malzeme kodu oluşturmasını istiyorum fakat hep hata aldım. Excel sayfasına ekledim bakıp destek olur musunuz?
Şimdiden teşekkür ediyorum

 

[maliex]

Sub KOD_OLUSTUR()


Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")

ss1 = s1.Cells(s1.Rows.Count, 1).End(3).Row

For X = 2 To ss1


    ANA_GRUP_KODU = Left(s1.Cells(X, "B"), 2)
    ALT_GRUP = Left(s1.Cells(X, "C"), 1)
    MARKA_KODU = Left(s1.Cells(X, "D"), 2)
    REYON_KODU = Left(s1.Cells(X, "E"), 1)
    VOLTAJ = Left(s1.Cells(X, "F"), 2)
    GUC = Left(s1.Cells(X, "G"), 3)
    EBAT = WorksheetFunction.Substitute(Left(s1.Cells(X, "H"), 7), " x ", "")
    CALISMA_ORTAMI = Right(s1.Cells(X, "I"), 4)
    RENK = Left(s1.Cells(X, "J"), 3)
    LED_SAYISI = Left(s1.Cells(X, "K"), 1)
    
    s1.Cells(X, "L") = ANA_GRUP_KODU & ALT_GRUP & MARKA_KODU & REYON_KODU & VOLTAJ & GUC & EBAT & CALISMA_ORTAMI & RENK & LED_SAYISI


Next X


End Sub

 

[emrebengul]

Teşekkürler