• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
3 Nisan 2009
Mesajlar
322
Excel Vers. ve Dili
2007
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 .
 
Merhaba,

Bu şekilde deneyin.

Kod:
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

.
 
Ö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
 
Dosya ekledim bakabilirmisiniz acaba .

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

Ekli dosyalar

  • Adsız.jpg
    Adsız.jpg
    28.4 KB · Görüntüleme: 5
Bu şekilde deneyin.

Kod:
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

.
 
Geri
Üst