Makro ile ETOPLA fonksiyonu kullanımı hakkında soru

[onoono]

Herkese selamlar,

Şöyle bir sorum var...

Bir userformdaki Listboxtan bir seçim yapıldığında, ETOPLA fonksiyonunun çalışmasını ve sonucun Yine aynı userform üzerindeki bir label nesnesinin caption değeri olarak atanmasını istiyorum. Benim durumumda label33 nesnesine sonucu atamak için, Listbox1 Click olayı altına şöyle bir kod yazdım;

Private Sub ListBox1_Click()
Dim Sonsat As Long, acsat As String

Cells(ListBox1.ListIndex + 2, 1).Select



TextBox1.Text = Sheets("SIPARISLER").Cells(ActiveCell.Row, "B")
TextBox2.Text = Sheets("SIPARISLER").Cells(ActiveCell.Row, "F")


Sonsat = Sheets("SIPARISLER").Range("B65536").End(xlUp).Row
acsat = Sheets("SIPARISLER").Cells(ActiveCell.Row, "B")

Label33.Caption = WorksheetFunction.SumIf(Sheets("SIPARISLER").Range("B2:B" & Sonsat), "acsat", Sheets("SIPARISLER").Range("G2:G" & Sonsat))

End Sub

Ancak kod çalıştığında Label33 nesnesi hep sıfır değerini gösteriyor. Nedenini anlamadım. Yardımcı olursanız çok sevinirim.

Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya destekleyerek açılarmısınız.

 

[onoono]

örnek dosya ektedir.

Teşekkürler.

 

[Ömer]

Formülde tanımladığınız "acsat" değerini tırnak içine almışsınız. Tırnakları silerseniz istediğiniz olacaktır.

 

[onoono]

Teşekkürler

Sorun çözüldü. Yardımınız için çok teşekkür ederim.
İyi geceler.