Verwijzing naar ander tabblad

[Std]

Beste,

voor mijn werk wil ik graag een goed werkend Excel bestand opstellen.
Wanneer in cel B7 "yes" vermeld wordt, automatisch een 'kant en klaar', dus vooraf gemaakt tabblad toegevoegd wordt
Bekijk bijlage Voorbeeld 1.xls

Een voorbeeld van mijn vraag is als bijlage toegevoegd.

Mocht mijn vraag niet duidelijk zijn dan verneem ik dat graag.

BVD!

 

[Cobbe]

Zo goed?

 

[Std]

Zo goed?

Beste Cobbe,

Allereerst mijn dank voor je snelle reactie!

Ja alleen niet voor 100%, het komt er op neer dat wanneer in cel B7 yes vermeld is, blad 2 toegevoegd wordt én toegevoegd moet blijven, wanneer ik een cel zak (B8) verdwijnt blad 2 gelijk :-(

 

[Cobbe]

En als je in B8 dan Yes zet wat moet er dan gebeuren?

 

[Std]

En als je in B8 dan Yes zet wat moet er dan gebeuren?

Het draait in dit geval alleen om B7, daar Blad twee alleen bij vraag E (A7) hoort.
Dus wanneer B7 "yes" vermeld dat Blad 2 automatisch toegevoegd wordt.

 

[Cobbe]

Vervang de code dan door dit:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
 Sheets("Blad2").Visible = Range("B7").Value = "Yes"
End If
End Sub

 

[Std]

Vervang de code dan door dit:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
 Sheets("Blad2").Visible = Range("B7").Value = "Yes"
End If
End Sub

Picobello!!
Ook nog mogelijkheid om beide bladen, wanneer B7 "Yes" vermeld, "blad 1" + blad 2" tegelijk af te drukken?

 

[Cobbe]

Tegelijk gaat moeilijk zijn met maar een printer maar na elkaar gaat dat zo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
 Sheets("Blad2").Visible = Range("B7").Value = "Yes"
 Sheets("Blad1").PrintOut
 Sheets("Blad2").PrintOut
End If
End Sub

 

[Std]

Tegelijk gaat moeilijk zijn met maar een printer maar na elkaar gaat dat zo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
 Sheets("Blad2").Visible = Range("B7").Value = "Yes"
 Sheets("Blad1").PrintOut
 Sheets("Blad2").PrintOut
End If
End Sub

Allereerst mijn dank want je helpt mij zéér goed!
Alleen hoeft er niet gelijk afgedrukt te worden, het gaat erom dat wanneer het document (B7 yes bevat) bevat, dat dan "blad 1 en blad2" tezamen afgedrukt worden wanneer ik "printen" aanklik.

 

[Cobbe]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B7")) Is Nothing Then
        If Range("B7").Value = "Yes" Then
            Sheets("Blad2").Visible = True
            resp = MsgBox("Wil je nu printen", vbYesNo)
            If resp = vbYes Then
                Sheets("Blad1").PrintOut
                Sheets("Blad2").PrintOut
            End If
        End If
    End If
End Sub

 

[Std]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
 Sheets("Blad2").Visible = Range("B7").Value = "Yes"
 resp = MsgBox("Wil je nu printen", vbYesNo)
 If resp = vbYes Then
   Sheets("Blad1").PrintOut
    Sheets("Blad2").PrintOut
 End If
End If
End Sub

Beste Cobbe,

mijn dank is groot! Het gaat mij verder wel lukken

 

[Cobbe]

Heb de code een beetje aangepast want het liep een beetje stroef(fout). Sorry.

 

[Std]

Heb de code een beetje aangepast want het liep een beetje stroef(fout). Sorry.

Oke, het werkt ook niet voor 100% naar mijn zin, want er hoeft niet gelijk afgedrukt te worden.
Het gaat er om dat, wanneer van toepassing, beide bladen afgedrukt worden wanneer ik op printen druk.

 

[Cobbe]

En waar heb jij dan printen staan?
Ik kan dat allemaal niet weten wat jij hebt of niet hebt.

Nu wordt er toch ook gevraagd of je wil printen, is het antwoord JA dan worden Blad1 en Blad2 geprint anders niet.

 

[Std]

En waar heb jij dan printen staan?
Ik kan dat allemaal niet weten wat jij hebt of niet hebt.

Nu wordt er toch ook gevraagd of je wil printen, is het antwoord JA dan worden Blad1 en Blad2 geprint anders niet.

Ik begrijp je helemaal!
Het gaat erom dat wanneer Blad 1 compleet ingevuld is, dan pas afgedrukt kan worden met eventueel Blad 2 wanneer B7 Yes vermeld.