Makro ile yeni liste düzenleme talebi

[ayetis]

İyi çalışmalar

Aşağıdaki gibi bir listem var.

Ürün Adı | No
........A........ | ......2
........B........ | ......4
........C........ | ......3

Bunu aşağıdaki gibi listelemek istiyorum.
A-1
A-2
B-1
B-2
B-3
B-4
C-1
C-2
C-3

Bu konuda yardımcı olabilr misiniz?

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoşgeldiniz, örnek bir dosya paylaşırsanız (herhangi bir sunucuya yükleyerek link verebilirsiniz.) dosyanıza göre kod oluşturulabilir.

 

[veyselemre]

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
            For ii = 1 To Cells(i, 2).Value
                sat = sat + 1
                Cells(sat, 4).Value = Cells(i, 1).Value & "-" & ii
            Next ii
    Next i
End Sub

 

[ayetis]

Merhaba,
Öncelikle foruma hoşgeldiniz, örnek bir dosya paylaşırsanız (herhangi bir sunucuya yükleyerek link verebilirsiniz.) dosyanıza göre kod oluşturulabilir.

örnek dosya linki :

Adlandırma.xlsx

drive.google.com