makro ile satir ekleme

[seylanosman]

Arkadaslar selamlar,

Bir makroya ihtiyacim var yardimci olursaniz cok sevinirim.

Ornegin, D kolonunun herhangi bir hucresine EKLE yazdigimda,bu hucrenin bulundugu satiri formulleriyle beraber komple alt satira kopyalayacak.insert copied cell olarak kopylamasi gerekiyor birde. Boyle bir makro yazilabilir mi? Yardimlariniz icin simdiden tesekkur ederim.

 

[Murat OSMA]

Selam,

EKLE yazmakla vakit kaybetmeyin, D sütununda herhangi bir hücrede çift tıkladığınızda o satırın hemen altına yeni bir satır eklesin ve o satıra da üstteki satırlar aynen gelsin. Bu şekilde olursa, şu kodları kullanabilirsiniz;


Sayfanın kod kısmına yapıştırıp deneyin...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 4 Then Exit Sub
    Rows(Target.Row + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.FillDown
End Sub