---
title: "är detta genomförbart? II"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/23415-är-detta-genomförbart-ii"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "prls"
published: "2001-07-15T19:29:00.000Z"
updated: "2001-07-17T22:19:00.000Z"
replies: 15
views: 488
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/23415-är-detta-genomförbart-ii"
---

# är detta genomförbart? II

## #1 — prls, 2001-07-15T19:29Z

I min excell dokument skulle jag vill ja ha två knappar:
knapp1 = skriv Ut  - när jag klickar på knappen så skall på datorns standardskrivare skrivas ut sida 1 av det aktiva bladet - funkar på min dator

knapp2 = spara   \- skall rutan "spara som" komma upp, och *spara i skrivbordet* skall vara markerad, så det är bara att döpa filen och spara som återstår.

Permalänk: https://www.webforum.nu/p/23415

## #2 — prls, 2001-07-16T09:14Z

Knapp 1 fungerar även på andra datorer

Permalänk: https://www.webforum.nu/p/362566

## #3 — prls, 2001-07-16T16:19Z

Hej Dennis,
Det var ett bra tipps Du kom med!

Men nästa fråga är: 
När jag spelar in ett ”spara som” macro (se kod nedan) vill jag att skall sparas som innehållet i cell K6. Är detta möjligt? Hur skall jag ändra macro-koden?

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>ChDir "C:\\WINDOWS\\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\\WINDOWS\\Desktop\\cell.xls", FileFormat:= \_
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False \_
        , CreateBackup:=False
    ChDir "C:\\vätskebalans"
    ActiveWorkbook.SaveAs Filename:="C:\\vätskebalans\\cell.xls", FileFormat:= \_
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False \_
        , CreateBackup:=False

Permalänk: https://www.webforum.nu/p/362567

## #4 — prls, 2001-07-16T18:03Z

Dennis, 
1) jag försökte  men fick fel meddelande: "körfel 424 - objekt krävs"
Så här "skrev" jag koden:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara_som()
'
' spara_som Makro
' Makrot inspelat 2001-07-16 av Peter Lelkes
'

'
    Dim rnCell As Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6").Value

ChDir "C:\\WINDOWS\\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\\WINDOWS\\Desktop\\" & CStr(rnCell.Value)
ChDir "C:\\vätskebalans"
ActiveWorkbook.SaveAs Filename:="C:\\vätskebalans\\" & CStr(rnCell.Value)

End Sub
Det blev fel på raden:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6").Value

2)Jag har själv kommit på hur jag skulle skriva "spara" macro
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara()
'
' spara Makro
' Makrot inspelat 2001-07-16 av Peter Lelkes
'

'
    ActiveWorkbook.Save
    ActiveWorkbook.SaveCopyAs "C:\\vätskebalans\\cell.xls"
End Sub
Hur skulle raden:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>ActiveWorkbook.SaveCopyAs "C:\\vätskebalans\\cell.xls"
se ut med "din" variant?

3) är boken Du rekomenderade endast för excel eller för VBA i allmänhet med?

Permalänk: https://www.webforum.nu/p/362568

## #5 — prls, 2001-07-16T20:17Z

ngra förslag till fråga nr 2?

Permalänk: https://www.webforum.nu/p/362569

## #6 — prls, 2001-07-16T20:38Z

Jag har löst det själv\*ler\*:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara()
'
' spara Makro
' Makrot inspelat 2001-07-16 av Peter Lelkes
'

    Dim rnCell As Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6")

    ActiveWorkbook.Save
    ActiveWorkbook.SaveCopyAs "C:\\vätskebalans\\" & CStr(rnCell.Value)

End Sub

Permalänk: https://www.webforum.nu/p/362570

## #7 — prls, 2001-07-16T20:44Z

Dennis,
min variant funkar med - iaf hemma hos mig.
är det bara tur eller?

Permalänk: https://www.webforum.nu/p/362571

## #8 — prls, 2001-07-16T22:08Z

Dennis,
1)det stämmer att arbetsboken redan är sparad - det trodde jag att jag gjorde med koden: \<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Dim rnCell as Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6")

ChDir "C:\\WINDOWS\\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\\WINDOWS\\Desktop\\" & CStr(rnCell.Value)
ChDir "C:\\vätskebalans"
ActiveWorkbook.SaveAs Filename:="C:\\vätskebalans\\" & CStr(rnCell.Value)
Förestän varför behövs inte ändelsen ".xls" här?

Med koden:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara()
'
' spara Makro
' Makrot inspelat 2001-07-16 av Peter Lelkes
'
Dim rnCell As Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6")

ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs "C:\\vätskebalans\\" & CStr(rnCell.Value)

End Sub
har jag tänkt spara de ändringar jag gjort i de filer som jag sparade i 1:a (dvs både på skrivbordet och som Du föreslog i C:\\vätskebalans-mappen)

Permalänk: https://www.webforum.nu/p/362572

## #9 — prls, 2001-07-17T13:26Z

Dennis,
nu har jag beställt boken Du rekomenderade

Permalänk: https://www.webforum.nu/p/362573

## #10 — prls, 2001-07-17T15:05Z

I väntan på boken har ett nytt problem dykt upp:
Jag sitter på jobbet och har skickat filen med mail. Skulle behöva ändra i VBA-koden, men jag har låst "projektet" hemma på min dator:

- Går det att kringå på ngt sätt fr jobbet - får bara meddelande om att projektet är låst

Permalänk: https://www.webforum.nu/p/362574

## #11 — prls, 2001-07-17T16:20Z

Stämmer med äldre ver.
Försökte prova med denna kod:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara_som()
'
' spara_som Makro
' Makrot inspelat 2001-07-17 av prls
'

'
Dim rnCell As Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6")
ChDir " C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans "
ActiveWorkbook.SaveAs FileName:=" C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans\\" & CStr(rnCell.Value)
ChDir "L:\\Vätskebalans"
ActiveWorkbook.SaveAs FileName:="L:\\Vätskebalans\\" & CStr(rnCell.Value)
Application.Quit

End Sub
Men fick felmeddelandet:"det går inte att hitta sökvägen" Och vid felsökning var koden\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>ChDir " C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans "
Markerad
Varför?
Hur löses problemet?
 Och Du Dennis - jag ahr slutat för idag, men vill gärna prova om det funkar även på jobbet

Permalänk: https://www.webforum.nu/p/362575

## #12 — prls, 2001-07-17T16:46Z

Tillägg:

- den ver jag har på jobbet är XL-95
- filen heter bok1.xls och har 3 blad
- mappen som filen finns heter Vätskebalans
- filens plats: C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans
- mappens plats: C:\\WINNT\\Profiles\\All Users\\Skrivbord
- macrots funk: spara filen i både mappen Vätskebalans som finns på C:\\WINNT\\Profiles\\All Users\\Skrivbord och i mappen Vätskebalans som finns på L:\\ samt ge filen namnet i cell K6

 

C:\\WINNT\\Profiles\\All Users\\Skrivbord

Permalänk: https://www.webforum.nu/p/362576

## #13 — prls, 2001-07-17T17:52Z

Jag lät XL spela in macrot\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara_som()
'
' spara_som Makro
' Makrot inspelat 2001-07-17 av prls
'

'
ActiveWorkbook.SaveAs FileName:= \_
        "C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans\\5.xls", FileFormat:= \_
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False \_
        , CreateBackup:=False
End Subdå funkar det!

Sedan provade jag med\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>Sub spara_som()
'
' spara_som Makro
' Makrot inspelat 2001-07-17 av prls
'
'
Dim rnCell As Range
Set rnCell = ThisWorkbook.Worksheets("Blad1").Range("K6")
ChDir " C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans "
ActiveWorkbook.SaveAs FileName:=" C:\\WINNT\\Profiles\\All Users\\Skrivbord\\Vätskebalans\\" & CStr(rnCell.Value)
ChDir "L:\\Vätskebalans"
ActiveWorkbook.SaveAs FileName:="L:\\Vätskebalans\\" & CStr(rnCell.Value)
Application.Quit
End Suboch **då funkar ej!!:-( får hela tiden felmeddelandet: "går ej att hitta sökvägen"**

OBS! det viktigaste är att det komer att funka i ursprungs filen!

Permalänk: https://www.webforum.nu/p/362577

## #14 — prls, 2001-07-17T18:36Z

Jag känner att detta blev förvirrat!!
Följande vill jag alltså göra:
Jag har en XL-fil  ”vätskebalans.xls” som består av ett blad kall vätskebalans. Filen skapad i XL2000, men skall köras på winNT, där tidigare ver av XL finns installerad.
1) Filen bor i en mapp Vätskebalans med address: C:\\WINNT\\Profiles\\All Users\\Skrivbord
Dessutom finns en mapp, även den kallad vätskebalans med address: L:\\
2) första gången jag öppnar filen vätskebalans från mappen på C:\\WINNT\\Profiles\\All Users\\Skrivbord så vill jag genom en knapptryckning 
a) spara filen i mappen som finns på C:\\WINNT\\Profiles\\All Users\\Skrivbord under namnet = innehållet i cell K6  OCH
    b) spara spara filen i mappen som finns på L:\\ under namnet = innehållet i cell K6

Permalänk: https://www.webforum.nu/p/362578

## #15 — prls, 2001-07-17T21:54Z

Hej dennis,
har hunnit lämna jobbet, så kan ej prova.... (eller?)
...MEN: varför funkar det när jag spelar in med makro, men inte när jag bara skall byta ut lite???

Permalänk: https://www.webforum.nu/p/362579

## #16 — prls, 2001-07-17T22:19Z

förrestän: när får det INTE vara mellanslag?

Permalänk: https://www.webforum.nu/p/362580

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/23415-är-detta-genomförbart-ii