Volgende en vorige record knop

[Dolffie]

Wie kan mij helpen!

Hoe maak ik een volgende en vorige record knop aan in bijgevoegde sheet vraagVBA.xls.
Verder wil ik een button voor print alleen dit record.

Ik ben niet bekend met VBA.

Alvast bedankt!

 

[OctaFish]

Ik snap je bestandje niet; je hebt een tabblad Form dat geen formulier is, en een tabblad Data met een knop <Return to form>. Maar nergens een formulier te bekennen.... Hoe stel je je de werking van die knoppen voor?

 

[HSV]

Precies wat @OctaFish vermeldt.
Ik heb er maar een spinbutton ingezet.

 

[Dolffie]

Beste Harry,

Dank voor de snelle reactie top. De spinbutton die je er in gezet hebt is wat ik bedoel.
Ik heb daar nog een paar vragen over namelijk:
- als een lege cel is in de datasheet loop de spinbutton niet verder hier moet een fout melding komen bv in het rood in de form sheet (hoe dit op te lossen?)
- Mocht ik een extra kolom toevoegen in de data sheet. hoe zorg ik dat deze mee loopt met de spin button?

Verder moet de print button al leen de pagina afdrukken welke is geselecteerd.

Alvast bedankt,!

 

[HSV]

1). Edit: je hebt de vraag aangepast.

With Sheets("data")
 sn = .Range("A2", .Range("I" & .UsedRange.Rows.Count))
End With

2). Het mooiste is dat je alles netjes onder elkaar plaatst in tabblad Form (nu zitten er lege cellen tussen; B17, B22).
De code is daar uiteraard op aan te passen.
3). Zoiets?

Sub PrintForms()
  ActiveSheet.PageSetup.PrintArea = "$b$10:$c$30"
  ActiveSheet.PrintPreview
End Sub

 

[Dolffie]

Beste Harry,

Helemaal goed TOP!
Hoe geef ik aan in de printopdracht dat het landscape moet zijn

Alvast bedankt

 

[gast0660]

Hoi,
met deze

ActiveSheet.PageSetup.Orientation = xlLandscape

Groet

 

[Dolffie]

Dank ook weer gelukt,

Ik heb nu dit zie bijlage,

Het werkt bijna zoals ik wil,

1) Moet alleen nog record nummer in op de formsheet (regel nr)

2) mail merge print functie d.m.v. een button met preview selectie

3) puntentelling werkt nog niet goed kan de juiste formule niet produceren. bij gelijke score gelijke plaatsing, jongste hond moet hoger op de lijst staan

Alvast weer bedankt!!!

 

[HSV]

Volgens mij kloppen 1 en 3.
Punt twee moet je nog maar eens toelichten.

 

[Dolffie]

Beste Harry,

Alvast bedank !
1) kan deze ook op 1 beginnen?

2) Er is nu een Button die 1 pagina per keer afdrukt. hiernaast wil ik ook de optie hebben om met 1 button alles af te printen.

3) gaat nog niet goed, er is nu geen nr 1. verder als er meer dan 2 deelnemers zijn met de zelfde score gaat de plaatsing verkeerd.

Bedankt,

Groet, Dolf

 

[HSV]

Hallo Dolf,

De aanpassingen zijn in het rood.

1).

Range("c7") = SpinButton1.Value[COLOR=#ff0000] - 1[/COLOR]

2). Zal waarschijnlijk later op de dag worden.

3).

Sub Sorteren_data()Sheets("data").Cells(1).CurrentRegion.Sort[COLOR=#ff0000] [L1], 2,[/COLOR] [d1], , 2, , , 1
End Sub

Edit: De formules moeten aangepast in laatste kolom (zal er eens naar kijken).

Edit 2: In cel R2 en doorvoeren naar onderen.

=rang(L2;$L$2:$L$200)

 

[Dolffie]

Ok snel!

1) gelukt!

3) gelukt, maar werkt nog niet helemaal.
sortering leeftijd en plaatsing gaat goed.
Alleen die geen diploma hebben behaald (diploma NEE) moeten lager komen dan Diploma Ja

 

[HSV]

3).

Sheets("data").Cells(1).CurrentRegion.Sort [l1], 2, [k1], , 1, [d1], 2, 1

 

[Dolffie]

3).

Sheets("data").Cells(1).CurrentRegion.Sort [l1], 2, [k1], , 1, [d1], 2, 1

 

[HSV]

2).
Ik heb de Spinbuttons Public gemaakt, dus even testen of het resultaat zo gewenst is.

 

[Dolffie]

Bijna goed, Ben er er blij mee!

In het voorbeeld staat de uitkomt goed zoals het zou moeten zijn.
Alleen als je waarde veranderd zoals scores naar 50 bij proef 1, 2, 3, of 4 geeft dit de uitkomst geen diploma en moet deze onder aankomen in de sortering.
Verder is het de bedoeling bij waarde NEE kolom in kolom DIPLOMA dat dan in kolom PLAATSING er "GEEN" komt te staan ipv plaatsing cijfer.
Zou dit eventueel ook kunnen d.m.v. een button zodat ik hier de keuze heb ""plaatsing cijfer of "geen" afhankelijk van de wedstrijd e.d.

 

[HSV]

Mooi, dan zou het zo beter moeten gaan.

Sub Sorteren_data()
 Sheets("data").Cells(1).CurrentRegion.Sort [K1], 1, [L1], , 2, [d1], 2, 1
End Sub

 

[Dolffie]

oke,

diploma kolom gaat nu goed, alleen de plaatsing kolom niet, geen diploma komen onder aan in de plaatsing en/of geen plaatsing

 

[HSV]

Plaats het bestand eens met wat er zoal fout gaat bij als ik iets doe.

 

[Dolffie]

bij deze het bestand