değişkene göre toplama işlemi

[ttrance]

arkadaşlar merhaba

Private Sub ComboBox2_Change()
ListBox1.Clear
For X = 2 To [A65536].End(3).Row
    If Left(Cells(X, 2), 50) = ComboBox2.Value And Left(Cells(X, 1), 50) = ComboBox1.Value Then
    c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Sheets("SAYFA1").Cells(X, 1)
    ListBox1.List(c - 1, 1) = Sheets("SAYFA1").Cells(X, 2)
    ListBox1.List(c - 1, 2) = Sheets("SAYFA1").Cells(X, 28)
    End If
Next
End Sub

bu formulde Cells(X, 28) hücresinde bulunan sayısal degerleri textbox1"e nasıl toplam olarak yazdırabilirim...

yani degişkene baglı olarak cıkan degerleri toplatayım istiyorum...

kolay geslsin

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Private Sub ComboBox2_Change()
ListBox1.Clear
For X = 2 To [A65536].End(3).Row
    If Left(Cells(X, 2), 50) = ComboBox2.Value And Left(Cells(X, 1), 50) = ComboBox1.Value Then
    c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Sheets("SAYFA1").Cells(X, 1)
    ListBox1.List(c - 1, 1) = Sheets("SAYFA1").Cells(X, 2)
    ListBox1.List(c - 1, 2) = Sheets("SAYFA1").Cells(X, 28)
[B][COLOR=blue]toplam=Sheets("SAYFA1").cells(X,28)+toplam
[/COLOR][/B]    End If
Next
[COLOR=blue][B]textbox1=toplam[/B][/COLOR]
End Sub[/LEFT]

 

[ttrance]

tam istedigim gibi hocam sagolasın

 

[ttrance]

hocam test etmeden cevap verdim ozur dilerim

sadece (x,28) deki son hücreyi gosteriyor topla dedigimizde

 

[ttrance]

yokmu yardım edecek

 

[ttrance]

toplam=Sheets("SAYFA1").cells(X,28)+toplam satırındaki
+toplamı kaldırınca hiçbir şey degişmiyor

 

[Recep İpek]

Normalde çalışması gerekiyor.

+toplam'ı kaldırmamanız gerekmektedir.

 

[ttrance]

Normalde çalışması gerekiyor.

+toplam'ı kaldırmamanız gerekmektedir.

evet ama hiç birşey degişmiyor ha var ha yok sonuc aynı yani

 

[ttrance]

sadece son satırdaki (x,28) degeriini gosteriyor

 

[Recep İpek]

Ekteki örnekte görüldüğü gibi kodlar düzgün çalışıyor.

If Left(Cells(X, 2), 50) = ComboBox2.Value And Left(Cells(X, 1), 50) = ComboBox1.Value Then

satırında problem olabilir.

 

[ttrance]

Private Sub ComboBox2_Change()
ListBox1.Clear
For X = 2 To [A65536].End(3).Row
If Cells(X, 2) = ComboBox2.Value And Cells(X, 1) = ComboBox1.Value Then
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = Sheets("SAYFA1").Cells(X, 1)
ListBox1.List(c - 1, 1) = Sheets("SAYFA1").Cells(X, 2)
ListBox1.List(c - 1, 2) = Sheets("SAYFA1").Cells(X, 28)
toplam1 = Sheets("SAYFA1").Cells(X, 28) + toplam
End If
next
end sub

listbox herşeyi dogru gosteriyor.. bahsettiginiz satırda bir sorun oldugunu zannetmiyorum kafamın takıldıgı en son hücreyi gosteriyor olması

 

[Recep İpek]

toplam1 = Sheets("SAYFA1").Cells(X, 28) + toplam

satırında toplam1 değişkeni toplam olması olması gerekiyor.

Yani

toplam = Sheets("SAYFA1").Cells(X, 28) + toplam

 

[ttrance]

Private Sub ComboBox2_Change()
ListBox1.Clear
For X = 2 To [A65536].End(3).Row
    If Cells(X, 2) = ComboBox2.Value And Cells(X, 1) = ComboBox1.Value Then
    c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Sheets("SAYFA1").Cells(X, 1)
    ListBox1.List(c - 1, 1) = Sheets("SAYFA1").Cells(X, 2)
    ListBox1.List(c - 1, 2) = Sheets("SAYFA1").Cells(X, 28)
    toplam1 = Sheets("SAYFA1").Cells(X, 28) + toplam1
    End If
    TextBox1 = toplam1
    Next
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 2) = ComboBox2.Value Then
    toplam2 = Sheets("SAYFA1").Cells(X, 28) + toplam2
    End If
    TextBox2 = toplam2
    Next
End Sub

SUAN CALIŞIYOR TEŞEKKÜRLER