satır aktarmak

[bravo64]

merhaba,ekteki dosyada problemim yer alıyor..İnceleyecek arkadaşlara teşekkür ederim..

 

[excellium]

orijinal tabloyu ve yapılması gereken asıl işi anlatırsanız daha iyi olacak sanırım.

alt tolam kullanılmadan sonuca ulaşılabilir

 

[Levent Menteşoğlu]

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]

 

[bravo64]

sevgili leventm çok teşekkür ederim..tam istediğim gibi..İyi bayramlar diliyorum..
Þahsınızda tüm Excel.web.tr formuna üye olan arkadaşların..

 

[bravo64]

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..

 

[Levent Menteşoğlu]

C11 hücresine aşağıdaki formülü yazarak deneyin.

=TOPLA(DOLAYLI("C2:C10"))

 

[bravo64]

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?

 

[bravo64]

sevgili leventm,denemeden sormamam gerekirdi biliyorum..deneyince topla dolaylı formülünün aynısını uygulayınca bağ.değ.say dada oluyormuş..Meşgul ettiysem özür dilerim..
Bağ_değ_dolu_say(dolaylı("a1:a14")) örneğindeki gibi olabiliyor...
teşekkür ederim..