satır eklemeyi otomatikleştirmek.

[akhelmet]

merhaba,
elimde 10000 satırlık bir tablo var diyelim
ve ben her satırın altına boş bir satır eklemek istiyorum
satır ekle ile yapabiliyorum.
ama 10000 satırda bu iş çok uzun sürüyor
otomatik yapma şansım varmı acaba

 

[zafer]

Merhaba


Sub BOSSATIREKLE()
Dim SATEKLE As Integer
SATEKLE = 2

Do Until Range("a" & SATEKLE).Value = ""
Rows(SATEKLE & ":" & SATEKLE).Select
Selection.Insert Shift:=xlDown
SATEKLE = SATEKLE + 2
Loop
Range("A1").Select

End Sub

 

[akhelmet]

kardeş eline sağlık güzel olmuş
fakat bende acayip uzun sürüyo eklemesi
bir satır ekliyo 5 saniye düşünüyo sonra yeniden ekliyo düşünüyo )
sence dosyanın uzunluğundanmı kaynaklanıyo acaba
çünkü makina çok hızlı bir makina p4 3,2 64 bit 2 gb dd2 ram

 

[zafer]

Merhaba

Ben 25 sütun A yazdım
2000 satır olarak kopyaladım

Hemen bitirdi. öyle bir deneyin sayfanızın büyüklüğünden olabilir.