Auteur Topic: Getrokken lottocijfers selecteren (gelezen 23523 keer)

plainme · « **Reactie #45 Gepost op:** 28 juli 2020, 12:43:39 »

Beste Dotchiejack,

Vraagje,... Als ik op sorteer druk dan bekom ik een foutmelding
"Methode sort van object Range is mislukt"
Mag ik zo vrij zijn te vragen waarom dit is ?

Alvast bedankt voor een antwoord.

Mvg,
Marc

emields · « **Reactie #46 Gepost op:** 28 juli 2020, 15:36:59 »

zonder voorbeeldbestand zal het raden worden wat het kan zijn.
waarschijnlijk een bereik dat niet volledig ingevuld is.

plainme · « **Reactie #47 Gepost op:** 29 juli 2020, 12:47:29 »

Hallo Emields,

Het bestandje dat ik heb is dat wat hier in voorgaande posten stond.
Nu niet erg...
hier bij mijn opgesmukte versie.
Aan de code's zo goed als niks aangepast.

Toch al bedankt voor de reactie en hopelijk tot binnenkort.

Mvg
Marc

lco · « **Reactie #48 Gepost op:** 29 juli 2020, 13:12:05 »

plainme

Bij mij werkt alles zonder foutmeldingen

mvg,lco

plainme · « **Reactie #49 Gepost op:** 29 juli 2020, 14:43:50 »

Hey Ico,

Ook een leuke uitvoering dat programmaatje van jou.

hier blijf ik de foutcode houden.
Kijk maar eens naar de screenshots
Hopelijk ben je hier iets mee.
Alvast bedankt

Mvg,
Marc

Montagnard · « **Reactie #50 Gepost op:** 29 juli 2020, 15:01:08 »

Citaat van: lco op 29 juli 2020, 13:12:05

Bij mij werkt alles zonder foutmeldingen

bij mij word alles gewist als ik kies voor "sorteren" , zowel bij blad 5 euro als bij het blad 10 euro ?

plainme · « **Reactie #51 Gepost op:** 29 juli 2020, 15:10:08 »

@Montagnard..... techniek in al zijn kronkels.... $_/-\o_$ $_/-\o_$ $_/-\o_$
Hier wordt niks gewist alleen stopt het gewoon.

Mvg
Marc

SoftAid · « **Reactie #52 Gepost op:** 29 juli 2020, 17:16:46 »

Hallo Arnold en Plainme,

Kan je sorteren met enkel 1 cel als range?

Probeer anders eens

Code: [Selecteer]

.Sort Range("P2:"P" & Regel), xlDescending
Niet getest, dus een korreltje zout mag...

SoftAid

plainme · « **Reactie #53 Gepost op:** 29 juli 2020, 18:06:34 »

hallo Softaid,

dit zijn de meldingen die ik krijg....
ik begrijp er nu nog de peperbollekes van

Misschien met uw VBA kennis dat je hier wel nog iets van snapt

Alvast bedankt

Mvg,
Marc

SoftAid · « **Reactie #54 Gepost op:** 29 juli 2020, 18:25:58 »

Hallo plainme,

een dubbel haakje teveel (van mijn kant :-)

Probeer deze eens:

Code: [Selecteer]

.Sort Range("P2:P" & Regel), xlDescending
Groeten,

SoftAid

plainme · « **Reactie #55 Gepost op:** 29 juli 2020, 18:46:10 »

pfffffffff Softaid

Blijf hier steeds maar een foutcode ontvangen.

nu is het weer
Fout - 2147417848 ( 80010108) tijdens uitvoeren
Methode sort van object range is mislukt

Dan maar zonder sorteren denk ik dan maar zo!!!

Toch al bedankt voor het aanreiken van een "oplossing" .

Mvg
Marc

cow18 · « **Reactie #56 Gepost op:** 29 juli 2020, 18:59:35 »

gebruik maken van with ... end with maakt lezen en schrijven van de macro een stuk eenvoudiger.
3 puntjes van aandacht,
- in de sorteerregel stond er als kolom voor sorteren Range("P2"), voor mij lijkt dat gevaarlijk en had ik eerder nog een puntje voor gezet als .range("P2"), soms belangrijk als je toevalling niet op dat werkblad staat, VBA is logisch in overtreffende trap.
- als je het rijnummer opzoekt, dan zou die niet lager mogen zijn dan 2, dus daar een ondergrens op geplakt.
- voor dat rijnummer wordt nu gekeken naar de laatst gebruikte rij in de C-kolom. Het was niet zo dat de gegevens gewist worden, ze verhuizen naar helemaal onderaan, buiten het beeld.

Code: [Selecteer]

Private Sub CommandButton1_Click()

   With ThisWorkbook.Worksheets("10 euro")       'op dit werkblad
      .Unprotect                                 'beveiliging er af
      regel = Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)   'nummer laatst gebruikte in kolom C, met 2 als ondergrens
      MsgBox "eventjes het rijnummer vermelden : " & regel
      .Range("A2:P" & regel).Sort .Range("P2"), xlDescending, Header:=xlNo   'sorteren op de P-kolom, zonder header
      .Protect                                   'blad weer beveiligen
   End With

End Sub

plainme · « **Reactie #57 Gepost op:** 29 juli 2020, 19:50:52 »

@cow18

Ik denk dat de duiveltjes hun staycation hier in mijn pctje houden..... pffffff

Alles loopt gesmeerd tot aan de MsgBox en dan bij klikken op ok loopt het weer fout
Volgende melding verschijnt dan
Fout - 21447417848 (80010108) tijdens uitvoering:
Automatiseringsfout
De verbinding van het aangeroepen object met de clients zijn verbroken

Code: [Selecteer]

Private Sub CommandButton1_Click()

   With ThisWorkbook.Worksheets("10 euro")       'op dit werkblad
      .Unprotect                                 'beveiliging er af
      regel = Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)   'nummer laatst gebruikte in kolom C, met 2 als ondergrens
      MsgBox "eventjes het rijnummer vermelden : " & regel
    [u][i][b]  .Range("A2:P" & regel).Sort .Range("P2"), xlDescending, Header:=xlNo   'sorteren op de P-kolom, zonder header[/b][/i][/u]
      .Protect                                   'blad weer beveiligen
   End With

End Sub

De lijn bold - italic - underlined is geel gemarkeerd

Hopelijk heb jij daar nog wijwater staan voor die duiveltjes hier te verjagen en dat ze dan maar ergens anders hun staycaytion houden

mvg,
Marc

cow18 · « **Reactie #58 Gepost op:** 29 juli 2020, 20:03:46 »

en hoeveel was de waarde van regel in die msgbox ?
ik werkte met je bestand uit #47
Is je huidige bestand kwa gegevens sterk verschillend van dat, anders die loopt bij mij goed.

plainme · « **Reactie #59 Gepost op:** 29 juli 2020, 20:34:29 »

Koe de waarde was 24
en in bijlage het bestandje nogmaals

niet teveel spatten met het wijwater he !

alvast bedankt voor de moeite,

Mvg,
Marc

Help!

Menu

Hulp bij posten

Zoeken

Recente topics