Hej Forum
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
ligeledes vil jeg gerne have ryddet op i monduler der ikke skal bruges
Håber en af jer gode mennesker kan hjælpe