satır eklemede değişik bir olay

[akhelmet]

Merhaba,

bir kaç post önce otomatik satır ekleme ile ilgili soru sorup cevap almıştım
şimdi aynı mantıkta bir tablodaki satır aralarına benim seçtiğim 15 içi dolu satır ekleyebilirmiyim acaba macro ile veya fonksiyon ile yapabilirmiyiz

lütfen yardım edin
teşekkürler.

 

[danersin]

k1 HÜCRESİNE yazdığınız sayı kadar satır açar.

Sub Makro1()
ekle = Cells(1, 11)
son = Cells(65536, 1).End(xlUp).Row
For i = son To 3 Step -1
If Cells(i, 2) <> Cells(i - 1, 2) Then
Rows(i & ":" & i + ekle).Insert shift:=xlDown
Cells(i, 6) = "GENEL MUD"
Cells(i + 1, 6) = "GENEL MUD. YRD"
Cells(i + 2, 6) = "DEKAN"
'AYNI MANTIKLA SATIR SAYISINI 1 ARTTIRARAK TAMAMLAYIN
End If
Next i
End Sub

 

[akhelmet]

satır ekleme makrosu

öncelikle teşekkürler uğraştığınız için

ekte dosya gönderiyorum

makro firma numaralarını doğru olarak atlıyor 1 den 2 ye falan

ama hep bir satır ekliyor araya, yazdığımız kadar değil

onun yerine ünvanları hücreleri ötelemeden ekliyor malesef