• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cellen copiëren, lege cellen overslaan.

Status
Niet open voor verdere reacties.

Andre175

Gebruiker
Lid geworden
2 feb 2018
Berichten
351
Ik heb in totaal 9 kolommen, met in Rij 2 t/m 101 een waarde of een lege cel.
nu wil ik graag de waarden kopiëren zodat alle waarden onder elkaar komen zonder dat er lege cellen tussen staan.
ik ben al wel een eindje op weg, heb nu een code waarmee me het lukt om 1 kolom te kopiëren.
het moet echter voor alle 9 kolommen.
wie kan me helpen.

Bekijk bijlage test.xlsb


André
 
Laatst bewerkt:
doet deze wat je wilt?

Code:
Private Sub CommandButton1_Click()

For i = 1 To 9

    Dim ar, ar1, j As Long, t As Long
    t = 0
    ar = Sheets("DATA").Cells(1).CurrentRegion
    ReDim ar1(UBound(ar), 3)
        For j = 2 To UBound(ar)
            If ar(j, i) <> 0 Then
                ar1(t, 0) = ar(j, i)
                t = t + 1
            End If
        Next j
    Sheets("Lijst").Cells(2, i).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1
Next i
End Sub

Wel even de Worksheet _deactivate onklaar maken alvorens het te testen!
 
Doet idd wat mijn bedoeling is.
thanks.

sinds februari nu met VBA codes aan het stoeien....
behoorlijk aan het zoeken op dit Forum en al heel wat opgelost, ook al zijn het kleine dingen.
wil graag een goed handboek aanschaffen, kun jij me 1 aanbevelen SjonR?

André
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan