Hücreye tıkladığımızda satır eklemek

[Civan Jack]

İyi akşamlar

Dolu bir satırın altındaki hücreyi çift tıkladığımda satır ilavesi yapabilir miyiz acaba ? Hatta kaç satır ilave etmek istediğimizi kendimiz belirleyebileceğimiz bir kod yazabilir miyiz ?

Teşekkür ederim.

 

[Ömer]

Merhaba,

Çalıştığınız sayfanın kod bölümüne kopyalarak denermisiniz..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target <> "" Then Exit Sub
a = InputBox("Satır Sayısını Yazın.!", "Veri Girişi")
Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
End Sub

.

 

[Civan Jack]

Çok teşekkürler Ömer Bey
İyi akşamlar