wie heeft de code voor het verplaatsen van cellen op regelniveau?

[FredWil]

Hallo,

In een ledenbestand staan de gegevens van één lid steeds in 2 regels vermeld.


83449222 Jan de Vries Floralaan 5 0123-453456
lid 1 4533 5674GH Asten 5-5-2011

42445366 Willem de Goede 't Koetshuis 5 0123-453456
lid 2 4567 5674GH Asten 1-9-2005

42253463 Jan Akker Rimpelmos 35 0123-453456
lid 3 5436 5674GH Asten 1-1-2013

hoe gaat de code er uit zien om van het gehele bestand de velden van de tweede regel naast die van de eerste regel te plaatsen?

dit moet het dus gaan worden:

83449222 lid 1 Jan de Vries 4533 Floralaan 5 5674GH Asten 0123-453456 5 -5-2011

enz.

Alvast bedankt! Fred

 

[Cobbe]

Zet in c1 =A1&A2 en in c2 zet je ""
Trek die beide cellen nu naar beneden zover als nodig.

PS: Die A1&A2 kun je aanpassen aan de situatie zoals jij het resultaat wil hebben.

 

[Haije]

Fred, plaats even een bestandje met enkele van die regels....


@ Cobbe: volgens mij is dat te kort door de bocht

 

[FredWil]

geplaatst

bestand heb ik geplaatst in oorspronkelijke bericht

 

[Cobbe]

Mijn werkwijze klopt toch.

 

[edmoor]

Of met een stukje VBA. Druk maar eens op de knop:
Bekijk bijlage leden(edmoor).xlsm

 

[FredWil]

bedankt

Hallo EdMoor,

Hartelijk dank, ik geef (altijd) de voorkeur aan VBA dus geweldig, maar waar vind ik nu de code?
Ik zou mezelf willen bekwamen in het maken van dit soort macro's, waar zou ik informatie
hierover kunnen krijgen?

 

[Cobbe]

ik geef (altijd) de voorkeur aan VBA dus geweldig, maar waar vind ik nu de code?

Lijkt me niet zeer logisch.

 

[snb]

Begin dan eens hier: bol.com | Vba Voor Dummies, John Paul Mueller | 9789043015417 | Boeken

 

[edmoor]

Hartelijk dank, ik geef (altijd) de voorkeur aan VBA dus geweldig, maar waar vind ik nu de code?

Het is inderdaad belangrijk om per functionaliteit te bekijken wat je het beste kan gebruiken.
Standaard Excel functionaliteit heeft altijd de voorkeur boven VBA.
De code voor die knop staat in de VBA sectie voor Blad1 en ziet er zo uit:

Private Sub CommandButton1_Click()
    Dim LR As Long
    Dim i As Long
    With ActiveSheet
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    For i = LR To 1 Step -2
        Range("E" & i - 1 & ":H" & i - 1).Value = Range("A" & i & ":D" & i).Value
        Rows(i).Delete
    Next i
    Columns.AutoFit
End Sub

Ik heb het voor de leesbaarheid niet compacter gemaakt, maar dat is wel mogelijk.

 

[snb]

bijv.

Sub M_snb()
   [E1:H100] = [if(A1:A100="","",if(mod(row(E1:H100),2)=1,A2:D101,""))]
   Columns(5).SpecialCells(4).EntireRow.Delete
End Sub

 

[FredWil]

Begin dan eens hier: bol.com | Vba Voor Dummies, John Paul Mueller | 9789043015417 | Boeken

Hartelijk dank

 

[FredWil]

bijv.

Sub M_snb()
   [E1:H100] = [if(A1:A100="","",if(mod(row(E1:H100),2)=1,A2:D101,""))]
   Columns(5).SpecialCells(4).EntireRow.Delete
End Sub

Hartelijk dank