İmlecin Bulunduğu satıra, üst satırı kopyalama

[alooo]

Arkadaşlar,
Yapmak istediğim şey; aktif hücrenin üstündeki tüm satırı, aktif hücrenin bulunduğu satıra kopyalamak. Makro ile kendim yapmak istedim lakin amatör olduğum için yapamadım ve araştırmama rağmen böyle bir kod bulamadım. Bu sebeple üstadlardan yardım istiyorum. Lütfen ilgili kodu yazar mısınız?

Teşekkürler.

 

[Korhan Ayhan]

Pratik bir yöntem önerebilirim.

Bulunduğunuz satırda kopyalama istediğiniz alan kadar hücreyi seçip CTRL+D tuşlarına basarsanız üstteki alanı aynen aktif satıra aktarabilirsiniz.

Bu yöntemi makro kaydet ile kayıt edip kullanabilirsiniz.

 

[alooo]

Üstadım bahsettiğiniz şekilde makro oluşturarak da denedim. Lakin benim bahsettiğim aktif hücrenin üstündeki satırın kopyalanması. Bahse konu makro oluşumunda sabit satırı, yine sabit satıra kopyalıyor sadece.

 

[alooo]

Bu hususta yardimlarinizi bekliyorum arkadaslar.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Ben A-Z sütun aralığını kopyalattım. Siz istediğiniz gibi değiştirirsiniz.

Sub KOPYALA()
    Satir = ActiveCell.Row
    If Satir > 1 Then Range("A" & Satir & ":Z" & Satir).FillDown
End Sub

 

[alooo]

Aşağıdaki kodu deneyiniz.

Ben A-Z sütun aralığını kopyalattım. Siz istediğiniz gibi değiştirirsiniz.

Sub KOPYALA()
    Satir = ActiveCell.Row
    If Satir > 1 Then Range("A" & Satir & ":Z" & Satir).FillDown
End Sub

Çok teşekkür ettim üstadım. Sağolasın.