toplamda 500 satırlık veri var. ve her satırın arasına 7'şer satır eklenmesi/açılması gerekiyor. satır ekle deyince ekliyor ama 500 defa aynı işlemi yapacak olmak facia. bunu manuel değil de formülle veya başka bir şekilde yapmanın yolu var mı?
Makroyla yapılır. Mesaj atıyorum.
cakabo
Sub Bos_Satir_Ekle()
For i = 2 To 300 Step 2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
[A1].Select
End Sub
bu macro ile her satır arasına 1 satır eklenebiliyor... 7 tane nasıl yapılıyor ben de deniyorum :/
otopsicocugu
@otopsicocugu'nun kodunu şu şekilde revize edersen istediğini elde edebilirsin.
Sub Bos_Satir_Ekle()
For i = 2 To 3500
Rows(i).Select
For j = 0 To 7
Selection.Insert Shift:=xlDown
Next j
i = i + 8
Next i
[A1].Select
End Sub
transparent layer
@otopsicocugu
For i = 2 To 300 Step 2 satırındaki
Step 2'yi Step 8 olarak değiştirmelisin
€xpolerer
1