Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketCopy/paste special i VBA
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Goldie Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 14.Jan.2011
Land: Danmark
Status: Offline
Point: 17 		Direkte link til dette indlæg Emne: Copy/paste special i VBA
    Sendt: 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
Til top



Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 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.
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179 		Direkte link til dette indlæg Sendt: 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
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179 		Direkte link til dette indlæg Sendt: 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
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179 		Direkte link til dette indlæg Sendt: 26.Jan.2020 kl. 21:19
Eller prøv måske

ActiveSheet.PasteSpecial xlPasteValues
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 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.
Til top
Goldie Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 14.Jan.2011
Land: Danmark
Status: Offline
Point: 17 		Direkte link til dette indlæg Sendt: 27.Jan.2020 kl. 06:23
Tusind tak for hjælpen . 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk