Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketHJÆÆÆÆÆLP TIL MAKRO
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
work4you Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 02.Apr.2012
Land: dk
Status: Offline
Point: 10 		Direkte link til dette indlæg Emne: HJÆÆÆÆÆLP TIL MAKRO
    Sendt: 07.Apr.2012 kl. 03:45
Hej Forum
Jeg vil gerne starte med at takke hejerne for deres hjælp.Thumbs UpThumbs Up
 
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ælpeSmile 
Til top



Til top
work4you Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 02.Apr.2012
Land: dk
Status: Offline
Point: 10 		Direkte link til dette indlæg Sendt: 07.Apr.2012 kl. 23:34
Hej forumThumbs Up
 
Jeg fandt en løsning selv som virkerClapClap
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
Smile Fantastisk forum der er her

 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk