listboxda toplama?

[udentr2002]

Merhaba arkadaşlar listbox da 12 kolonum var bu kolonlardan 11. kolonum sayfada K sütününu göstermektedir. bu 11 kolondaki tüm değerlerin toplamını alıp bir textboxa almak istiyorum bunun için nasıl bir kod yazabilirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "K").End(3).Row
TextBox1 = Val(TextBox1) + Cells(SUT, "K")
Next
End Sub

 

[udentr2002]

hocam formu açınca "type mismatch" hatasını veriyor

 

[Orion1]

Aşağıdaki kırmızı yazılı yerleri değiştirip denermisiniz.
Dim SUT As long
For SUT = 2 To Cells(65536, "K").End(3).Row

 

[udentr2002]

Hocam çok teşekkür ederim oldu

 

[Orion1]

Hocam çok teşekkür ederim oldu

Rica ederim.
İyi çalışmalar.
Merakımı mazur görünüz.udentr ne demek acaba?