• 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.

Selectie gedefinieerd in cel

  • Onderwerp starter Onderwerp starter rdn
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

rdn

Nieuwe gebruiker
Lid geworden
10 apr 2012
Berichten
2
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
 
Na het nog 6 keer zoeken heb ik bedacht om een andere methode toe te passen.
Ik heb bovenstaande macro nog een keer gemaakt (dus een met KleinBereik en een met GrootBereik als range) en afhankelijk van de waarde die in cel "N2" staat wordt een van deze macro's gestart.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan