kolom copy/pastespecial

[sickofitall]

Hoi

Een macro vult gegevens in in een bepaalde kolom.
Deze kolom is een variabele in de macro.
Nadat alle gegevens zijn ingevuld staan er formules in de kolom terwijl dit waarden moeten worden. Dus de hele kolom selecteren, copieren en plakken speciaal 'waarden'.

Maar het lukt mij niet om de kolom te selecteren; dit is wat ik voorlopig heb:

Range("" & kolom & ":" & kolom & "").Columns.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    Application.CutCopyMode = False

Maar ik krijg dus een foutmelding in de eerste regel. Weet iemand hoe ik dit moet corrigeren?

bedankt!

 

[Ginger]

sickofitall, Zoiets?

Columns(kolom & ":" & kolom).Copy

...waarbij je verder niet aangeeft wat de waarde is van de variabele 'kolom'? Dus ik weet óók niet precies of dit nu voor je gaat werken...

Groet, Leo

 

[sickofitall]

jeps, werkt!

ik had enkel maar het gedeelte van de macro gegeven waar het foutliep, dus verklaring van de variabelen staat er natuurlijk boven

 

[Finch]

Columns(kolom).Copy

Dat zou ook moeten volstaan.

 

[snb]

Alternatief zonder copy

Columns(4).value=Columns(4).value

dus:

Columns(kolom).value=Columns(kolom).value