macro probleem met tabblad selecteren

[sharda002]

Beste macro specialisten ik heb een vraag.
Onderstaande macro heb ik gemaakt alleen wil ik het volgende toevoegen wat maar niet wil werken.

Deze macro moet alleen werken op 1 specifiek tabblad als dit tabblad niet geselecteerd is moet de macro sluiten of niet werken.

wie heeft een suggestie?

bedankt John



--------------------------------------------------------------------------------------
Sub opslaanexcelpdf()



If Range("b16") = "Faktuur" Then
Windows("hse sjabloon1").Activate
Range("j22").Select
Selection.Copy
Windows("Omzet en betaling overzicht.xls").Activate
Sheets("Debiteuren").Select
Range("B1000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Rows("5:1001").Select
Range("B6").Activate
Selection.Sort Key1:=Range("N6"), Order1:=xlDescending, Key2:=Range("E6") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("a1").Select
End If

Windows("hse sjabloon1").Activate

Dirr = Sheets("faktuur").Range("a6") & "\"

If Dir(Dirr, vbDirectory) = "" Then
MkDir Dirr
End If
WBnaam = Dirr & Sheets("faktuur").Range("a8")
ActiveWorkbook.SaveAs Filename:=WBnaam
ActiveWorkbook.Save
Application.ActivePrinter = "Bullzip PDF Printer op Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Bullzip PDF Printer op Ne01:", Collate:=True
ActiveWorkbook.Save
End Sub

 

[Cobbe]

Voeg deze regel toe:

Sub opslaanexcelpdf()
[COLOR="#FF0000"]If ActiveSheet.Name <> "[B]Blad1[/B]" Then Exit Sub[/COLOR]


If Range("b16") = "Faktuur" Then
 Windows("hse sjabloon1").Activate

'Blad1' dien je wel aan de omstandigheden aan te passen.

 

[sharda002]

cobbe, als ik bij "blad1" het tabblad naam invult ( dat i s toch de bedoeling) doet die het niet

macro werkt op geen een tabblad

 

[Cobbe]

Ik weet natuurlijk niet of je verdere code correct is.
Maar de toegevoegde regel(rood) zorgt er enkel voor dat de macro stopt als het actieve blad niet Blad1 is.

Dus moet je "Blad1" vervangen door "De naam van het betreffende blad" waarin de macro WEL moet werken.

 

[sharda002]

Cobbe hij werkt!! had de naam van de werkmap ingevuld

bedankt probleem opgelost!