Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: VBA weeknummer klopt niet  (gelezen 666 keer)

0 leden en 1 gast bekijken dit topic.

Offline malsines

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
VBA weeknummer klopt niet
« Gepost op: 23 januari 2022, 20:54:26 »
Beste forum.

ik heb een excelsheet met een pdf knop. op het blad zelf werkt iso.weeknummer goed, alleen als ik hem wil opslaan als pdf via pdf knop, klopt het weeknummer niet. Kan iemand ernaar kijken. hij geeft +1 weeknummer dus als het 3 moet zijn, geeft ie 4 aan

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: VBA weeknummer klopt niet
« Reactie #1 Gepost op: 23 januari 2022, 21:23:31 »
Zo doet íe het wel...
Sub PRINT_TO_PDF()
Dim sName$
Dim Path$
sName = ActiveSheet.Name
Path = CreateObject("WScript.Shell").specialfolders("Desktop")
yearday = Format(DateDiff("d", CDate("1/1/" & Year(ActiveSheet.Range("B2"))), CDate(Range("B2"))) + 1, "000")
On Error Resume Next
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Path & "\" & Year(Range("c5")) & "-" & "week" & "-" & DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2) & " " & sName & "  .pdf", _
    openafterpublish:=True
    ' Filename:=Path & "\" & Year(Range("c5")) & "-" & "week" & "-" & Format(Range("C5"), "ww", vbMonday) & " " & sName & "  .pdf", _
    openafterpublish:=True
If Err.Number > 0 Then MsgBox "Error saving pdf."
With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.5)
    .RightMargin = Application.InchesToPoints(0.5)
    .TopMargin = Application.InchesToPoints(0.5)
    .BottomMargin = Application.InchesToPoints(0.5)
    .HeaderMargin = Application.InchesToPoints(0.2)
    .FooterMargin = Application.InchesToPoints(0.1)
    .PaperSize = xlPaperA4
    .Orientation = xlPortrait
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
End Sub

(dank aan Guru snb: DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2))
______________________________

Groet, Leo

Offline malsines

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: VBA weeknummer klopt niet
« Reactie #2 Gepost op: 23 januari 2022, 21:34:51 »
Kan het ook het weeknummer uit cel C5 halen

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: VBA weeknummer klopt niet
« Reactie #3 Gepost op: 23 januari 2022, 21:53:15 »
Dát was óók mijn eerste gedachte....  ;D
Maar je vroeg om de VBA oplossing toch?  ;)
Hoe dan ook, linksom of rechtsom. Je hebt oplossingen om uit te kiezen.
______________________________

Groet, Leo

Offline malsines

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: VBA weeknummer klopt niet
« Reactie #4 Gepost op: 23 januari 2022, 21:57:58 »
is er niet zo een oplossing als deze: Year(Range("c5")
jaar haalt ie wel van c5
nu alleen het weeknummer nog van c5

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: VBA weeknummer klopt niet
« Reactie #5 Gepost op: 24 januari 2022, 12:22:59 »
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path & "\" & Year(Range("c5")) & "-" & "week" & "-" & DatePart("ww", Range("c5") - Weekday(Range("c5"), 2) + 4, 2, 2) & " " & sName, _
    openafterpublish:=True
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: VBA weeknummer klopt niet
« Reactie #6 Gepost op: 24 januari 2022, 15:30:13 »
Overigens snap ik dan niet dat je niet gewoon de hele bende vanuit de sheet ophaalt ipv het weeknummer in VBA berekenen???
Filename:=Path & "\" & Year(Range("c5")) & "-" & "week" & "-" & format(range("E5").value, "00") & " " & sName & "  .pdf", _
    openafterpublish:=True
______________________________

Groet, Leo

Offline malsines

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: VBA weeknummer klopt niet
« Reactie #7 Gepost op: 24 januari 2022, 19:26:17 »
Ik dank jullie allemaal :) :)

 


www.combell.com