• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

sorteren

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
Beste helpers,


Ik ben met dit rooster al een heel stuk op weg geholpen
als ik op orgineel in cel A1 een getal van 1 tot 72 invul
komt er een mooi gesorteerd rooster zie tabblad Gesorteerd
het telt tot 72 en gaat dan weer naar 1


wie kan mij helpen met het volgende,
als ik op de knop alle roosters klik (zie bijlage)

graag 72 pdf-jes in een map
dan veranderd alleen de bovenste regel

don





Bekijk bijlage Roosters17.xlsm
 
Nee niet per week, wil eigenlijk 72 verschillende
er is bv een collega die straks op 10 december op positie 56 staat
die krijgt een rooster met de gegevens van 56 boven aan
als ik het handmatig zou doen dan was het
in origineel A1 het getal 1 zetten en gesorteerd printen printen
dan in origineel a1 getal 2 zetten en gesorteerd printen
enz
het is nu zo als in cel A1 een getal zet dit keurig voortelt tot 72 en weer opnieuw begint met 1
de knop doet dit helaas niet en past enkel het bovenste rijtje aan


een rooster op
 
Laatst bewerkt:
Wat moet er dan per PDF veranderen?

Dus iedereen draait dezelfde dienst op 10 december ?

Wat doet de macro die je nu hebt staan niet goed dan?
 
Laatst bewerkt:
#4

Iedereen heeft een andere start week op 10 december week
tik in cel A1 (tabblad Origineel) het getal 12
en je ziet wat deze collega vanaf 10 december moet doen
dat is dus anders voor de collega die op 56 staat
als ik nu als voorbeeld 56 intik cel A1 orgineel
dan is cel B3 in gesorteerd dat ook
cel b4 57
cel b5 58 enz
tot 72 en begint dan weer met 1
maar met de button verandert enkel de waarde in cel B3
 
Laatst bewerkt:
koop om te beginnen een toetsenbord met leestekens, want dat maakt het al een stuk leesbaarder denk ik.
 
Kijk eens of dit is wat je wenst:
Code: 
Sub SjonR()
Dim bestandnaam As String
bestandnaam = "D:\Roosters2018\"
If Dir(bestandnaam, vbDirectory) = vbNullString Then MkDir bestandnaam
PDFpad = bestandnaam
For j = 1 To 72
    Cells(3, 2).Value = j
        For i = 4 To 74
            If Cells(i - 1, 2).Value = 72 Then
                Cells(i, 2) = 1
            Else
                Cells(i, 2) = Cells(i - 1, 2) + 1
                Cells(i, 4) = Cells(i - 1, 4) + 7
            End If
        Next
   
    Sheets("Gesorteerd").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFpad & j
Next
End Sub
 
Laatst bewerkt:
Niet
dat
ik
er
veel
van
begrijp

Code: 
Sub VenA()
  c00 = "C:\Temp\"
  With Sheets("Gesorteerd")
    .Range("B4:B74") = "=B3+1"
    For j = 1 To 72
      .Range("B3") = j
      .ExportAsFixedFormat 0, c00 & j
    Next j
  End With
End Sub
 
# 7 werkt prima
# 8 ga er mee aan de slag
bedankt voor de hulp
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan