Kopieer waarde

[Hans Gorter]

With Sheets("Doel"")
     Sheets(""Bron").Cells.Copy .Range("A1")
End With

Met deze code kopieer je sheet bron naar sheet doel. Maar ik wil alleen waardes kopiëren. Zal wel iets met pastespecial zijn maar ik kan nergens de juiste syntax vinden.

Hier geldt echt: wie het weet mag het zeggen

Vast dank.

 

[Cobbe]

Ik denk dat hij zo goed gaat:

With Sheets("Doel"")
     Sheets(""Bron").Cells.Copy 
         .Range("A1").Paste PasteSpecial:=xlvalues
End With

 

[Hans Gorter]

Dat denk ik ook. Ik heb net gevonden:
.Range("A1").PasteSpecial(xlValues)

en dat werkt ook!

Dank voor je hulp!

 

[Hans Gorter]

Oeps, ik krijg nu ineens de melding dat de eigenschap Pastespecial van Klasse Range niet kan worden opgehaald. ???? (heeft echt eerder feilloos gewerkt)

 

[Cobbe]

Zo zou hij toch moeten lukken:

.Range("A1").PasteSpecial Paste:=xlPasteValues

 

[Hans Gorter]

Zo zou hij toch moeten lukken:

.Range("A1").PasteSpecial Paste:=xlPasteValues

Ik heb een bestandje toegevoegd, kijk met Alt F11 bij instellingen.

Daar staat onderstaande code:
Function hgCopy2Roosters()
With ActiveWorkbook.Sheets("Weektaak")
ActiveWorkbook.Sheets("SjabloonWeektaak").Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues
End With
End Function

En dat levert een fout 1004 op. Maar ook andere foutmeldingen als ophalen eigenschap pastespecial (of zoiets) mislukt.

Ik hoop dat je de fout kunt vinden...

Vast dank!

 

[Cobbe]

Wat is de bedoeling van je code?
Want dit is een functie en een functie moet in een module staan.
Hoe roep je dat aan?
Moet het geen macro voorstellen die werkt door op een button te drukken ?

 

[Hans Gorter]

Wat is de bedoeling van je code?
Want dit is een functie en een functie moet in een module staan.
Hoe roep je dat aan?
Moet het geen macro voorstellen die werkt door op een button te drukken ?

Uiteraard staat de functie in een module, in een xlam. Maar dat wilde ik je besparen.

Op het sjabloonweektaak staan allerlei verwijzingen, die als waarde geplakt moet worden in de weektaak.

Hoop dat ik je voldoende info heb gegeven.