är detta genomförbart? II

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.

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Knapp 1 fungerar även på andra datorer

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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?

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

ngra förslag till fråga nr 2?

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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)

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

Dennis,
nu har jag beställt boken Du rekomenderade

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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!

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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???

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter