Avatar billede komputerdk Mester
23. januar 2006 - 11:40 Der er 9 kommentarer og
1 løsning

Paste special i Excel (har flere faner) fejlfinding

jeg har prøvet lidt forskelligt, men den stopper hele tiden med fejl :( 
Det er fordi der skal sættes ind som CVS eller værdier

Grundideen:  Man kopiere data fra et andet program. Man trykker en knap:
1. data i udklipsholderen sættes ind i et temp_område.
2. Data i samme fane klippes over til fanen Sidste måned.
3. Data i tempområde flyttes nu til "hovedområdet" i samme fane
4 (ikke en del af spørgsmålet) - der laves en procentvis sammenligning af "gammel data og ny data"
og , eksisterende data kopieres over til en anden fane (det data der ligger der overskrives)

såvidt jeg kan se er det fordi paste special er der noget galt med

Min kode

Sætter data ind i temp_område
   
    Sheets("Denne måned").Activate
    Sheets("Denne måned").Range("temp_område").Select
    ActiveSheet.PasteSpecial Format:="Csv", Link:=False, DisplayAsIcon:=False  'Det er her den skriver FEJL'
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
' Klipper cellerne "gammel data"
   
    Sheets("Denne måned").Activate
    Sheets("Denne måned").Range("A1:i72").Select
    Selection.Cut
   
' Sætter "gammel data" ind i sidste måned
    Sheets("sidste måned").Activate
    Sheets("sidste måned").Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Csv", Link:=False, DisplayAsIcon:=False
   
'Kopierer data fra Temp_område til aktivt område i denne måned
Sheets("denne måned").Activate
Sheets("denne måned").Range("HA1:IV4000").Select
    Selection.Copy
   
'Sætter data ind i Aktivt område

Sheets("denne måned").Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Csv", Link:=False, DisplayAsIcon:=False



TAK på forhånd
Avatar billede brynil Nybegynder
23. januar 2006 - 12:05 #1
Nu kan man jo ikke se hvad du har foretaget dig før du bruger pastespecial der giver fejl. Jeg formoder du har kopieret/klippet data forinden!

Hvilken fejlmeddelelse får du ?
Avatar billede brynil Nybegynder
23. januar 2006 - 12:22 #2
Det ser ud til, at Excel ikke accepterer Format:="Csv".

Du kan importere .csv filer til et ark. Jeg tror ikke du har muligheden for at paste i det format.

Du kan evt. paste det som tekst og efterfølgende anvende Tekst til kolonner fra Data menuen.
Avatar billede komputerdk Mester
23. januar 2006 - 12:49 #3
hmm, jeg kan godt vælge "indsæt speciel" og vælge CVS..

tror det er noget med

Sheets("Denne måned").Activate
    Sheets("Denne måned").Range("temp_område").Select

der laver en fejl....
Avatar billede brynil Nybegynder
23. januar 2006 - 13:09 #4
Den mulighed har jeg umiddelbart ikke, men hvis du ændrer Csv til Tekst, ser det ud til at der pastes, dog ikke i csv-format. Derfor mit bud på hvor fejlen kan ligge!
Avatar billede komputerdk Mester
23. januar 2006 - 13:42 #5
jeg har prøvet at ændre det til :

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

og det virker heller ikke..

jeg har dog lavet følgende der virker (well ville hellere indsætte fra CVS , da jeg ofte sætter ind fra Access, men lige i eksemplete er det mindre vigtigt.. Anyway følgende virker, men er lidt mere princip nu.. da det burde virke.. :

Sheets("Denne måned").Activate
    Range("test1").Select
    ActiveSheet.Paste
    Range("A1:I71").Select
    Selection.Cut
    Sheets("Sidste måned").Select
    Range("A1:I71").Select
    ActiveSheet.Paste
    Sheets("Denne måned").Activate
    Range("test1").Select
    Selection.Copy
    Range("A1:I71").Select
    ActiveSheet.Paste
Avatar billede brynil Nybegynder
23. januar 2006 - 13:52 #6
Du nævner i dit spørgsmål, at du kopierer data fra et andet program. Men hvis der er tale om en .csv fil, så kan du jo bare åbne den i Excel og så arbejde videre derfra.

Så får du data ind i kolonner mv.
Avatar billede komputerdk Mester
23. januar 2006 - 14:29 #7
man kan ikke gemme i CVS i programmet (Navision), jeg plejer at sætte det over som CVS (indsæt speciel)
Avatar billede brynil Nybegynder
23. januar 2006 - 14:59 #8
De kolonne-oversigter der er i tilgængelige Navision kan du kopiere direkte over i Excel med en standard Copy/Paste.

Hvis der er tale om en rapport kan du gemme som html og Copy/Paste ind i Excel og fjerne formattering, hvis det er nødvendigt.
Avatar billede bak Forsker
23. januar 2006 - 15:11 #9
Du vil få fejl i denne linie
ActiveSheet.PasteSpecial Format:="Csv", Link:=False, DisplayAsIcon:=False 

hvis temp_område i nedenstående linie er mere end een celle
  Sheets("Denne måned").Range("temp_område").Select
Avatar billede komputerdk Mester
29. november 2007 - 07:17 #10
dumme mig, navision formatet er i text ikke CVSS
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester