Soru Kaldırılan satır yerine satır ilavesi yapmak..

[EKREM1661]

Değerli arkadaşlar..! Şu eylemi makro koduna çevirebilir miyiz?
B sütununda; son dolu olan satırdan sonra,
6 satır atladıktan sonra,
5 satırlık boş satır eklemesi yapacak..

Şunun için; combobox'a (form denetim nesnesi) belli bir alan satır aralığı yüklenmiş.. İşi biten veri satırı kaldırılınca, combobox'a yüklü satırlardan da kaldırıyor/eksiltiyor.. Bunu eşit tutmak için böyle bir çözüm düşündüm..

 

[Ömer]

Merhaba,

Deneyiniz.

Sub ekle()
    Dim son As Long
    son = Cells(Rows.Count, "B").End(xlUp).Row + 6
    Rows(son & ":" & son + 5).Insert Shift:=xlDown
End Sub

 

[EKREM1661]

Hocam çok çok teşekkür ediyorum.. Elinize sağlık..