topla formülünde satır silme sorunu

[mecnun24_]

excelde topla (d7:d300) gibi bir formülüm var. ama satırlardan silinince formül silinen satır kadar küçülüyor.. bunun bir sabitleme yöntemi varmıdır.. yada topla (d:d) şeklinde yazsam formüllerin hesaplama hızını çok etkilermi..kapatırken açarken falan kasarmı.. ilgilenenlere şimdiden tşkrler....

 

[sinbade]

Aşağıdakileri ALT+F11 ile visual basic'i açtıktan sonra ilgili sayfanın kodu olarak girin.
Not: D1 ile D300 arasındaki hücrelerin toplamını C1 hücresine yazacak şekilde hazırladım.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C1").FormulaR1C1 = "=SUM(RC[1]:R[299]C[1])"
End Sub

Umarım işinizi görür...

Kolay gelsin.

 

[mecnun24_]

ilginize teşekkürler. kodla yazdırmak hoş olurdu ama formullerin sabit kalması gerekiyor. sadece satır silince formullerin değişmesin bana yeterli..

 

[sinbade]

Hücrenin içine doğrudan yazacağınız fonksiyon, satır silinince değişir.

Ancak yukarıdaki kodu ilgili sayfanın change olayına yazarsanız sayfadaki her bir değişiklikte hücreye aynı fonksiyon yazılacaktır.

Belki üstatlar başka çözüm yolu geliştirebilirler.

 

[uzmanamele]

merhaba
bunu deneyiniz

=TOPLA(DOLAYLI("D7:D300"))

 

[mecnun24_]

merhaba
bunu deneyiniz

=TOPLA(DOLAYLI("D7:D300"))

tşkrler üstadım işe yaradı...

 

[mkarakas]

merhaba
bunu deneyiniz

=TOPLA(DOLAYLI("D7:D300"))

çok teşekkürler...

 

[nane]

Aşağıdakileri ALT+F11 ile visual basic'i açtıktan sonra ilgili sayfanın kodu olarak girin.
Not: D1 ile D300 arasındaki hücrelerin toplamını C1 hücresine yazacak şekilde hazırladım.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C1").FormulaR1C1 = "=SUM(RC[1]:R[299]C[1])"
End Sub

Umarım işinizi görür...

Kolay gelsin.

Merhabalar sinbade,
Bu kodu 4 ayrı sütun için nasıl yapmalıyım D,E,F,G sütunları için. toplam, isk., kdv., Yekün
sütunları var
İlginize teşekkürler...
Yb®