satır ekleme

[maznun5255]

Merhaba sn hocalarım.

Küçük bir sorum olacaktır.

A1 den A1000 e kadar verilerin olduğu bir sayfaya her bir hücrenin altına BOŞ BİR SATIR EKLEME nasıl yapılır ?

Tek tek hücre tıklayarak yapmak zaman alıyor ..

Tesekkurler.

 

[veyselemre]

Sub test()
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Rows(i).Insert
    Next i
End Sub

 

[numan şamil]

Merhaba sn hocalarım.

Küçük bir sorum olacaktır.

A1 den A1000 e kadar verilerin olduğu bir sayfaya her bir hücrenin altına BOŞ BİR SATIR EKLEME nasıl yapılır ?

Tek tek hücre tıklayarak yapmak zaman alıyor ..

Tesekkurler.

Merhaba

Sub SATIREKLE()
Dim x As Long
Application.ScreenUpdating = False
For x = 2 To 2000
Range("A" & x).Insert Shift:=xlDown
x = x + 1
Next x
Application.ScreenUpdating = True
End Sub

 

[maznun5255]

Elleriniz dert görmesin.tesekkur ederim