3000 satırın arasına otomatik satır ekleme

[aacanakova]

Arkadaşlar kolay gelsin hepinize . Excell de 3000 satırlık bir listem var ben bu listenin aralarına bir veya ikişer satır eklemek istiyorum otomatik olarak nasıl yapabilirim yardımcı olurmusunuz .

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub ArayaEkle()
 
    Dim j As Long, i As Long
 
    j = 3 [COLOR=green]'eklenecek satır sayısı[/COLOR]
 
    Application.ScreenUpdating = False
 
    For i = 3000 To 2 Step -1
        Rows(i & ":" & i + j - 1).Insert Shift:=xlDown
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[aacanakova]

Eyvallah abiciğim teşekkür ederim eline sağlık .

 

[aacanakova]

Ömer bey peki bu eklediğimiz satırlara otomatik olarak kendi istediğimiz bir şey ekleyebilirmiyiz .
Mesela 3 satır ekledik a1 a2 a3
b1 b2 b3
c1 c2 c3 bu satırları hücre birleştirme yaparak İçine ''İBB''

Sonra yanındaki a4 a5 a6
b4 b5 b6
c4 c5 c6 bu satırları hücre birleştirme yaparak İçine ''YEREL ''

Sonra yanındaki a7 a8 a9
b7 b8 b9
c7 c8 c9 bu satırları hücre birleştirme yaparak İçine ''HÜKÜMET ''

BUNLARI EKLDİĞİM SATIRLARIN İÇİNE YAZDIRABİLİRMİYİM

 

[aacanakova]

Dosya ekledim bakabilirmisiniz acaba .

İstediğim 3-4 ve 5 satırdaki bilgileri otomatik olarak yazdırmak

 

[aacanakova]

Mümkün mü bunu yapabilmek acaba yardımcı olurmusunuz

 

[Ömer]

Bu şekilde deneyin.

Sub ArayaEkle()
 
    Dim j As Long, i As Long
 
    j = 3 'eklenecek satır sayısı
 
    Application.ScreenUpdating = False
 
    For i = 3000 To 2 Step -1
        Rows(i & ":" & i + j - 1).Insert Shift:=xlDown
        Range("A" & i & ":C" & i + j - 1).Merge
        Range("A" & i & ":C" & i + j - 1) = "İBB"
        Range("D" & i & ":E" & i + j - 1).Merge
        Range("D" & i & ":E" & i + j - 1) = "YEREL"
        Range("F" & i & ":H" & i + j - 1).Merge
        Range("F" & i & ":H" & i + j - 1) = "HÜKÜMET"
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.