Satır eklemek

[polis-53]

Arkadaşlar excel de dir tablom var bu tabloda her satır arası 4 satır eklemek istiyorum nasıl yapacağımı bilemiyorum yardım ederseniz teşekkür ederim

 

[Ömer]

Merhaba,

Sub SatirEkle()
Application.ScreenUpdating = False
Dim i As Double
    For i = [A65536].End(3).Row To 2 Step -1
        Rows(i & ":" & i + 4).Insert Shift:=xlDown
    Next i
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyin.

.

 

[polis-53]

arkadaşım ben butona her tıkladığımda 1 satır eklesin

 

[Ömer]

arkadaşım ben butona her tıkladığımda 1 satır eklesin

4 olmayacak mıydı?

Arkadaşlar excel de dir tablom var bu tabloda her satır arası 4 satır eklemek istiyorum nasıl yapacağımı bilemiyorum yardım ederseniz teşekkür ederim

Rows(i & ":" & i + 4).Insert Shift:=xlDown

bu satırı,

Rows(i).Insert Shift:=xlDown

olarak değiştirin.

.

 

[a long time ago]

ben yeni öğreniyorum makro yazmayı ve yazdığın kodda neden [A65536] ifadesi var tam anlayamadım açıkcası. Belli bir sebebi var mı acaba? Açıklayabilirsen memnun olurum

Teşekkürler

 

[Ömer]

Merhaba,

Excel 2003 versiyonunda son satır 65536 dır.

[A65536].End(3).Row

bu yazılım 65536 satıra kadar bakarak son dolu satırın satır numarası bulur.

.