meerdere waardes onder elkaar plaatsen

[huppelpaard]

Is het mogelijk als je een filter gebruikt... om vanuit meerdere kolommen 1 rij te maken met waardes die onder elkaar staat

ik heb namelijk 5 kolommen met waardes die ik onder elkaar wil plaatsen ipv horizontaal zonder lege cellen
nu ben ik al een beetje aan het kijken geweest maar kom er niet echt uit

kan iemand mij helpen?

Bekijk bijlage Nieuw - Microsoft Excel-werkblad (2).xlsx

 

[HSV]

Breid de filter in rij 1 uit naar kolom F.

Sub hsv()
Dim sv, i As Long, j As Long, x As Long
ReDim arr(Blad1.AutoFilter.Range.Offset(1).SpecialCells(12).Count)
sv = Blad1.AutoFilter.Range.Offset(1).SpecialCells(12)
 For j = 2 To UBound(sv, 2)
  For i = 1 To UBound(sv)
  If sv(i, j) <> "" Then
     arr(x) = sv(i, j)
     x = x + 1
   End If
  Next i
 Next j
 Range("g35").Resize(UBound(arr)) = Application.Transpose(arr)
End Sub

 

[huppelpaard]

hoi hsv ik heb de filter uitgebreid en je code als macro uit laten voeren maar als ik dan kijk naar de output dan zie ik dit

X
X
X
X
X
X
X
X
X
X
WAARDEX
WAARDEX2
WAARDEX3
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
WAARDEY
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
WAARDEZ
WAARDEZ3
X
X
X
X
X
X
X
X
X
X
Waardexy
waardexyz

 

[HSV]

Ik zie alleen een plaatje.

De code is ervoor gemaakt als je al een filter hebt gezet.
Dat was de vraag.

 

[huppelpaard]

hmmzz dan maak ik de filter verkeerd zeker? hoe krijg ik dan alleen de waardes die ik wil hebben ipv de X erbij?

 

[HSV]

Je zet met de hand de filter zoals in je voorbeeldbestand en laat de code lopen.
Anders de vraag beter formuleren en het bestand plaatsen zoals je wenst wat er moet gebeuren.

 

[huppelpaard]

ik zal proberen om het uit te leggen -)

in kolom A staan namen
in kolom B tm F staan waardes ( ik wil alleen waardes onder elkaar die bij een naam horen bij mijn voorbeeld bestandje is dat A12D.J)

hoe krijg ik alleen de waardes onder elkaar die bij de naam A12D.J horen?

 

[HSV]

Zoals ik vermelde in mijn eerste reactie.

 

[huppelpaard]

Nu werkt het wel
heel erg bedankt hsv ik zal wel wat verkeerds gedaan hebben oeps

hier ben ik heel blij mee

 

[HSV]

Dank voor je reactie.
Altijd goed om te vernemen.

 

[huppelpaard]

Hoi Hsv,

als ik een nieuw bestandje maakt met ene filter en jouw code gebruikt dan krijg ik een compileer fout een variabele is niet gedefineerd

Bekijk bijlage Map1.xlsb


en als ik hem in mijn eigen sheet uitprobeer dan is de error ook geheel anders namelijk

fout 91 tijdens uitvoering
objectvariabele of blockvariabele with is niet ingesteld

heb je enig idee waar dit aan ligt?

 

[HSV]

Er missen vijf filters in de eerste rij en blad1. wordt blad4.

 

[huppelpaard]

bedankt voor je antwoord hsv ik heb de filters uitgebreid in de 1e rij maar blijf dezelfde error houden

wss doe ik iets verkeerd??

 

[HSV]

In de code staat twee keer blad1, verander dat in blad4.

 

[snb]

Of ?

Sub M_snb()
   With Blad4.AutoFilter.Range.CurrentRegion.Offset(1).SpecialCells(12)
        ReDim sn(.SpecialCells(2).Count, 0)
        
        For Each cl In .Columns
          For Each it In cl.SpecialCells(2)
           sn(j, 0) = it
           j = j + 1
           Next
        Next
   End With
   
  Range("g25").Resize(UBound(sn)) = sn
End Sub

 

[huppelpaard]

dank je wel hsv dit lijkt de oplossing te zijn ik zal het nog verder testen -)

snb ik krijg met jouw code dezelfde error als voorheen ik zal het verder gaan onderzoeken waar het nu aan ligt