VBA totalen in label plaatsen uit excellijst met ALS functie

Status
Niet open voor verdere reacties.
B

Bosswilly

Gebruiker
Lid geworden
28 mrt 2016
Berichten
110
Goedendag,

Stel ik wil aan de hand van mijn combobox die aan de hand van mijn excellijst (kolom 1) het totaal aantal peren, appels en tomaten weten van die desbetreffend kolom 1. Hoe doe ik dit?

Ook dat het slim zoekt naar de variabelen van de combobox in de toekomst, want ik wil in mijn daadwerkelijke sheet in de nabije toekomst uitbreiden en dan wil ik niet alle functies aanpassen.

De combobox wordt mogelijk in de toekomst vervangen voor een TextBox.

Bekijk bijlage 331933
 
Code: 
Private Sub ComboBox1_Change()
sv = Cells(2, 1).CurrentRegion.Resize(, 5)
For i = 1 To UBound(sv)
   If sv(i, 1) Like ComboBox1.Column(0) & "/?" Then
    appels = appels + sv(i, 3)
    peren = peren + sv(i, 4)
    tomaten = tomaten + sv(i, 5)
   End If
 Next i
  Label2 = appels
  Label3 = peren
  Label5 = tomaten
End Sub

Of:
Code: 
Private Sub ComboBox1_Change()
 Label2 = Application.SumIf(Columns(1), ComboBox1 & "/?", Columns(3))
 Label3 = Application.SumIf(Columns(1), ComboBox1 & "/?", Columns(4))
 Label5 = Application.SumIf(Columns(1), ComboBox1 & "/?", Columns(5))
End Sub

Of:
Code: 
Private Sub ComboBox1_Change()
 Label2 = Evaluate("sumIf(a:a,""" & ComboBox1 & "/?"",c:c)")
 Label3 = Evaluate("sumIf(a:a,""" & ComboBox1 & "/?"",d:d)")
 Label5 = Evaluate("sumIf(a:a,""" & ComboBox1 & "/?"",e:e)")
End Sub
 
Laatst bewerkt:
Ik begrijp niet helemaal wat de bedoeling is, maar het is altijd een goed idee om gestructureerd te werken. Geen lege rijen, geen lege kolommen, de labels een handige/logische naam geven, etc.
 

Bijlagen

  • kladversie.xlsb
    17,9 KB · Weergaven: 23
Sorry heren/dames, ivm drukte had ik niet altijd tijd. Hartelijk dank voor jullie antwoorden.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan