Opgelost ComboBox met List

Dit topic is als opgelost gemarkeerd
Staat al in mijn suggestie. Leren = bestuderen.
 
Goedenavond,

Loop nog tegen een probleem op :-(

Als hij inleest met CattegorieCB werkt goed, maar de bron van gegevens heeft 18 kolommen.
We hebben hier als test-file 4 genomen.
Waar ik tegenaan loop is:
Stel dat we hier 7 kolommen met data hebben
En wil alleen kolom 1-4 en kolom 7 overzetten.
Met Union(.Range zou dat kunnen, maar met Resize zit je (dacht ik) vast aan kolommen aan elkaar.
Klopt dit?
Is er een manier om toch bv. kolom 1-4 en kolom 7 over te zetten met Resize?
 
Bovenstaande probleem hierboven opgelost zie voorbeeldje.

Blijft over en hier zou ik het niet zo weten.
Bij het zoeken onder CategorieCB staat:

Code: 
Data = Filter(Evaluate("transpose(if(" & "DBase!" & .Range("K9:K" & lRowDBase).Address & "=" & CattegorieCB.Value & "," & "DBase!" & .Range("H9:H" & lRowDBase).Address & ",false))"), False, 0)

Dit werkt perfect, zolang de Categorie gegevens uit een cijfer bestaat.
Maar zou tekst moeten zijn en geeft hierbij gelijk de fout aan: "Typen komen niet met elkaar overeen"Fout #13

Hoe kan ik deze filter zo aanpassen dat hij (ook) met tekst filtert?

Iemand nog een idee?
 

Bijlagen

Probeer eens met deze.
Code: 
Data = Filter(Evaluate("transpose(if(" & "DBase!" & .Range("K9:K" & lRowDBase).Address & "=" & IIf(IsNumeric(CattegorieCB.Value), _
        CattegorieCB.Value, Chr(34) & CattegorieCB.Value & Chr(34)) & "," & "DBase!" & .Range("H9:H" & lRowDBase).Address & ",false))"), False, 0)
 
Dat " &amp" heb ik ook al een aantal keren gehad bij het plaatsen van code op deze site.
 
Warm Bakkerteje thanks het werkt :)
Zowel voor tekst als voor nummeric
Liep nog tegen een klein foutje aan, als je een Categorie probeert die niet voorkomt in de DBase van Bedrijven.
Ook weer opgelost.
pffff heeft wat energie gekost maar dankzij jullie er uiteindelijk toch uit gekomen.
Trakteer op een biertje :)
Nogmaals bedankt en fijne avond verder.
Dutch
 

Bijlagen

Graag gedaan en een frisdrankje ben ik ook al tevreden mee hoor. :)
 
Hoi Warmebakkertje,
Heb nog een vraagje als afsluiter :)
Heb nu een Categorie, waarmee dus bepaalde bedrijfsnamen naar boven gehaald wordt, werkt perfect.
Maar nu komt ie, is er in de volgende regel ook een mogelijkheid dat je ze allemaal inleest in deze .List.
Gaat om:

Code: 
      DataAl = Filter(Evaluate("transpose(if(" & "DBase!" & .Range("K9:K" & lRowDBaseAl).Address & "=" & IIf(IsNumeric(CattegorieCB.Value), CattegorieCB.Value, Chr(34) & CattegorieCB.Value & Chr(34)) & "," & "DBase!" & .Range("H9:H" & lRowDBaseAl).Address & ",false))"), False, 0)  ' Tekstueel zoeken

