WorksheetFunction.Sum

[mars2]

İyi Günler;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("sayfa1").Range("B2") = WorksheetFunction.Sum(Range("A1:A23"))
Worksheets("sayfa1").Range("B2").NumberFormat = "#,##0.00"
end sub
kod ile toplama işlemi yapılmakta ancak, Userform üzerinde bulunan 4 adet textboxlardan 1,2, ve 3. textboxları 4.textboxta toplanmakta,
Sorun :
Userform üzerinde ayrıca comboboxlar bulunmak textboxların açıklaması,
textboxlar ve comboboxlarda değerleri sayfa1 ilgili hücrelerine kayıt yapılmakta. Comboxlardaki bulunan açıklamalar 2. sayfadan alınmakta.
Toplamlar alınırken Comboboxlardaki değerler 2. sayfadan alındığı için 2. sayfa seçili olduğundan, sayfa1'de B2 hücresinde, A1:A23 hücre değerlerini toplamı alınmıyor. sorunun çözümü nasıl olabilir. cevaplarınız teşekkürler.

 

[danersin]

sorunuzu yanlış anlamıyorsam, sayfa1'in aktif olması gerekmez, worksheetfunction kısmındada sayfa referansını yazmanız yeterli olur.

[vb:1:f456788b83]Worksheets("sayfa1").Range("B2") = WorksheetFunction.Sum(Sheets("sayfa1").Range("A1:A23"))[/vb:1:f456788b83]

ayrıca combobox'ların değerleri 2. sayfadan alınıyor diye 2. sayfanın aktif olmasıda gerkmez.

 

[Haluk]

Worksheets("Sayfa1").Range("B2") = WorksheetFunction.Sum(Sheets("Sayfa2").Range("A1:A23"))

Edit: Ersin bey mesajını fark edemedim, özür...