copy alleen waarden

[wim1985]

Ik heb een stukje uit mijn code hieronder staan. Nu wil ik dat hij alleen de waarden kopieerd. Hoe zet ik dat bij in de regels?

gr Wim

Windows("werkorders.xls").Activate
    Sheets("printblad").Select
    Range("O2").Copy Range("O1")
    Range("P2").Copy Range("P1")
    Range("Q2").Copy Range("Q1")
    Range("R2").Copy Range("R1")
    Range("S2").Copy Range("S1")
    Range("T2").Copy Range("T1")

 

[Warme bakkertje]

Wat dacht je van deze

Windows("werkorders.xls").Activate
    Sheets("printblad").Select
    [O1].Value = [O2].Value
    [P1].Value = [P2].Value
    [Q1].Value = [Q2].Value
    [R1].Value = [R2].Value
    [S1].Value = [S2].Value
    [T1].Value = [T2].Value

Mvg

Rudi

 

[wim1985]

Zo het kan ook simpeler dus. Reuze bedankt!

gr Wim

 

[snb]

Vermijd in VBA activate en Select, want overbodig.

En lees je code daarna 3 keer door:

With Workbooks("werkorders.xls").Sheets("printblad")
    .[O2:T2].Value = .[O1:T1].Value
End with

 

[Warme bakkertje]

snb, hij is dan wel mooier en korter, maar draai 'm effe om voor het juiste resultaat

With Workbooks("werkorders.xls").Sheets("printblad")
    .[O1:T1].Value = .[O2:T2].Value
End with

Mvg

Rudi