Goede morgen iedereen,

ik heb de tabel voor het prijzengeld uitgebreid van 10 naar 15 prijzen.
ik heb een macro die de verdeling van de prijzen weergeeft.
Nu is het zo dat ik de macro voor verdeling via procenten reeds heb aangepast (werkt perfect).
Nu is macro voor de verdeling van de prijzen via tabel dat ik niet krijg aangepast van 10 naar 15 prijzen.
ben niet zo heel bedreven in macro's en wil mijn file niet om zeep helpen, vandaar mijn vraag.

ps:is het ook mogelijk om de prijzen verdeling te kunnen aanpassen  van 10 ,11 ,12 prijzen enz. bv: door op de macro tabel/procenten te klikken en het aantal prijzen te kunnen selecteren , dit om de verdeling een beetje rekbaar te maken naar gelang de hoogte van het sponsorgeld dit om meerdere prijzen bij hogere inzet te kunnen uitbetalen. weet niet of het mogelijk is.
als de uitleg niet voldoende is laat maar iets weten.


               mvg , Lco

Luc,

je code "lijkt" vrij moeilijk te worden als je, anders dan jij, niet juist weet wat de bedoeling is.
Goede raad, plaats zo kort mogelijke vragen over 1 probleem, en illustreer dit goed.

Wat je opmerking betreft over het niet werken van de knop: De knop werkt wel (zie je dat er een verschil is tussen "De knop werkt niet" of " De code geeft een melding").

Nu, die melding is in de macro code ingebouwd:  MsgBox ("Datum niet gevonden op doelblad")

With Sheets(doelblad)
'.....
'.....ander IF-Then statement
'.....

datum = [AC4] * 1    '(in doelblad ("10 weken") staat in cel "AC4" de waarde "4%"
    If WorksheetFunction.CountIf(.Rows(2), datum) = 0 Then
        MsgBox ("Datum niet gevonden op doelblad")
        Exit Sub
    End If
De msgbox zegt je dat er op het doelblad (= "tien weken") , rij 2,  de Variabele datum [AC4] * 1 niet voorkomt (=0)
Is de parameter "AC4" wel juist?
Is de parameter Rows(2) wel juist?

SoftAid              

Luc,

de macro die je bedoeld heet: Sub naar_weken(doelblad, kolom_t)

Als je de macro Sub naar_weken(doelblad, kolom_t) gebruikt als eerste zonder eerst "een andere" macro uitgevoerd te hebben dan verwijst de variabele doelblad naar het werkblad "7 weken", een werkblad dat niet meer bestaat, of alleszins niet met die naam. En dan geeft de VB-Editor inderdaad een fout.

Kan je dat oplossen?

SoftAid