veri sayısı kadar satır açıp verileri aktarmak

[hikmet]

merhaba hocalarım ve arkadaşlarım;

rapor sayfasında veri sayısı değişken; şablon sayfasında bu verilerin atılacağı bölüm örneğin a50 hücresinden başlıyor fakat a53 hücresinde başka bir veri var ve bunların silinmemesi gerekiyor. a50 hücresinden aşağı doğru veri sayısı kadar satır açıp rapor sayfasındaki verileri nasıl aldırırız.

 

[hikmet]

merhaba;
sorunun bir kısmını halletim.sizden ricam tutanak adlı sayfada a48-a550 arasındaki boş satırları silecek bir makro örneği vermeniz. ilginiz için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[a48:a550].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[hikmet]

hocam sağolun makbule geçti teşekkür ederim ama sanırım eksik söyledim.
yazdır butonundan sonra a48 den itibaren 505 satır açması gerekli bunu nasıl yapabiliriz.

 

[hikmet]

arkadaşlarım şu konuya bir el atın lütfen eminim siz çözebilirsiniz...

 

[Levent Menteşoğlu]

.........yazdır butonundan sonra a48 den itibaren 505 satır açması gerekli bunu nasıl yapabiliriz.

Aşağıdaki gibi deneyin.

Application.ScreenUpdating = False
for a=1 to 500
rows(a+48).insert
next

 

[hikmet]

hocam sağolun şimdi bitti işte. denedim süper çalıştı varolun.