verilen sayı kadar çoklama makrosu

[çaneğrisi]

Merhaba,

Ekteki excelde tekrar başlığının altıdaki sayıların 1 azı kadar ilgili satırları çoklamak istiyorum. Dosyam çok yüklü örnek ekledim yardımcı olur musunuz.

Teşekkürler

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub satirkopya()
son = Cells(Rows.Count, "C").End(3).Row
Application.ScreenUpdating = False
    For i = son To 2 Step -1
        Rows(i).Copy: Rows(i + 1 & ":" & i + Cells(i, "C") - 1).Insert shift:=xlDown
    Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı."
End Sub

 

[çaneğrisi]

Çok teşekkürler. Acaba her satırın tam altına eklemek yerine grup grup tüm listenin altına nasıl ekleriz. Ekte sayfa 1 de sarı ile işaretlediğim şekilde.

Bir de benim asıl yapmak istediğim futbol fikstür' ü gibi bir şey. Her yönetici grubundakileri kendileri hariç eşleştirmem gerekiyor. 360 sheet' inde belirttiğim şekilde o konuda bir yönlendirmeniz olur mu?

 

[YUSUF44]

Beni aşıyor maalesef.