werkblad selecteren obv waarde van een cel

[GerV]

Ik probeer mbv een celwaarde een werkblad in een spreadsheet te selecteren en dan te printen. Als ik de waarde hard ingeef gaat het goed maar als ik dit doe mbv een celwaarde wordt er een ander blad geprint.
Ik heb in cel a2 op blad 1 de waarde 49 ingegeven. Nu wordt het tabblad met de naam 47 geprint. Dit zou ik nog begrijpen als tabblad met naam 49 het blad47 zou zijn maar het is blad48.
Hoe krijg ik het tabblad met de naam 49 geprint (middels vba code)

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim sh As Range
    Set sh = Sheets("Blad1").Range("a2")
    
    ChDir "J:\Zuid\ZML\VPM\Verlofboeken ZML 2015"
     
    Application.DisplayAlerts = False
    Workbooks.Open Filename:= _
        "J:\Zuid\ZML\VPM\Verlofboeken ZML 2015\verlofboek ass serv verl 2015.xlsm", _
        UpdateLinks:=0, Notify:=False
    Sheets(sh).Activate
 '    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  Sheets("41").Select
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  ActiveWindow.Close
  '  Workbooks.Open Filename:= _
  '      "J:\Zuid\ZML\VPM\Verlofboeken ZML 2015\verlofboek cw 2015.xlsm", Notify:= _
  '      False
  '  Sheets("39").Select
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  Sheets("41").Select
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  ActiveWindow.Close
End Sub

GerV

 

[gast0660]

Hallo GerV,
Hier in bijlage een voorbeeldje. Denk wel dat dit een oplossing is voor uw noden.
Drie opmerkingen:
De tabbladen die leeg zijn verschijnen niet in het aanklikvenstertje
Als alle bladen leeg zijn krijg je een waarschuwing en valt er niets te printen
Als het bestand is beveiligd krijg je een waarschuwing en kan je niet printen
(als de printer kapot is ook niet)
Greetz

 

[VenA]

Probeer deze eens om uit te vogelen welke tab nu wie is.

Sub VenA()
c00 = "Index, Naam , Codenaam" & Chr(13)
For j = 1 To Sheets.Count
    c00 = c00 & "sh" & j & ", " & Sheets(j).Name & ", " & Sheets(j).CodeName & Chr(13)
Next j
MsgBox c00
End Sub

 

[HSV]

Dim sh As String
    sh = Sheets("Blad1").Range("a2").Value
   Sheets(sh).PrintPreview

 

[GerV]

gast0660,

de code komt niet in de spreadsheets die de gegevens bevatten maar in een apart spreadsheet met alleen de printopdracht.

HSV,

de code werkt voor het benoemen van 1 tabblad maar er moeten altijd 2 weken (tabbladen) geprint worden, en dan krijg ik een foutmelding.

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim blz1 As String
    Dim blz2 As String
    blz1 = Sheets("Blad1").Range("a2").Value
    blz2 = Sheets("Blad1").Range("a2").Value
    ChDir "J:\Zuid\ZML\VPM\Verlofboeken ZML 2015"
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Workbooks.Open Filename:="J:\Zuid\ZML\VPM\Verlofboeken ZML 2015\verlofboek ass serv verl 2015.xlsm", _
        UpdateLinks:=0, ReadOnly:=True
    Application.EnableEvents = True
    Sheets(blz1).Activate
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets(blz2).Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWindow.Close
    
  '  Workbooks.Open Filename:= _
  '      "J:\Zuid\ZML\VPM\Verlofboeken ZML 2015\verlofboek cw 2015.xlsm", Notify:= _
  '      False
  '  Sheets("39").Select
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  Sheets("41").Select
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
  '  ActiveWindow.Close
End Sub

 

[gast0660]

Hoi,
Kan je mischien een vbtje posten?

Greetz

 

[GerV]

heb gevonden wat er fout gaat.

de blz2 verwijst naar dezelfde cel als blz1.

blz2 moet naar cel b2 verwijzen.

Bedankt voor de hulp.

Ger V