Herkese günaydın.
Yine bu sitede yer alan değerli arkadaşların paylaşımlarıyla kullanmış olduğum kodu aşağıda belirtiyorum.
bu kod ile satır başını çift tıklayıp artırmak istediğim satır sayısını belirtiyorum.
gayet başarılı çalışıyor.
sorunum şu: bu vba ile satır eklediğimde d,ab,ac gizli sütunlarında yer alan formüllerin kaymaması. araya boş satırlar ekliyor.
Tamam boş satır eklemek istiyorum ama d,ab,ac sütunlarındaki formüllerin aşağı doğru kaymaya devam etmesini istiyorum.
örnek dosya hazırladım ekleyemedim bir türlü...
kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target <> "" Then Exit Sub
a = InputBox("Artırmak istediğiniz satır sayısını belirtin.!", "windowslive.com")
Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
End Sub
Yine bu sitede yer alan değerli arkadaşların paylaşımlarıyla kullanmış olduğum kodu aşağıda belirtiyorum.
bu kod ile satır başını çift tıklayıp artırmak istediğim satır sayısını belirtiyorum.
gayet başarılı çalışıyor.
sorunum şu: bu vba ile satır eklediğimde d,ab,ac gizli sütunlarında yer alan formüllerin kaymaması. araya boş satırlar ekliyor.
Tamam boş satır eklemek istiyorum ama d,ab,ac sütunlarındaki formüllerin aşağı doğru kaymaya devam etmesini istiyorum.
örnek dosya hazırladım ekleyemedim bir türlü...
kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target <> "" Then Exit Sub
a = InputBox("Artırmak istediğiniz satır sayısını belirtin.!", "windowslive.com")
Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
End Sub
Son düzenleme: