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


Emne lukketPaste option

 Besvar Besvar
Forfatter
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg Emne: Paste option
    Sendt: 02.Okt.2013 kl. 09:57
Hej Igen

Jeg har nedenstående script jeg bruger til at kopier værdier fra et ark til et andet. Jeg skal nu have det til at kopiere noget der ser ud som følgende: "IQ31 -4000U7012" Dette øffer den over da det jo ikke er rigtige tal værdier. Men jeg har prøvet at ændre min "paste" kode til xlAll dog uden held.

Hvor kikser min forståelse af paste optionerne?

           Windows(SelectedFileNoPath).Activate
                 Sheets("Ark1").Select
                 Range("E18:E500").Select
                 Selection.Copy
            Windows(CurrentFileNoPath).Activate
                 Sheets("TREND").Select
                 Range("E18").Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                 Application.CutCopyMode = False
Forsøgt med
               Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                 Application.CutCopyMode = False

Hygge - Kim
Excel 365 DK user
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
Direkte link til dette indlæg Sendt: 02.Okt.2013 kl. 12:42
Uden, at kende dit system, eller din makro i øvrigt, ville jeg nok gøre gøre det på nogenlunde denne måde:
Workbooks(CurrentFileNoPath).Sheets("TREND").Range("E18:E500").Value = Workbooks(SelectedFileNoPath).Sheets("Ark1").Range("E18:E500").Value
En enkelt linje, der klarer det hele i et snuptag Cool

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500
Direkte link til dette indlæg Sendt: 02.Okt.2013 kl. 13:41
SUPER kan ikke takke nok Smile
Hygge - Kim
Excel 365 DK user
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
Direkte link til dette indlæg Sendt: 02.Okt.2013 kl. 14:12
Velbekomme :-)
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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