satırı üst satıra kopyalama makrosu

[Pegassgs]

merhaba

excel sayfası boyunca istediğim herhangi bir satırı yeni bir satır açarak bir üst satıra kopyalamama yardımcı olacak bir makro..
ayrıca yeni oluşturduğum satırın renkli olarak gelmesini ve kopyalanan satırdaki rakamların özelyapıltırılmış şekilde taşınmasını istiyorum..

bu şekilde bir makro oluşturmak mümkünmüdür?

Teşekkürler şimdiden

 

[Huseyinkis]

merhaba

excel sayfası boyunca istediğim herhangi bir satırı yeni bir satır açarak bir üst satıra kopyalamama yardımcı olacak bir makro..
ayrıca yeni oluşturduğum satırın renkli olarak gelmesini ve kopyalanan satırdaki rakamların özelyapıltırılmış şekilde taşınmasını istiyorum..

bu şekilde bir makro oluşturmak mümkünmüdür?

Teşekkürler şimdiden

Ekteki kodları denermisiniz. A sutununda her hangi birisine 1 yazdığınızda o satırı bir üste değerlerini kopyalar. kopyalama işlemini 2 sutundan 20 sutuna kadar yapar kodları kendi dosyanıza göre uygulamanız gerekecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
If Cells(Target.Row, 1).Value = 1 Then
Rows(Target.Row).Insert
For i = 2 To 20
Cells(Target.Row - 1, i).Value = Cells(Target.Row, i).Value
Next i
End If
End Sub