excel kutular imleçle secip toplamak

[ferragamo]

örnek olarka resmi koydum

resimdeki kutuları imleçle seçip istediğim diğer kutuda toplamak istiyoru

nasıl yaparım arkdaslar

 

[Milady Meriç]

sayın Ferragamo;

Ekteki çalışmamı inceler misiniz ? Eğer istediğiniz bu ise, mantığını açıklayayım

 

[ferragamo]

bilmiyorum senin anlattıgını

imlecle ordaki 20-25 kutuyu secip direk isaretlediğim sagdaki kutuda toplasın istiyorum.

 

[Milady Meriç]

bilmiyorum senin anlattıgını

imlecle ordaki 20-25 kutuyu secip direk isaretlediğim sagdaki kutuda toplasın istiyorum.

Tamam işte, ekte gönderdiğim ...

Kolay gelsin.

 

[ferragamo]

hocam sen cok farklı anlatmıssın
butun satırlara tekrar kod eklemek gerekiyor.

elimde 15000 satır bilgi var.

cursor la 20 satırı secip istediğim kutuya toplamı versin
seninkinde elma var baska bir yerde elma secme tusu daha var.

 

[Milady Meriç]

Size küçücük bir vba kodu versem ?

Sub Topla()
Dim x
x = WorksheetFunction.Sum(Selection)
Range("h1").Value = x
End Sub

Bu kodu bir butona ekleyin. İstediğiniz hücreleri seçtikten sonra butona tıklayın, seçtiğiniz hücrelerin toplamını H1 hücresine verecektir. H1 hücresini isteğinize göre değiştirin.

Bu işinizi görür mü?