Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Listboxen in een formulier  (gelezen 4204 keer)

0 leden en 1 gast bekijken dit topic.

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Listboxen in een formulier
« Reactie #15 Gepost op: 12 augustus 2021, 12:25:59 »
Dag Montagnard,

Het probleem zat wel in de code.
Wel of niet voorkomen van een "begunstigde" op blad "Budget" mag niets uitmaken.
Haal er maar eens een weg , of maak een tikfoutje op blad "Budget".
Bijvoorbeeld Kaankerfonds ipv. Kankerfonds.

Zoek de verschillen in de code, succes.

Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Listboxen in een formulier
« Reactie #16 Gepost op: 12 augustus 2021, 12:51:21 »
Misschien is dit nog beter.
Private Sub Workbook_Open()


Worksheets("Budget").Activate

                                                             
    herhalend = Sheets("Herhalend").Cells(1, 1).CurrentRegion 'alle 'herhalingen' inlezen
For i = 1 To UBound(herhalend)                                'aflopen van boven naar onder
       
    ' is het een weerkerende dag of een datum in de toekomst
    If herhalend(i, 1) > 0 And herhalend(i, 1) < 32 Then dag = DateSerial(Year(Date), Month(Date), herhalend(i, 1)) Else dag = herhalend(i, 1)
       
    If herhalend(i, 1) < 4 And Day(Date) > 24 Then
        dag = WorksheetFunction.EDate(dag, 1)
    End If
   
    If herhalend(i, 1) > 24 And Day(Date) < 4 Then
        dag = WorksheetFunction.EDate(dag, -1)
    End If
   
    If dag > Date - 4 And dag < Date + 4 Then                   'is herhalende dag 4 dagen minder of meer dan vandaag
        categorie = herhalend(i, 2)                             'categorie wordt opgehaald uit het blad "herhalend"
        begunstigde = herhalend(i, 3)                           'tegenpartij wordt opgehaald uit het blad "herhalend"
        bedrag = herhalend(i, 4)                                'bedrag wordt opgehaald uit het blad "herhalend"
        soort = herhalend(i, 5)                                 'als soort een T is dan een betaling in de toekomst , een M dan maandelijkse betaling
   
                                                                'tekst van msgbox bepalen naargelang het een (M)aandelijkse of een betaling in de (T)oekomst is
        If soort = "T" Then tekst1 = "Volgende 'betaling in de Toekomst' :" + (Chr(13)) + (Chr(13)): tekst2 = "Betaling in de Toekomst" + (Chr(13))
        If soort = "M" Then tekst1 = "Deze 'maandelijkse betaling' :" + (Chr(13)) + (Chr(13)): tekst2 = "Maandelijkse Verrichting" + (Chr(13))
       
                                                                               
        tezoeken = begunstigde
        rij = Application.Match(tezoeken, Columns(2), 0)         'de kolom 2 doorzoeken naar een overeenkomst met cel "Rubriek"
        kolom = Month(Date) + 2                                  'stel nu de kolom in om het bedrag in te vullen
       
        If IsNumeric(rij) And IsNumeric(kolom) Then
             If Cells(rij, kolom).Value <> "" Then GoTo Volgende 'is de verhandeling reeds gebeurd ? zoja volgende item
             If MsgBox(tekst1 + " '" & categorie & " / " & begunstigde & "' invullen ?", vbYesNo + vbQuestion, tekst2) = vbNo Then GoTo Volgende 'antwoord ja = invullen , antwoord nee = de rij verder afwerken
             Cells(rij, kolom).Value = bedrag                    'verrichting_uitvoeren
       
       
        Else
             MsgBox "Oeps, de begunstigde  " & tezoeken & "  staat niet op het blad BUDGET" & vbCrLf & _
               "Misschien een tikfoutje? Controleer de benaming." & vbCrLf & _
               "Of ben je deze vergeten in te vullen op blad BUDGET? "
        End If
    End If
Rem niets invullen , de gegevens wissen die ingevuld waren
Volgende:
'        Cells(3, 4).Select
Next i

End Sub
Groet,

Albert

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Listboxen in een formulier
« Reactie #17 Gepost op: 13 augustus 2021, 08:27:20 »
Goeiemorgen Albert ,
ik heb gisteren niet meer kunnen antwoorden , op vriendenbezoek geweest tot s'avonds...
ik heb je code ingebracht en idd , je had gelijk , mijn code was op een bepaald ogenblik niet goed , de kleine aanpassing van U doet het.
ik zit echter met een nu pas opgemerkt probleem : als ik een invoer doe via mijn invoer formulier met een bedrag met cijfers na de komma , dan wordt deze correct ingevuld ALS de cel nog leeg is .
als er echter al een bedrag staat , en ik vul b.v. een nieuw gegeven in onder de rubriek "huishouden/boodschappen" : 50.50 en er staat nog niets in de betreffende cel dan is het oké , staat er al iets in en moet dit bedrag vermeerderd worden met de nieuwe ingave dan neemt hij 5050 als bedrag....
doe maar eens de test : geef 2 x na elkaar in mijn invoer formulier volgende in : "Huishouden" - "boodschappen" - 50.50
je krijgt de 1ste maal in cel J26 : 50,50 te zien , de 2de keer wordt J26 plots : 5100,50 ?
ik gebruik mijn numeric toetsenbord voor de ingave , staat ingesteld als "Belgisch punt" ( al ALTIJD zo gebruikt zonder problemen)....

enig idee / oplossing ?

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Listboxen in een formulier
« Reactie #18 Gepost op: 13 augustus 2021, 11:48:50 »
Zo?
In de code van de Userform heb ik de wijzigingen aangegeven met **********************************************
Groet,

Albert

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Listboxen in een formulier
« Reactie #19 Gepost op: 13 augustus 2021, 12:06:30 »
Albert,
super ! mooie aanpassingen , werkt vlotter ook...
Mercikes  _/-\o_

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Listboxen in een formulier
« Reactie #20 Gepost op: 13 augustus 2021, 12:22:23 »
In Amerika wordt de komma gebruikt als scheidingsteken voor duizendtallen.
Daarom ging het fout.
In het verleden heb ik hier vaak grijze haren van gekregen.(nooit meer weggegaan ;D ;D)
Groet,

Albert

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Listboxen in een formulier
« Reactie #21 Gepost op: 13 augustus 2021, 12:28:02 »
In Amerika wordt de komma gebruikt als scheidingsteken voor duizendtallen.
Daarom ging het fout.
In het verleden heb ik hier vaak grijze haren van gekregen.(nooit meer weggegaan ;D ;D)
is wel eigenaardig dat ik in een gewone cel wel de komma krijg als ik via mijn numeric toetsenbord op de komma/(del) toets druk , in een textbox blijkbaar niet...
als ik de 1ste keer in de textbox4 50.50 intypte dan zette hij mooi in de betreffende cel 50,50 .
bij de 2de keer , dus als het bedrag moest opgeteld worden met hetgeen al in de cel stond en ik ingaf 50.50 werd het 5050.....raar  ::)
maar het is opgelost , waarvoor dank.
Mvg,
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com