Satır Ekleme

[aacanakova]

Sub Bos_Satir_Ekle()
For i = 2 To 300 Step 2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
[A1].Select
End Sub


Arkadaşlar elimde böyle bir kod var.Bu kod ile dolu satırların altına sadece 1 satır ekliyor. Ben 2 satır eklemek istiyorum ve elimde 175.000 satırlık bir tablo var. 300 ü 175000 yapınca tümüne 1 satır ekliyor .Tümüne 2 satır eklemek için nasıl bir değişiklik yapmam gerekiyor. Dosyayı ekledim sonuçta 3 satırın birleştirilip böyle gözükmesi gerekiyor. Yardımlarınız için şimdiden teşekkürler .

 

[Ömer]

Merhaba,

Rows(i).Select

yerine;

Rows(i & ":" & i + 1).Select

bu şekilde yazarak deneyiniz..

.

 

[aacanakova]

Ömer bey tekrar bakarmısınız olmuyor bu gönderdiğiniz ile taaa 300 . satırdan başlıyor .

 

[Ömer]

Döngüye dikkat etmemiştim..

Sub Bos_Satir_Ekle()
    For i = 300 To 2 Step -1
        Rows(i & ":" & i + 1).Insert Shift:=xlDown
    Next i
End Sub

Bu şekilde deneyiniz..

.