Plakken speciaal waarden werkt niet

[Henk Schepers]

Beste helpers
Ik ben bezig een kassa systeem te maken in excel.
Gaat allemaal goed maar begrijp niet dat als ik een kopieer opdracht in de macro zet
en dan plakken ActiveSheet.Paste in een andere sheet doe het goed gaat
maar plakken speciaal waarden een foutmelding krijg. PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
komt het door de lege cellen die hij niet wil plakken omdat er geen waarde inzit of
heeft dat een andere oorzaak. Na het plakken in de data sheet mag het niet meer veranderen
en mogen er ook geen formules meer instaan.
Al vast bedank

 

[dnties]

Vlgs. mij gebruik je het nu verkeerd.
Moet het niet zoiets zijn als:

ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Tijs.

 

[VenA]

Aan plaatjes hebben we niet zoveel. Als je de waarden van de ene sheet naar de andere wil hebben is zoiets voldoende.

Sheets(2).[A1:A3] = Sheets(1).[A1:A3].Value

Waarbij je de bereiken natuurlijk nog wel dynamisch moet maken.

Beter kan je even een voorbeeldje plaatsen.

 

[Henk Schepers]

Vena
bedankt het werkt. actieveCell. moest er voor staan

 

[VenA]

De inhoud van mijn berichtje heeft een iets andere strekking. Het bedankje mag je dus aan dnties richten.

Volgens mij kan het hele gebeuren in twee a drie regels geschreven worden. Maar als het werkt, dan werkt het.:thumb:

 

[Henk Schepers]

Sorry dnties Bedankt voor je oplossing