Weet dat je met *.* alles kan laten ophalen, maar dat werkt hier dus niet :-(
Is daar ook een optie voor?

Gaat er dus om dat ik de Categorie kan gebruiken, maar ook de optie "Alle"
Zodat later ik alle bedrijfsnamen kan printen of PDF van maken.
 
Hoe kan ik deze regel veranderen, zodat hij alle categorieën inleest?
Code: 
Data = Filter(Evaluate("transpose(if(" & "DBase!" & .Range("K9:K" & lRowDBase).Address & "=" & IIf(IsNumeric(CattegorieCB.Value), CattegorieCB.Value, Chr(34) & CattegorieCB.Value & Chr(34)) & "," & "DBase!" & .Range("H9:H" & lRowDBase).Address & ",false))"), False, 0)  ' Tekstueel zoeken
Neem aan dat "CattegorieCB.Value" aangepast moet worden in <> "" of zoiets, maar werkt helaas niet.
Of het filter er uit halen en gewoon alles inlezen.

Iemand een idee?

Thanks

Dutch
 
Laatst bewerkt:
Hierbij toch nog een vervolg vraag.
Het Test-file (laatste) werkt perfect.
Heb dit in m'n Hfd-file geïmplementeerd en hier gaat het fout. Loopt vast op onderstaande stukje.
Data inlezen voor een .List (combobox ZoekNaamCB)
Code: 
  If VarKeuzeAdr = 2 Then       ' Bedrijven
    If ZoekCattCB = "" Then Exit Sub
    Dim lRow As Integer, lRowDBase As Integer, lRowData As Integer, Data, BedrCattArray(), lRowTarget As Integer, i As Integer, j As Integer, k As Integer, e As Integer, sn, wRow
 
  If ZoekCattCB <> "" And ZoekCattCB <> "Alles" Then
    ZoekNaamCB.Clear: ZoekNaamCB = ""
    Sheets("DBaseCentrum").Unprotect                                          
    With Sheets("DBaseCentrum")   ' LEEST BEDRIJFSNAMEN voor ZoekNaamCB.List
        On Error GoTo Fout
        lRowDBase = .Range("S" & .Rows.Count).End(xlUp).Row       ' laatste regel
Sheets("DBaseCentrum").Unprotect 

      Data = Filter(Evaluate("transpose(if(" & "DBaseCentrum!" & .Range("X9:X" & lRowDBase).Address & "=" & IIf(IsNumeric(ZoekCattCB.Value), ZoekCattCB.Value, Chr(34) & ZoekCattCB.Value & Chr(34)) & "," & "DBaseCentrum!" & .Range("S9:S" & lRowDBase).Address & ",false))"), False, 0)     

  ZoekNaamCB.List = Application.Transpose(Data)
  GoTo Door0
Fout:
Hij geeft de melding: Fout 13, Typen komen niet met elkaar overeen.

Weet even niet meer waar ik het zoeken moet.
Heeft iemand een idee?
Kan het Hfd-file helaas hier niet plaatsen, dus zal het test-file er nogmaals bij doen.

Thanks al ready.

Dutch
 

Bijlagen

Laatst bewerkt:
Ik weet niet en heb jouw bestandje niet gedownload maar moet er bij Unprotect niet een ww worden opgegeven? Bovendien doe je dat unprotecten twee maal achter elkaar. Ik ga er ook vanuit dat in jouw bijlage wel een label Door0: staat
 
Goedemiddag Bram 65,
Doordat ik aan het zoeken en testen ben, probeer je alles.
nee geen ww. nodig en Door) staat inderdaad verderop.
Dit is een stukje uit m'n Hfd-file.
 
Even een inhoudelijke vraag over het volgende:
Code: 
      sn = Sheets("DBaseCentrum").Cells(8, 38).CurrentRegion.Offset(1).Resize(, 11)   ' leest in van Rij 8, kolom 38 en 11 kolommen breed

      For i = 0 To ZoekNaamCBListCount.Value Step -1                              ' loopt de List-lijst door met stap -1
     '# wRow is de rij in de matrix waar gevonden cattegorie zijn
        wRow = Application.Match(ZoekNaamCB.List(i), Application.index(sn, 0, 1), 0)  ' leest het aantal Matches in ZoekNaamCB.List
        j = j + 1
        For k = 1 To 11                                                  ' aantal data kolommen
          BedrCattArray(j, k) = sn(wRow, k)
        Next k
      Next i
- Als wat is sn gedimens.

- Probleem is namelijk dat hier de fout zit, denk ik.

- Begrijp dat onder sn de Bedrijfsnamen worden ingelezen
- vervolgens onder "For i = 0 To ZoekNaamCBListCount.Value Step -1 " de Match (wRow) gezocht wordt
- vervolgens deze Match onder BedrCattArray(j, k) onder gebracht wordt.
Is dit correct?
 
Laatst bewerkt:
Goedemiddag,

Euvel gevonden en opgelost.

Met het overbrengen van test-file naar Hfd-file, toch nog enige fouten in de variabelen.
Na zoekwerk eruit gekomen en alles werkt perfect.
Bram65 en zeker warm bakkertje thanks voor het meedenken.

Warm Bakkertje, ja opzet is netter en korter, zeker weten, maar in het Hfd-file spelen verschillende andere dingen mee, zodat het allemaal wat uitgebreider wordt.

Thanks nogmaals en mooi weekend verder.

Dutch
 
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan