VBA copy waarde formule

[Stone52]

Hallo,

Met de volgende VBA-opdracht wil ik de inhoud van een cel op blad1 kopieren naar blad2:

Sheets(WsheetFrom).Range("N" & Ry).Copy Sheets(WsheetTo).Range("A" & BereikCopy).End(xlUp).Offset(0, 7)

Dit werkt prima, echter als er in de bron-cel een formule staat geeft dit problemen (de formule wordt gekopieerd).

Hoe kan ik, met gebruikmaking van (ongeveer) deze opdracht de waarde van de bron-cel kopieren ?

 

[HSV]

Probeer het zo eens Stone.

Sheets(WsheetFrom).Range("N" & Ry).Copy 
Sheets(WsheetTo).Range("A" & BereikCopy).End(xlUp).Offset(0, 7).PasteSpecial Paste:=xlPasteValues

 

[Stone52]

Hallo HSV,

De oplossing is helaas niet de goede: VBA geeft hier een fout op. ("Compileerfout - verwacht instructie-einde").
Ook enkele varianten geven hetzelfde reultaat.

 

[HSV]

Hallo HSV,

De oplossing is helaas niet de goede: VBA geeft hier een fout op. ("Compileerfout - verwacht instructie-einde").
Ook enkele varianten geven hetzelfde reultaat.

Heb je het ook zo onder elkaar gezet als in mijn vorig schrijven?

 

[Stone52]

. . . . . nu wel.

Inderdaad dit is DE oplossing.


Hartelijk dank !