Adres en huisnummer printen in VBA

[wtthode]

Dag VBA gebruikers,

Ik heb eeb vraag, die jullie mij mischien ermee kan helpen.
Ik heb een helleboel adressen in een excel bestand.

A1 A2
Adressen Huisnummer

x 10
y 11
x 3
y 5
x 8

Nu wil ik via een VBA code het volgende doen.
1. alle x adressen bij elkaar filteren
2. En / of alle x adressen uiprinten met het volgende format

adres huisnummer
x 3, 8, 10

Is het mogelijk ? Kunnen jullie mij helpen ?
Alvast bedankt voor jullie hulp.

Wilfred

 

[Wigi]

Waarom moet dit met VBA code?

Een bereik sorteren en dan een aantal cellen kopiëren en transponeren is zo gedaan...

Wigi

 

[wtthode]

Zie voorbeel in excel document

Ik heb een voorbeeld toegevoegd hoe ik het wil hebben

 

[snb]

Sub Macro17()
    [A1:B16].Sort [B2], , , , , , , xlYes
    sq = [A2:B16]
    st = Split(String(UBound(sq), "|"), "|")
    For j = 1 To UBound(sq)
        st(j - 1) = sq(j, 1) & sq(j, 2)
    Next
    j = 1
    Do
        Cells(j, 5).Resize(, 2) = Split(Left(st(0), 1) & "|" & Replace(Join(Filter(st, Left(st(0), 1)), ","), Left(st(0), 1), ""), "|")
        st = Filter(st, Left(st(0), 1), False)
        j = j + 1
    Loop Until UBound(st) = -1
End Sub

 

[wtthode]

Gelukt

Het is gelukt.
Bedankt voor je snelle reactie, werkt prima.

 

[wtthode]

Nog een kleine vraag

Dag snb,

Ik heb een volgende vraag hierover.

Kolom A Kolom B

Westkapellestraat 45
Steenrijk 7
Oranjestad 13
Steenrijk 80
Westkapellestraat 105
Steenrijk 1
grotweg 48
Oranjestad 8

Met bovenstaande code kom ik niet goed uit.
Resultaat moet zijn:
Kolom A Kolom B

Westkapellestraat 45,105
Steenrijk 1,7
Oranjestad 8,13
grotweg 48

Dus ik mis iets in de code.

Alvast bedankt voor je moeite

 

[snb]

voer de macro stapsgewijs uit ( F8 ).
Kijk waar het misgaat.
Jouw signaal is voor mij niet informatief.

 

[wtthode]

zie voorbeeld

dag Snb,

Zie voorbeeld.

En mijn excuses dat ik niet zo informatief was.

Mvg

Wthode

 

[snb]

Als je wat wijzer wil worden over VBA zoek je dit zelf uit.
98% van de oplossing heb ik gegeven.
Pas die 2% aan op je eigen situatie.
Het kost mij evenveel tijd als jou.