macro specifieke werkbladen opslaan als

[MisterF]

Goede middag experts,

(excel 2010) Heb de volgende vraag:

Heb een werkmap met bijvoorbeeld 20 bladen.
Met een macroknop wil ik specifieke waerkbladen afhankelijk van de waarde van cellen op sheets Voorblad in een map opslaan met een waarde uit cel M4.
Zie code hieronder.

Ik kijg een VBAfoutmelding met een geel gearceerde verwijzing naar de opslaglocatie.

Wie kan mij hiermee helden?

Bvd.,

MisterF

Sub OpslaanPV()
   Sheets("Voorblad").Select
If Range("M8") = 3 Then
  Sheets(Array("Output", "bijlagenlab", "OutputPV", "voorbladPVlab")).Copy
ActiveWorkbook.SaveAs "Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN\" & Range("M4") & ".xlsm" 
 ActiveWorkbook.Close False
  Sheets("voltooienPV").Select
  End If
  If Range("M10") = 3 Then
  Sheets(Array("Output", "bijlagenzm", "OutputPV", "voorbladPVzm")).Copy
  ActiveWorkbook.SaveAs "Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN\" & Range("M4") & ".xlsm" 
  ActiveWorkbook.Close False
  Sheets("voltooienPV").Select
  End If
  If Range("M12") = 3 Then
  Sheets(Array("Output", "bijlagenr", "OutputPV", "voorbladPVr")).Copy
  ActiveWorkbook.SaveAs "Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN\" & Range("M4") & ".xlsm" 
  ActiveWorkbook.Close False
  Sheets("voltooienPV").Select
  End If
  If Range("M14") = 3 Then
  Sheets(Array("Output", "bijlagengc", "OutputPV", "voorbladPVgc")).Copy
  ActiveWorkbook.SaveAs "Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN\" & Range("M4") & ".xlsm" 
  ActiveWorkbook.Close False
  Sheets("voltooienPV").Select
  End If
  If Range("M16") = 3 Then
  Sheets(Array("Output", "bijlagenrgc", "OutputPV", "voorbladPVrgc")).Copy
  ActiveWorkbook.SaveAs "Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN\" & Range("M4") & ".xlsm" 
  ActiveWorkbook.Close False
  Sheets("voltooienPV").Select
  End If
End Sub

 

[Jezet]

Hoi MisterF

Type Q:\VDPROW57\D_RO_AB\CT6Invoer\T_02_03_04_Invoer_rw\Unit Onreglmatigheden\PV'S 2012 UNIT ONREGELMATIGHEDEN
in je verkenner om te zien of je in een toegankelijke directory uit komt.

Groet,
Jeroen

 

[MisterF]

Hoi Jeroen,
Thanks voor de snelle reactie.
Ik kan het a.s. maandag nakijken. Dan ben ik weer op het werk.
Je hoort nog van me.
bvd., MisterF

 

[MisterF]

Hoi Jeroen,

Ik ben eral uit. Ik heb een opslaglocatie gewijzigd als C:\Temp.
De macro deed het nog niet. Ik heb de range aangevuld met sheets =(naam van de sheet waarin het opslagnummer stond).
En het werkt.

Nogmaals dank voor je reactie.