Ik moest even nadenken over de titel dus ik hoop dat de vraag wel duidelijk zal zijn.
In excel heb ik een macro staan die een deel van mijn werkblad selecteerd en dan opslaat. Nu heb ik ook twee bereiken benoemd (A1:J50 heet KleinBereik en A1:J100 heet GrootBereik).
Het lukt mij ook om in de macro KleinBereik of GrootBereik als range te zetten. Nu komt het lastige, in cel "N2" wil ik de naam van het bereik neerzetten zodat ik met een druk op de knop kan kiezen tussen KleinBereik of GrootBereik.
Hier zal ik de code neerzetten en hopelijk wordt het dan duidelijk:
Sub SavePDF2()
s = Range("M19").Value
v = Range("D10").Value
On Error GoTo errCheck
Sheets("Factuur").Range("Hier moet dan KleinBereik of GrootBereik komen te staan, dit is de waarde van cel "N2"").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
GetFolder & "\" & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
errCheck:
If Err.Number = 1004 Then
Exit Sub
ElseIf Err.Number = 91 Then
MsgBox "Cannot save on Desktop"
End If
End Sub
Ik hoop echt dat iemand mij kan helpen want anders moet ik dit steeds handmatig gaan veranderen
In excel heb ik een macro staan die een deel van mijn werkblad selecteerd en dan opslaat. Nu heb ik ook twee bereiken benoemd (A1:J50 heet KleinBereik en A1:J100 heet GrootBereik).
Het lukt mij ook om in de macro KleinBereik of GrootBereik als range te zetten. Nu komt het lastige, in cel "N2" wil ik de naam van het bereik neerzetten zodat ik met een druk op de knop kan kiezen tussen KleinBereik of GrootBereik.
Hier zal ik de code neerzetten en hopelijk wordt het dan duidelijk:
Sub SavePDF2()
s = Range("M19").Value
v = Range("D10").Value
On Error GoTo errCheck
Sheets("Factuur").Range("Hier moet dan KleinBereik of GrootBereik komen te staan, dit is de waarde van cel "N2"").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
GetFolder & "\" & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
errCheck:
If Err.Number = 1004 Then
Exit Sub
ElseIf Err.Number = 91 Then
MsgBox "Cannot save on Desktop"
End If
End Sub
Ik hoop echt dat iemand mij kan helpen want anders moet ik dit steeds handmatig gaan veranderen