Makro og VBA - Copy/paste special i VBA

Copy/paste special i VBA

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4148
Udskrevet den: 02.Maj.2024 kl. 17:44

Emne: Copy/paste special i VBA

Besked fra: Goldie
Emne: Copy/paste special i VBA
Posteringsdato: 26.Jan.2020 kl. 18:35

Hej

Jeg har et ark hvor jeg kopierer fra et ark til et andet men det tager formateringen med.

I Masterarket er data formateret som tabel - I de andre ark er der ikke formatering

Mit ønske er at kopiere celler fra masterarket (Overblik) til de to andre men uden formatering - altså kun data

Jeg indsætter module koden

Sub CopyR()

Dim cl As Range

Dim r As Long

Set cl = ActiveCell

r = cl.Row

Range("a" & r, Range("H" & r)).Copy

Sheets("Mellem").Select

Range("A1").Select

ActiveSheet.Paste

Range("A1").Select 'Navn

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C11").Select

ActiveSheet.Paste

Sheets("Mellem").Select

Range("A1").Select 'Navn Snip

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C37").Select

ActiveSheet.Paste

Sheets("Mellem").Select

Range("D1").Select 'Licens

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C13").Select

ActiveSheet.Paste

Sheets("Mellem").Select

Range("D1").Select 'Licens Snip

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C39").Select

ActiveSheet.Paste

Sheets("Mellem").Select

Range("F1").Select 'Udløb

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C12").Select

ActiveSheet.Paste

Sheets("Mellem").Select

Range("F1").Select 'Udløb Snip

Application.CutCopyMode = False

Selection.Copy

Sheets("Kvittering").Select

Range("C38").Select

ActiveSheet.Paste

Sheets("Kvittering").Select

ActiveSheet.PrintOut

Sheets("OverBlik").Select

End Sub

jeg håber der er en der kan gennemskue hvor/hvorfor det går "galt"

På forhånd mage tak for hjælp

Svar:

Besked fra: zpjj
Posteringsdato: 26.Jan.2020 kl. 21:04

Hej

Prøv at kigge i "Del dine regneark" her i forumet.
Jeg har engang i tidernes morgen lagt noget op, som jeg tror du kan bruge.
Det hedder "CutCopy and Paste only Values"
Håber det løser dit problem.

-------------
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010

Besked fra: zpjj
Posteringsdato: 26.Jan.2020 kl. 21:10

Du får lige et link til det

https://forum.excel-regneark.dk/uploads/856/Cut_Copy_and_Paste_only_Values.xlsm - https://forum.excel-regneark.dk/uploads/856/Cut_Copy_and_Paste_only_Values.xlsm

-------------
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010

Besked fra: zpjj
Posteringsdato: 26.Jan.2020 kl. 21:19

Eller prøv måske

ActiveSheet.PasteSpecial xlPasteValues

-------------
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010

Besked fra: SpillOperator
Posteringsdato: 26.Jan.2020 kl. 21:28

En anden mulighed kunne måske være helt at droppe select/copy/paste tilgangen, og i stedet blot programmatisk sætte destinationsrange = oprindelig range:

Sheets("Mellem").Range("A1:H1").Value = Sheets("Overblik").Range("a" & r, Range("H" & r)).Value

Sheets("Kvittering").Range("C11").Value = Sheets("Mellem").Range("A1").Value

Fortsæt på samme måde med resten af dine copy-paste par.

Besked fra: Goldie
Posteringsdato: 27.Jan.2020 kl. 06:23

Tusind tak for hjælpen .