Hey Molly,

inderdaad, hier moest ik nog enkele aanpassingen maken...
Ik ben hier de afgelopen dagen letterlijk met mijn bestand bezig in stukjes en brokjes (tussen allerhande andere zaken door)
dus de focus is niet 100% waardoor er hier en daar iets tijdelijk 'vergeten' wordt  .
Ik had het eerst op die manier gedaan omdat ik met mijn vorige pogingen (nog binnen die "with"'s) elke keer opnieuw al mijn
paginas disabled kreeg als resultaat. Vandaar dat ik het dan erbuiten had gedaan door rechtstreeks met de pagina te werken
ipv een variabele om te zien of mijn code-opbouw wel deed wat het moest doen.
Het was sowieso de bedoeling om, eens ik de code werkend had gekregen, ik het dan opnieuw met een variabele ging proberen,
wat ik ondertussen ook gedaan heb.

Ik heb er nu dit van gemaakt :
For p = 11 To 0 Step -1
    actief = False
    For Each ctrl In Me.MultiPage1.Pages(p).Controls
      If TypeName(ctrl) = "TextBox" Then
        If ctrl.BackColor <> &H8000000F And ctrl.BackColor <> RGB(164, 255, 255) Then
            actief = True
            Exit For
         End If
      End If
    Next
    If actief = False Then Me.MultiPage1.Pages(p).Enabled = False
  Next p

En ja, ik ben altijd al perfectionistisch ingesteld geweest (tenminste als ik me voldoende kan focussen) en ook ontzettend leergierig 
Maar zoals ik in het verleden al meermaals heb aangehaald heb ik door mijn polyneuropathie de laatste jaren sowieso regelmatig last
van verstrooidheid en geeft mijn korte termijngeheugen er ook vaak de brui aan  dus als ik dan door andere omstandigheden ook
nog extra minder focus heb is dat nog erger en dan komt dat misschien over alsof ik niet wil 'luisteren' wat dus zeker niet het geval is. 

groetjes,
Bieke

***UPDATE***

Vandaag met een beetje meer focus aan het bestand kunnen werken en het tweede deel "betalingen uitvoeren" is voor de
helft afgewerkt.
Het is te zeggen, de code voor de UF (userform1) zelf is volledig af maar de module-sub om de echte berekeningen te gaan
doen moet wel nog geschreven worden.

Maar alvorens daar aan te beginnen voeg ik alvast nog eens een recente versie (1.3b) toe zodat dit eventjes kan 'nagekeken'
worden op mogelijke onderliggende bugjes (die voor mijn beperkte kennis misschien niet meteen zichtbaar zijn).


Ik ga nu alvast al eens op papier een schematische voorstelling maken van alle diverse berekeningen die er zullen moeten
gecodeerd worden.

groetjes,
Bieke

Hey Molly,

'Mid(Me.MultiPage1.SelectedItem.Name, 5)' is op dat moment altijd 1, dus gebruik daarvan is overbodig.
Je hebt enkel 'Month(Date)' nodig (zie #144).

Hier moet ik je toch héél eventjes tegenspreken ....
'Mid(Me.MultiPage1.SelectedItem.Name, 5)' is enkel maar 1 zolang "Page1" enabled is.
Zodra deze op disabled staat (wat in principe gedurende zowat 11 maanden van de 12 het geval zal zijn) dan
zal juist 'Month(Date) - 1' voor problemen zorgen...

Maar je had wel gelijk dat het daarmee nog niet goed zat omdat zoals het nu is hij gedurende 1 maand van de 12
ook problemen zal geven.
Ik heb het lijntje code dus eventjes aangepast naar dit :
If Mid(Me.MultiPage1.SelectedItem.Name, 5) <> 1 Then
    Me.MultiPage1.Value = (Month(Date) - Mid(Me.MultiPage1.SelectedItem.Name, 5)) + 1
  Else
    Me.MultiPage1.Value = Month(Date) - 1
  End If

Op deze manier activeert hij wél altijd de correcte pagina.


groetjes,
Bieke

Hey Molly,

mea culpa 

Ik was in mijn redenering blijkbaar volledig verstrooid door index en name .... temeer omdat dit specifieke codelijntje onder
de code staat waar de paginas disabled worden.
Doordat, indien de eerste pagina disabled is, het indexnummer 0 dan toegewezen wordt aan de eerstvolgende
enabled pagina ben ik er in mijn verstrooidheid (onterecht) van uit gegaan dat de geselecteerde pagina ook
wijzigde (maw ik dacht dat zodra page1 disabled werd (via de code) dat dan automatisch page2 geselecteerd werd).
Ik heb het dus terug aangepast...

Mijn excuses voor mijn verstrooidheid en verkeerde redenering  .


groetjes,
Bieke

@Molly,

Mijn excuses voor de late reactie…
Na een dikke week zwaar ziek zijn (chronische zenuw- & -rugpijn, migraine en galkolieken in combinatie met overgangsklachten = geen lachertje… ) ben ik vandaag eindelijk terug in staat om langer dan een half uurtje aan de pc te zitten….

Nadat de UF met multipage volledig werkte zoals het hoorde was ik vorige week al eens begonnen met de werking in praktijk te testen door de gegevens van het huidige kalenderjaar over te brengen naar de nieuwe bestandversie. Hierbij had ik toch wel enkele zaken opgemerkt die toch niet zo handig waren waardoor ik besloten heb de multipage te elimineren en een geschikter UF te maken voor de handelingen die gedaan moeten worden. Ik zal me dan ook op de totale multipage-werking op een later tijdstip wat intenser toeleggen inzake het gedrag van de index- en page-nummering.


@algemeen,

Wat niet gewijzigd is, is de handeling dat bij het verwerken van een “gekende” betaling dit in de juiste kolom als betaald gemarkeerd (via achtergrondkleur) dient te worden op het werkblad “jaaroverzicht”.
Het bepalen van de kolom gebeurd simpel op basis van de maand die geselecteerd werd in de UF maar om de juiste rij te kennen moet ik dus gaan zoeken op basis van de tegenpartij (en mededeling).

Meestal doe ik dit via :
zoekrij = .Columns(1).Find(partij).RowMaar aangezien ik een 5-tal tegenpartijen heb die meermaals voorkomen dien ik dus een tweede criteria te gebruiken, namelijk de mededeling.
Rechtstreeks op mededeling zoeken is echter ook geen optie aangezien ik een aantal mededelingen heb die meerdere keren voorkomen met telkens een andere tegenpartij.

Hoe kan ik nu het snelst de correcte rij vinden gebaseerd op die twee criteria?
De tegenpartij staat in kolom 1 en de mededeling staat in kolom 2.

In bijlage voeg ik een voorbeeld van het werkblad waarop gezocht moet worden.
Inzake privacy heb ik wel de bedragen verwijderd en enkele benamingen aangepast.


Alvast dank op voorhand.

Groetjes,
BlackDevil/Bieke

BlackDevil,

ik heb je code niet bekeken, heb geen tijd op het ogenblik.
Maar mijn eerste intuïtief gedacht zou zijn: zoek op beide (partij én mededeling) true zijn.

If .Colomns(1).Find(partij) = True And .Columns(1).Find(mededeling) = True Then
  Zoekrij = .Comumns(1).Find(partij).Row
End If
SoftAid              

Hey Bieke,

Een 'codelijntje of twee' is moeilijk haalbaar, maar nog ietsje inkorten kan wel: je gebruikt zelfs 2 overbodige variabelen.
Minder leesbaar wordt het daardoor ook niet (vind ik toch zelf ):
With Sheets("jaaroverzicht")
  If gekend = "j" Then
    For jj = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
      If .Cells(jj, 1) = partij And .Cells(jj, 2) = med Then
        .Cells(jj, mndsel + 2).Interior.Color = RGB(164, 255, 255)
        Exit For
      End If
    Next jj
  End If
End With
Nog een paar wetenswaardigheden misschien?, dus volgende ook @ SoftAid 
Find geeft geen True of False, maar ofwel eigenschappen van een cel (waarde, adres...) ofwel een fout!
Foutmeldingen willen we natuurlijk niet, dus dat kan men bv. opvangen met "If Not range.Find(zoek) Is Nothing Then"

...en vooral @ SoftAid (wetende dat Bieke niet de enige is die altijd wil bijleren )
Zoals Bieke opmerkte zou, zelfs als die True mogelijk was, je gewoon zoeken in beide kolommen, maar onafhankelijk van elkaar, om dan effectief verder te gaan met de gevonden rij uit de eerste kolom (in tegenstelling tot Bieke's veronderstelling zou zoekrij dan niet 0 maar wel 16 zijn, nl. de eerste rij waarop 'partij' voorkomt).
Intuïtie, ik volg ze soms ook, maar was hier helaas een slechte raadgever

Groetjes,
Molly