Jeg vil gerne starte med at takke hejerne for deres hjælp.

 

jeg sidder fast i en marko need help

på ark udregnung vil jeg gerne have knappen som sidder ark udskriv

knappen på udskriv virker næsten som den skal. den ser således ud

 

Sub Knap100_Klik()
'
' Knap100_Klik Makro
'
Dim filnave As String
Dim sti As String
Dim x As FileDialog

filnavn = Range("a6") & " - " & Range("a7") & " - " & Range("a8").Value & ".pdf"

Set x = Application.FileDialog(msoFileDialogFolderPicker)
x.Show
sti = x.SelectedItems(1)
sti = sti & "\"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sti & filnavn, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

 

 

jeg vil gerne kunne ændre range a6 til a6 og range a7 til d4  og range a8 til d6

og knappen vil jeg gerne ha på ark udregning ( jeg har prøvet at klippe knappen fra ark udskriv til ark udregning

men så virer den ikke. uploads/534/Pris_Udregning_ny10.xlsm - uploads/534/Pris_Udregning_ny10.xlsm

 

ligeledes vil jeg gerne have ryddet op i monduler der ikke skal bruges

 

Håber en af jer gode mennesker kan hjælpe 

 

Jeg fandt en løsning selv som virker

nu kan den gemme udskrift hvor du vælger filnavn og plasering samt filtype

 

Koden ser således ud:

 

Sub Afrundetrektangel10_Klik()
'
' Afrundetrektangel10_Klik Makro
'

Worksheets("Udskrift").Activate
Dim w As Workbook
For Each w In Workbooks
  If w.Name < Udskrift > ThisWorkbook.Name Then
    Workbooks("Udskrift").Activate
    w.Close savechanges:=True
  End If
Next w
'
Application.Dialogs(xlDialogSaveAs).Show "c:\test.xls"

End Sub

 

Måske det kan være til hjælp for andre

 Fantastisk forum der er her