Volgende en vorige record knop

[HSV]

Wat gaat er niet goed?

 

[Dolffie]

Regel 14 plaats 10 moet zijn 16
Regel 15 plaats 14 moet zijn 17
Regel 16 plaats 15 moet zijn 18
Regel 17 plaats 17 moet zijn 19

 

[HSV]

Helaas begrijp ik er niet veel van.
In het bestand staan 17 deelnemers.
Twee moeten plaats 18 en 19 innemen?

Ik heb er maar wat uitgesloopt en een andere formule geplaatst.

 

[Dolffie]

Geweldig!!! Harry, sorry voor de slechte uitleg:thumb:
Is er nog een mogelijkheid om een button de maken met de keuzemogelijkheid van zoals het nu is naar in kolom M "geen" ipv getal waarde (alleen op de regesl waar de waarde Nee is)

in ieder geval heel heel erg bedankt TOP

 

[HSV]

Zoiets?

=als(k2="JA";ALS(AANTAL.ALS($L$2:L2;L2)=1;RIJ()-1;M1);"geen")

 

[Dolffie]

Ja juist! hoe krijg ik dan met een button?

Verder als ik op print alle pagina's druk blijft hij eindeloos door gaan. meer dan de 18 records
Verder komt er bij selectie print preview kolom L regel 17 "WAAR te staan

 

[HSV]

1). Moeten alleen de cellen met "JA" geprint worden.
2). Wat moet er met die 'checkbox' gebeuren?

 

[Dolffie]

Alle cellen met waarden moeten geprint worden
check box kan weg als er maar een keuze is voor wel of geen print preview

 

[HSV]

Zo beter Dolf?

 

[Dolffie]

Helemaal goed!
nog een vraag ik heb het idee dat bij afdruk pagina per stuk het wat lang duurd, klopt dat?

In ieder geval heel er bedankt!!!! Ik kan hiermee wel voor uit:thumb:

 

[HSV]

Is dat de code die jezelf er in hebt geplaatst? "Sub PrintForms()".
Die zal niet meer werken vrees ik.

 

[Dolffie]

ja die had ik zelf geplaatst :-(

 

[Dolffie]

Er gaat toch nog iets fout met de punten telling. voor het geval dat er toch de plaatsing vermeld moet worden. zie bestand rij 16 en 17

 

[HSV]

In N2 en doorvoeren.

=ALS(K2="JA";ALS(AANTAL.ALS($L$2:L2;L2)=1;RIJ()-1;N1);RIJ()-1)

 

[Dolffie]

Beste Harry,

Zou je nog kunnen helpen met de print op dracht.
Het gaat om de print opdracht per stuk.
De cellen en afbeelding moeten goed op de pagina komen. Met in principe alle marges op 0 (of een opgegeven waarde)
Eigelijk is het volgens mij alleen marge op nul horizontaal en verticaal centreren en fit top page.

zie bijlage bestand,

Alsvast bedankt

 

[HSV]

Het zal aan de afbeelding liggen waarom het zo traag is.
Haal die samengevoegde cellen weer uit elkaar en centreer de tekst over die aantal.

Sub printperstuk()
'
' printperstuk Macro
'


Application.ScreenUpdating = False
    With ActiveSheet
      With .PageSetup
        .PrintArea = "$a$10:$l$32"
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
      End With
    .PrintPreview
    '.PrintOut
   End With
End Sub

 

[Dolffie]

O getest het ziet er naar uit dat dit goed werkt!!!