multiselectie kopieren naar 1 kolom

[wolters125]

Hallo Allemaal,

Ik heb weer een vraag.
Ik wil graag het volgende:

De waardes van 5 kolomen (B tm G)kopieren naar 1 andere kolom (J) en er voor zorgen dat deze waardes dan onder elkaar komen te staan.

En is het mogelijk om, als ik bv een aantal cellen geselecteerd heb dat ik deze zo kan kopieren dat deze waardes in een aparte kolom onder elkaar komen te staan?

Ik hoop dat dit mogelijk is en iemand mij hierbij kan helpen.
Alvast bedankt!!

Met vriendelijke groet,

Niels

 

[arafy]

niels,

het zijn 2 vragen. de 2de is eenvoudig: met plakken speciaal transponeren kiezen. voor de eerste vraag heb ik niet dadelijk een oplossing.

steven

 

[wolters125]

Steven,

Bedankt voor je snelle reactie.
Hoe kopieer je dan? Ik heb de cellen geselecteerd en dan?
Copy kan ik niet doen.

Mvg,

Niels

 

[arafy]

Copy kan ik niet doen.

hoezo niet? anders moet je eens een voorbeeldje posten.

steven

 

[wolters125]

Steven,

Stel ik heb een veld met allemaal getallen in cellen.
Vervolgens selecteer ik bv de cellen A1 A2 B1 C5

Dan kan ik niet zeggen copy.
Hij geeft dan de melding: That command cannot be used on multiple selections.

Als de verschillende cellen in dezelfde kolom zijn werkt het wel.
Alle bij een selectie van cellen uit meerdere kolomen werkt het niet.

Hoop dat het zo duidelijk is wat ik bedoel?

Mvg,

Niels

 

[arafy]

tja, ook excel heeft zijn beperkingen. ik denk dat je via een omweg moet werken.

steven

 

[Wigi]

ik denk dat je via een omweg moet werken.

=> VBA

 

[wolters125]

Bedankt voor de reacties.

=> VBA

Kun je me ook nog zeggen hoe dit dan moet worden ongeveer?
Hoe ik dit eventueel zou kunnen maken?

Alvast bedankt.

Mvg,

Niels

 

[Demeter]

Bekijk eens deze file.

VBA code staat in Module1.
Je komt in de VBE dmv:
linker alt + f11
dubbel klik aan de rechterkant op module1 en je ziet de code.

 

[wolters125]

Hallo Ferenc,

Ik heb nog even de ragne weg gehaald uit de macro en hij werkt ongeveer zoals ik zou willen. Toppie!!:thumb:

Ik heb nu alleen nog het probleem dat de cellen waaruit ik selecteer formules/verwijzingen bevatten.
Is het mogelijk deze code nog aan te passen zodat ik de waardes uitlees en deze gebruik.

iets in de vorm van :

PasteSpecial Paste:=xlValues

Bedankt tot zo ver.

Mvg,

Niels

 

[Demeter]

Plakken speciaal:

Sub Macro2()
Dim c As Range
Dim x As Long

    x = 1

    For Each c In Selection
        If c <> "" Then
            c.Copy
            Range("I" & x).PasteSpecial Paste:=xlPasteValues
            x = x + 1
        End If
    Next

End Sub

Gewoon macro recorder een test laten uitvoeren en de code bekijken

 

[Wigi]

Ik ga voor:

Sub Macro2()
Dim c As Range
For Each c In Range("B2,C6,D12,E15,F19,G23")
    If c <> "" Then
        c.Copy
        Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    End If
Next
End Sub

Wigi