WorksheetFunction fonksiyonları sadece düğme ile mi çalışır.

[Muhammet Okumuş]

[d1] = WorksheetFunction.Sum([a1:a10]) bu örneği düğmeye değilde sayfaya atabiliyormuyuz?a1:a10 arasına bir sayı yazdığımızda işlem yapsın istiyorum.

 

[leumruk]

Merhaba,
Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [a1:a10]) Is Nothing Then Exit Sub
[d1] = WorksheetFunction.Sum([a1:a10])
Son:
End Sub

 

[Orion1]

=topla(a1:a10)

 

[Merhum İdris SERDAR]

[d1] = WorksheetFunction.Sum([a1:a10]) bu örneği düğmeye değilde sayfaya atabiliyormuyuz?a1:a10 arasına bir sayı yazdığımızda işlem yapsın istiyorum.

.

Niçin denemiyorsunuz?

.

 

[Muhammet Okumuş]

Sn.Evren Bey ilginize teşekkür ederim.Ancak ben fonksiyon değil de makro çözüm istiyordum.Cevabınız için bir kez daha teşekkür ederim.Amacım az da olsa makro hakkında bilgiler edinebilmek.
Sn. Leumruk aradığım çözüm buydu.Bu tür fonksiyonlarda hep aynı kalıbı mı kullanacağız?

 

[Muhammet Okumuş]

Sn. Yurttaş denedim ama düğme ile çalışıyor.Sadece [d1] = WorksheetFunction.Sum([a1:a10]) kodunu yazınca işlem yapmıyor.

 

[leumruk]

Sn. Leumruk aradığım çözüm buydu.Bu tür fonksiyonlarda hep aynı kalıbı mı kullanacağız?

Sayfada işlem yaptığınızda kodun çalışmasını istiyorsanız bu kalıbı kullanacaksınız. Belirtilen aralıktaki bir hücrede silme yazma, hücreye girip çıkma gibi eylemler sonunda kod devreye girer.

 

[Muhammet Okumuş]

Öğrendiğim kadarıyla bir sayfada sadece bir tane private sub kullanabiliyoruz.Peki birden fazla fonksiyon kullancaksak nereye ekleme yapacağız.Örneğin b1:b10 hücresindeki değerleri çarpsaydık nasıl yapardık

 

[leumruk]

Öğrendiğim kadarıyla bir sayfada sadece bir tane private sub kullanabiliyoruz.Peki birden fazla fonksiyon kullancaksak nereye ekleme yapacağız.Örneğin b1:b10 hücresindeki değerleri çarpsaydık nasıl yapardık

Şart ekleyeceksiniz. Eğer koşul şu olursa şu işlemi, bu olursa bu işlemi yap gibi.
If komutunu mantıklı bir kurguya oturttuğunuz zaman istediğiniz kadar komut eklersiniz.

 

[Muhammet Okumuş]

Sn. Leumruk verdiğiniz bilgiler için çok teşekkür ederim.

 

[leumruk]

Sn. Leumruk verdiğiniz bilgiler için çok teşekkür ederim.

Rica ederim.