Soru satır ekleme konusunda yardım

[kakara]

merhaba ustadlarım satır ekleme konusunda sızden yardım beklıyorum ılgınız ıcın tesekkurler detaylar eklı dosyada mevcuttur.

satir_eklemek.xlsx dosyasını indir - download

satir_eklemek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[ÖmerFaruk]

Module içine ekleyip çalıştırabilirsiniz.
Barkod listenizin A2 den başlayarak A sütunu boyunca aralıksız yazıldığını varsaydım.

Sub Barkodlar()
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
    For k = 6 To 1 Step -1
        Rows(i + 1).Insert
        Range("A" & i + 1) = k & "_" & Range("A" & i)
    Next k
Next i
End Sub

 

[kakara]

tesekkur ederım ustadım denedım calısıyor

 

[ÖmerFaruk]

Eyvallah