Beste Forumleden,
Heb een kleine uitdaging, althans voor mij..
Heb een bestand met hierin een afhankelijke keuzelijst.
Als in de afhankelijke keuzelijst een keuze wordt gemaakt moet er automatisch een filter worden gezet op een bepaalde kolom.
Als voorbeeld een bestand toegevoegd.
In Cel B2 kan middels een keuze lijst gekozen voor A of voor B
Vervolgens moet in Cel B4 een keuze gemaakt worden voor een de waarden die bij A of bij B horen
Indien je een keuze hebt gemaakt worden in kolom H automatisch die cellen getoond de deze ook deze waarde bevatten.
Dit doe ik middels de programma code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TempValue As String
If Target.Value = "" And Target.Address(False, False) = "B4" Then
ActiveSheet.ShowAllData
Else
Application.EnableEvents = False
TempValue = Target.Value
Target.Value = "*" & TempValue & "*"
Range("H7:H1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B3:B4"), Unique:=False
Target.Value = TempValue
Target.Select
Application.EnableEvents = True
End If
End Sub
Welke ik ooit ook hier van het forum hebt geplukt en heb aangepast.
Echter nu het probleem.
Het originele bestand is erg groot en ik heb nu de volgende problemen.
- Ik type nu in D10 de formule =E10*F10, echter blijft de formule niet staan maar laat hij alleen de uitkomst zien.
- Zodra ik in het originele bestand switch in de keuze van A1 naar A2 gaat hij ontzettend rekenen. Terwijl als ik eerst A1 verwijder en vervolgens A2 kies gaat hij razend snel.
Staat er nu iets fout in de code... of is er een andere manier.
Het gaat in het originele bestand om bijna 12 merken en per merk tussen de 4 tot 10 groepen. Het totale bestand bestaat uit ongeveer 1200 regels
Groet RoyBekijk bijlage test vervolg keuzelijst.xlsm
Heb een kleine uitdaging, althans voor mij..
Heb een bestand met hierin een afhankelijke keuzelijst.
Als in de afhankelijke keuzelijst een keuze wordt gemaakt moet er automatisch een filter worden gezet op een bepaalde kolom.
Als voorbeeld een bestand toegevoegd.
In Cel B2 kan middels een keuze lijst gekozen voor A of voor B
Vervolgens moet in Cel B4 een keuze gemaakt worden voor een de waarden die bij A of bij B horen
Indien je een keuze hebt gemaakt worden in kolom H automatisch die cellen getoond de deze ook deze waarde bevatten.
Dit doe ik middels de programma code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TempValue As String
If Target.Value = "" And Target.Address(False, False) = "B4" Then
ActiveSheet.ShowAllData
Else
Application.EnableEvents = False
TempValue = Target.Value
Target.Value = "*" & TempValue & "*"
Range("H7:H1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("B3:B4"), Unique:=False
Target.Value = TempValue
Target.Select
Application.EnableEvents = True
End If
End Sub
Welke ik ooit ook hier van het forum hebt geplukt en heb aangepast.
Echter nu het probleem.
Het originele bestand is erg groot en ik heb nu de volgende problemen.
- Ik type nu in D10 de formule =E10*F10, echter blijft de formule niet staan maar laat hij alleen de uitkomst zien.
- Zodra ik in het originele bestand switch in de keuze van A1 naar A2 gaat hij ontzettend rekenen. Terwijl als ik eerst A1 verwijder en vervolgens A2 kies gaat hij razend snel.
Staat er nu iets fout in de code... of is er een andere manier.
Het gaat in het originele bestand om bijna 12 merken en per merk tussen de 4 tot 10 groepen. Het totale bestand bestaat uit ongeveer 1200 regels
Groet RoyBekijk bijlage test vervolg keuzelijst.xlsm
