Verschillende werkbladen printen

[ZZ1]

Hallo,

Ik ben druk bezig met een excel bestand aan het opbouwen.

Hierin heb ik verschillende werkbladen gevuld met gegevens.
Deze wil ik laten printen alleen is dit afhankelijk van de input gegevens.

Voorbeeld:
Ik een range van A1 tot A10 van inputblad komen diverse gegevens te staan.
A1 = 1
A2 = 4
A3 = 8
A4 = 13
A5 = 9
Niet altijd zullen alle cellen gevuld worden.
Afhankelijk van de nummer/naam in cel zal hij een vergelijking moeten gaan zoeken naar werkbladen die zo genoemd worden.
Als hij een vergelijking heeft gevonden zal hij deze moeten gaan uitprinten.

Hoe kan ik Excel dit wijs maken, als CEL "A1" gevuld is met "1" dat hij werkblad 1 moet gaan vinden en deze dan laten uitprinten.

Alvast bedankt!

 

[HSV]

Zoiets?

Sub prt()
 Dim Ws As Variant, c As Variant
   For Each Ws In ThisWorkbook.Worksheets
     For Each c In Sheets(1).Range("A1:A10")
        If Ws.Name = "Blad" & c Then
      Ws.PrintOut Copies:=1, Collate:=True
    End If
   Next c
  Next Ws
End Sub

 

[ZZ1]

Zoiets?

Sub prt()
 Dim Ws As Variant, c As Variant
   For Each Ws In ThisWorkbook.Worksheets
     For Each c In Sheets(1).Range("A1:A10")
        If Ws.Name = "Blad" & c Then
      Ws.PrintOut Copies:=1, Collate:=True
    End If
   Next c
  Next Ws
End Sub

Dank u, dank u!

Ik had zelf ondertussen ook wat gevonden en bewerkt, alleen heb de hele code nog niet onder de knie...
Dus zal binnenkort kijken als ik kan zien wat overtollig is, en wat eruit kan.
Zie volgende code:

Sub SearchAreas_A1()

      Dim ThisAddress$, Found, FirstAddress
      Dim Lost$, N&, NextSheet&
      Dim CurrentArea As Range, SelectedRegion As Range
      Dim Reply As VbMsgBoxResult
      Dim FirstSheet As Worksheet
      Dim Ws As Worksheet
      Dim Wks As Worksheet
      Dim Sht As Worksheet

     Sheets("Blad1").Select
     Range("A1").Select
      Set FirstSheet = ActiveSheet  '< bookmark start sheet
      Lost = ActiveSheet.Range("A1")
      If Lost = Empty Then End
      For Each Ws In Worksheets
            Ws.Select
            With ActiveSheet.Cells
                  Set FirstAddress = .Find(What:=Lost, LookIn:=xlValues)
                  If FirstAddress Is Nothing Then     '< blank sheet
                        GoTo NextSheet
                  End If
                  FirstAddress.CurrentRegion.Select
                  Reply = MsgBox("Is " & Lost & " wat u zoekt?", _
                                 vbQuestion + vbYesNo, "Current Region")
                  Set Found = .Find(What:=Lost, LookIn:=xlValues)
                  Set FirstAddress = .Find(What:=Lost, LookIn:=xlValues)
                  If Reply = vbCancel Then End
                  '//dont look further
                  If Reply = vbYes Then
                        GoTo Finish:
                  End If
                  '//case=not this one
                  ThisAddress = FirstAddress.Address
                  Set CurrentArea = Selection
                  Do
                        If Intersect(CurrentArea, Selection) Is Nothing Then
                        End If
                        If CurrentArea Is Nothing Then
                              Set CurrentArea = Selection
                        Else
                              Set CurrentArea = Union(CurrentArea, Selection)
                        End If
                        Set FirstAddress = .FindNext(FirstAddress)
                        FirstAddress.CurrentRegion.Select
                  Loop While Not FirstAddress Is Nothing And FirstAddress. _
                       Address <> ThisAddress
            End With
NextSheet:
      Next Ws
Finish:
If Reply = vbYes Then

A = MsgBox("Wilt u dit afdrukken?", vbYesNo, "")

If A = vbYes Then
     Application.Dialogs(xlDialogPrinterSetup).Show
     Printer = "\\server\Kyocera Color"
     ActiveSheet.PrintOut
End If

If A = vbNo Then
End If

Sheets("Blad1").Select
Range("A1").Select
     Call SearchAreas_A2
     
     Else
            FirstSheet.Select
            MsgBox "Search Completed - Sorry, no more " & Lost & "s", _
                   vbInformation, "No Region Selected"
Sheets("Blad1").Select
Range("A1").Select
Call SearchAreas_A2
      End If
End Sub

Alleen nu nog het volgende...
Deze code heb ik nodig nadat ik een excel document heb in gelezen...
Maar hoe of wat kan ik het voor elkaar krijgen dat je dmv een openfile venster een excel document kan inladen, dit zal elke een ander excel bestand zijn.
Maar hij zal ze wel altijd uit dezelfde map moeten halen.