• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opslaan onder de naam van een cel

Status
Niet open voor verdere reacties.

Brinkmeister

Gebruiker
Lid geworden
2 dec 2009
Berichten
19
Mijn vraag luidt als volgt:

Cel A1: Fac-0001

Hoe zorg ik ervoor dat hij automatisch de naam van cel A1 pakt wanneer ik de geselecteerde inhoud d.m.v. een macro opsla?

Hopelijk kan iemand mij hiermee verder helpen.

Met vriendelijke groet,

Niels
 
Bijvoorbeeld zo:

Code:
Sub OpslaanAls()
    Dim Naam As String, Pad As String
    Application.DisplayAlerts = False
    Pad = "C:"
    Naam = Sheets("Blad1").Range("A1").Text
    ThisWorkbook.SaveAs Filename:=Pad & "\" & Naam
    Application.DisplayAlerts = True
End Sub
 
Sorry het lukt me nog steeds niet.
Ik heb het nu als volgt:

Sub Button_Opslaan()
'
' Button_Opslaan Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\School\CVO MSC\pARTner (nieuw)\Facturen\Verstuurde facturen\F-0001.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Nu moet het stukje van F-0001 de inhoud zijn van cel K13 (in dit geval)

Hoe moet ik dit wijzigen?
 
Zo:?


Code:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "F:\School\CVO MSC\pARTner (nieuw)\Facturen\Verstuurde facturen\[COLOR="darkred"]"& sheets("Blad1").range("K13").value & ".[/COLOR]pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan