Aşağıdaki kodu deneyin. A1:A3 arasındaki bir ismi silerek kodun çalışmasını inceleyin.
[vb:1:e220c685e8]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a3]) Is Nothing Or Target <> 0 Then Exit Sub
sat = Target.Row
Rows(sat).Delete
Rows(3).Cut
Rows(5).Insert
End Sub
[/vb:1:e220c685e8]
Merhaba arkadaşlar,
Sayın leventm dün akşam poroblemimi çözmüştü ancak internet bağlantım bozulduğu için devam edemedim;satırları aktarmada sorun yok ama ara toplam satırlarındaki hücre başvuruları değişiyor..tekrar formülleri yenilemem gerekiyor..
Bunu çözebilirmiyiz acaba?
($ sabitlemesini falan uyguladım ama olmadı..)
ekte dosya var..
Sevgili leventm,çok güzel oldu ama bir sorum daha olacak,bu formülü bağlı değişgen dolu say" da nasıl yapabiliriz..yani topla yerine bağ.değ.dolu say varsa?
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.