Dubbelen

[petervdijk]

Als ik twee rijen met adressen naast elkaar zet. Hoe kan ik er voor zorgen, dat de cellen met de zelfde adressen naast elkaar komen te staan?

 

[gast0660]

Hallo,
Mag uw vraag iets duidelijker en liefst met een vbtje

Als ik twee rijen met adressen naast elkaar zet

Volgens mij heb je dan twee kolommen
mvg

 

[HSV]

Misschien is je vraag beter te begrijpen met een Excel bestandje Peter.

 

[sylvester-ponte]

als in kolom a en b je adressen staan (boven aan)

zet in kolom d de adressen uit kolom a en b onder elkaar. (boven aan)
ontdubbel kolom d.
zet in e1 de formule:=ALS.FOUT(VERT.ZOEKEN($D1;A$1:A$8;1;ONWAAR);"").
sleep deze formule 1 vakje naar rechts.
sleep deze formule en dan naar beneden.

 

[petervdijk]

Dat zijn nog eens snelle reacties.

Ik had inderdaad even een voorbeeld bij moeten voegen. Nu wil ik graag "voor elkaar krijgen" dat de adressen die overeenkomen, naast elkaar komen te staan.


Bekijk bijlage voorbeeld.xlsx

 

[HSV]

Ervaring met Vba?
Laat onderstaande code eens lopen.

Sub hsv()
Dim sn, sq, i As Long, j As Long
sn = Cells(1).CurrentRegion.Columns(1).Resize(, 3)
sq = Cells(1, 5).CurrentRegion.Columns(1)
For i = 2 To UBound(sn)
 For j = 2 To UBound(sq)
     If sn(i, 1) = sq(j, 1) Then
        sn(i, 3) = sq(j, 1)
        Exit For
     End If
   Next j
 Next i
 Cells(1).Resize(UBound(sn), 3) = sn
 Columns(3).AutoFit
End Sub

 

[petervdijk]

Hoi Harry, nee dat heb ik helaas niet. ik zou wel graag meer te weten willen komen hoe te werken met VBA. Zijn er "geschikte" online cursussen beschikbaar of tutorials ?

ik heb de code in Vba geplakt en hij doet wat hij moet doen, ik zou wel de rij met datums mee willen kopieeren kan dat? Jammer genoeg, heb ik geen idee wat de code betekend!

mvg, peter

 

[HSV]

Geen idee Peter (vast wel toch?), maar hier op het forum leer je een hoop.

Sub hsv()
Dim sn, sq, i As Long, j As Long
sn = Cells(1).CurrentRegion.Columns(1).Resize(, 4)
sq = Cells(1, 5).CurrentRegion.Columns(1).Resize(, 2)
For i = 2 To UBound(sn)
 For j = 2 To UBound(sq)
     If sn(i, 1) = sq(j, 1) Then
        sn(i, 3) = sq(j, 1)
        sn(i, 4) = sq(j, 2)
        Exit For
     End If
   Next j
 Next i
 Cells(1).Resize(UBound(sn), 4) = sn
 'Columns(5).Resize(, 2).ClearContents
 Columns.AutoFit
End Sub

Mochten de gegevens van de laatste twee kolommen gewist worden, haal dan de apostrof weg.

 

[petervdijk]

Harry, bedankt.

ik ga een rond kijken voor een geschikte cursus.

greatzzz

 

[gast0660]

Hoi beste Peter,
Kijk hier in het forum eens onder tips en handleidingen (officesuite vba)
Daar ben je gelijk een paar dagen zoet mee

mvg

 

[petervdijk]

Bedankt!

ik ga daar in me vakantie eens mee beginnen, erg interessant :thumb:

Vraagje als ik nu meerdere rijen wil mee kopiëren, hoe krijg ik dat in de Vba code ?

 

[HSV]

De code is dynamisch zolang het een aaneengesloten bereik is Peter.

 

[petervdijk]

Ik snap hem niet, als ik een rij met gegevens toevoeg in rij G dan kopieert hij die niet mee. ehmm doe ik iets verkeerd (-;

 

[HSV]

Plaats het bestand eens zodat ik kan zien wat de bedoeling is.

 

[petervdijk]

Bekijk bijlage voorbeeld(2).xlsx

ik heb er een rij bij gemaakt. Ik kan me zo voorstellen, dat wanneer nodig een nog een rij bij kan komen.

 

[HSV]

In kolom G staan alleen getallen.
Rij G bestaat ook niet, wat is de bedoeling.
Geef eens aan waar je wat invoert door benoeming van de cellen.

 

[petervdijk]

Excuus kolom G bedoelde ik. Maakt het uit wat er in de kolom staat bijv. datums of getallen etc.

 

[HSV]

Dat maakt niet uit.
Er wordt gecontroleerd of de cellen in kolom A overeenkomen met de cellen in kolom E.

  If sn(i, 1) = sq(j, 1) Then

Maar helaas ontgaat me de vraagstelling.

 

[petervdijk]

Als het terug lees dan ben ik idd niet helemaal duidelijk geweest met m'n vraag/uitdaging.

Wat ik me eigen afvraag is;

Als ik nu naast kolom E extra kolommen toevoeg met informatie, daaropvolgend wi ik die nieuwe kolommen mee kopiëren met kolom E. Kan ik dan iets aanpassen in VBA code?

hopelijk ben ik zo iets duidelijker met m'n vraag stelling

 

[HSV]

Hallo Peter,

Er staat nu...

sq = Cells(1, 5).CurrentRegion.Columns(1).Resize(, 2)

.........in de code voor E:F.
Verander de resize(,2) naar resize(,3) voor E, F en G.
Maar dan moet je wel een extra lege kolom invoegen.
En dan wordt het weer een geheel andere code.

Sub hsv()
Dim sn, sq, i As Long, j As Long
sn = Cells(1).CurrentRegion.Columns(1)[COLOR=#ff0000].Resize(, 5)[/COLOR]
sq = Cells(1, [COLOR=#ff0000]​6[/COLOR]).CurrentRegion.Columns(1).[COLOR=#ff0000]Resize(, 3)[/COLOR]
 For i = 2 To UBound(sn)
   For j = 2 To UBound(sq)
      If sn(i, 1) = sq(j, 1) Then
         sn(i, 3) = sq(j, 1)
         sn(i, 4) = sq(j, 2)
        [COLOR=#ff0000]          sn(i,5) = sq(j,3)[/COLOR]
         Exit For
       End If
    Next j
  Next i
 Cells(1).Resize(UBound(sn),[COLOR=#ff0000] 5[/COLOR]) = sn
 Columns.AutoFit
End Sub