slectie opheffen

Status
Niet open voor verdere reacties.
B

Biljartbal100

Gebruiker
Lid geworden
1 aug 2019
Berichten
7
Hoi,

Ik heb de volgende code in een excel werkmap staan voor het opslaan van twee tabbladen naar een PDF. Alles gaat goed ik zou alleen graag willen dat na het uitvoeren van de code de tabbladen gedeselecteerd worden.

Sub PDFSPLR()
Dim FacName As String
FacName = ActiveSheet.Range("N3").Value
If Dir("C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
Sheets(Array("Stand", "RsltPSplr")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf", _
openafterpublish:=False, ignoreprintareas:=True
End If
End Sub

Alvast mijn dank!

Gr. Biljartbal100
 
Laatst bewerkt:
Zoiets:
Code: 
Sub PDFSPLR()
    Dim FacName As String
    Dim sht As String
    
    sht = ActiveSheet.Name
    FacName = ActiveSheet.Range("N3").Value
    If Dir("C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf") <> "" Then
        MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
        Exit Sub
    Else
        Sheets(Array("Stand", "RsltPSplr")).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Werner\Desktop\Net Nie" & FacName & ".pdf", _
        openafterpublish:=False, ignoreprintareas:=True
        Sheets(sht).Activate
    End If
End Sub
 
Hoi Edmoor,

Dank voor de snelle reactie!

Ik sta in sheet RsltPSplr als ik op de knop druk, alleen die sheet is op dat moment geselecteerd. Als ik dan op de knop druk (waar achter inmiddels jou code staat) gaat alles goed wat betreft het opslaan van de PDF's. Maar beide sheets zijn na de druk op de knop nog steeds geselecteerd. De bedoeling is dat alleen sheet RsltPSplr na het uitvoeren van de code nog is geselecteerd.

Gr. Biljartbal100
 
Laatst bewerkt:
Plaats dan je document.
 
Volgens mij moet je in dit geval echt select gebruiken.

Code: 
Sheets(sht).select
 
Bij mij werkt beide.
Geen idee of dat ergens van afhankelijk is.
 
Als sht binnen de selectie valt dan werkt activate blijkbaar niet.

Werkt niet
Code: 
Sub VenA()
  sht = Sheets(2).Name
  Sheets(Array(1, 2)).Select
  Sheets(sht).Activate
End Sub

Werkt wel
Code: 
Sub VenA1()
  sht = Sheets(3).Name
  Sheets(Array(1, 2)).Select
  Sheets(sht).Activate
End Sub

Werkt wel
Code: 
Sub VenA2()
  sht = Sheets(2).Name
  Sheets(Array(1, 2)).Select
  Sheets(sht).Select
End Sub
 
Dat klopt inderdaad, maar daar ging ik niet vanuit.
 
Zie de voorbeelden in #7.
Je wilt dat 1 van de geselecteerde bladen dan weer alleen actief is en dat gaat dus niet met .Avtivate.
Wel met .Select.


@VenA:
Dus toch ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan