Cümle arası tek satır ekleme!

[SerKaN_wX]

Arkadaşlar exelde yeniyim. 2010 versiyonunu kullanıyorum.

Alttaki örnekteki gibi elimde bulunan belgeye tek tek satır eklemek yerine, ctrl+a yapıp her cümle arasına nasıl 1 boş satır ekleyebilirim.

 

[mustafaine1]

=IF(ISERROR(INDIRECT("a"&IF(MOD(ROW(A1),2)<>1,"",TRUNC(ROW(A2)/2)))),"",INDIRECT("a"&IF(MOD(ROW(A1),2)<>1,"",TRUNC(ROW(A2)/2))))

seklinde deneyerek asagi cekmeyi denermisiniz.

 

[mustafaine1]

Yahut makro ile asagidaki sekilde yapabilirsiniz;

Sub Satir_Ekle()
Application.Calculation = xlCalculationManual

Dim satir As Integer

satir = Range("a65536").End(3).Row

For i = satir To 2 Step -1
    Cells(i, 1).EntireRow.Insert
Next

Application.Calculation = xlCalculationAutomatic
End Sub

 

[SerKaN_wX]

Teşekkürler ama yine olmadı yada ben yapamadım. Ekteki dosyayı değiştirip tekrar ekleyebilirmisiniz.

 

[mustafaine1]

Merhaba,

Her iki cozumde ayri sayfalarda ornek dosyaniza eklendi, ekteki dosyayi inceleyiniz..

 

[SerKaN_wX]

İşte bu ya.Yardım için teşekkürler.

 

[mustafaine1]

Rica ederim; ama sadece isinizi gormek icin harcanmasin cozumler nasil yapildiklarini inceleyin, iyi calismalar.