ADET BİLGİSİNE GÖRE SATIR EKLEME

[uslu45]

herkese selam

benim bir tablom var ve bu tablodaki adet sütunundaki bilgilere göre satır eklemek istiyorum. örnekte 8. satırda olduğu gibi boşluk açmak istiyorum
yardımcı olursanız sevinirim
kolay gelsin...

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[Seyit Tiken]

Soruyu iyi idrak ettiğim sayılmaz. Bu kodu kendinize uyarlayarak deneyin. B1 hücresindeki değere göre satır ekler.

Sub Makro1()
For a = 1 To [B1]
Selection(a).Insert Shift:=xlDown
Next
End Sub

 

[uslu45]

sn. seyit tiken makronuzu uygulayamadım,
cost control sizin dosyanızı da açamadım rar dosyalarını açamıyorum,zip gönderebilirseniz sevinirim.
aslında istediğim şuydu ,
tablodaki adet değerleri kadar o adet değerinin bulunduğu satırın altına boş satır açmak, yani toplamda dolu satırla birlikte adet değeri kadar boş satır olacak sonra ben o boş satırları adet değerinin bulunduğu satırla aynısı ile dolduracağım
yine de teşekkürler uğraştığınız için...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim kontrol edermisiniz.

 

[uslu45]

sn. cost control çok teşekkür ederim ,gerçekten işime yaradı
iyi çalışmalar dilerim.