invullen spreadsheet bank

[AD1957]

Hallo snb,
Kun je mij een fatsoenlijk handboek adviseren, de wintermaanden komen eraan.
Ik heb nu een boek waar alleen de meest simpele zaken worden uitgelegd.
Groet,
Albert

 

[snb]

Engels of Nederlands ?

Welk boek heb je nu ?

 

[AD1957]

aub in nederlands ik heb nu visual basic for applications van Wim de Groot.

maar heel misschien wil jij of jack mij voor deze keer nog helpen

 

[Jack Nouws]

Van welk blad moet je listbox geladen worden?
Welke textboxen moeten dmv listbox gevuld worden?
Wat is de functie van listbox2?
Wat wil je met je optionbuttons bereiken?

met vr gr Jack

Tip: Bezoek ook eens de site van snb waar zeer nuttige info te vinden is!

 

[AD1957]

Hoi JAck,
listbox wordt geladen via inkoopboek range A5:M2000
te vullen textboxen 2 t/m 8 en eventueel 9 t/m 15 (die laatste worden nu in princype geladen door invullen van textbox 2 t/m)
nu is het zo dat ik alleen textbox 2 kan vullen via listbox_klick
textbox 3 t/m 8 moet ik dan met het toetsenbord invullen.
Het zou veel gebruiksvriendelijker zijn als ik achtereenvolgens via klick die andere textboxen kan invullen.

doel van listbox 2 is het zoeken op naam of datum etc. in listbox1 (zie textbox28_change) dit is de textbox boven de listbox
Ik het nagenoeg dezelfde userform waar deze zoekfunctie wel werkt en kan maar niet ontdekken waar het mis gaat.
Groet,
Albert
p.s. de site van snb ga ik binnenkort eens goed doorlezen, sommige codes heb ik in het verleden met hulp hiervan gemaakt.

 

[AD1957]

nog even over de optionbuttons:
Als ik de listbox volledig vul via userform_initialize wordt de reactie tijdens klick vertraagd.
dmv. de optionsbuttons kan ik het laden splitsen in acht delen, dan reageert de listbox sneller op de klick

 

[Jack Nouws]

Zoiets als dit misschien?

    With ListBox1
      If .ListIndex > -1 Then
        Me("TextBox" & .ListIndex + 2) = .Column(0)
        Me("TextBox" & .ListIndex + 9) = .Column(5)
      End If
    End With

is niet compleet

 

[Jack Nouws]

Bij mij laad je listbox zonder vertraging op met 5000 ingevulde regels.
Bij een gekozen index >6 ga je vastlopen omdat je niet genoeg textboxen hebt.
Kortom als ik jou was zou ik iets anders verzinnen.

Gr Jack

 

[AD1957]

Goedemorgen Jack,
Met de code ga ik aan de slag, eerst eens inzicht krijgen wat de code precies doet.

Dat traag laden van de llistbox???, waar zou hier de oorzaak van kunnen zijn???
Groet en dank,
Albert

 

[AD1957]

Hoi Jack,
Ik had niet direct in de gaten wat de code deed.
Maar na het gebruik van de code was het me direct duidelijk.
Netjes rekening 1t/m 4 invullen inderdaad geen probleem( behalve het optellen in textbox16)
Moet ik echter straks rek nr. 8 of hoger invullen, dan gaat het direct fout, logisch
Ik zou met deze code +/- 2000 textboxen moeten hebben.
Toch maar weer eens op zoek gaan, heb nu weer een andere insteek, wordt weer proberen, want ik heb
nog steeds te weinig kennis van VBA om dit zomaar op te lossen

 

[AD1957]

hoi Jack,
Ik heb de textboxen 2t/m8 in frame1 geplaatst en geprobeerd met onderstaande code verder te komen
Denk wel dat ik een stuk in de goede richting zit maar kom niet verder:evil:
Volgorde van coderegels?? of zit ik helemaal fout??

Private Sub ListBox1_Click() 'invullen rekening nr.  in textbox2 t/m 8
    
With ListBox1
    On Error GoTo oops
    For Each tbox In Frame1.Controls 'frame met rekeningnummers
    
    If .ListIndex > -1 Then
     If tbox.Value = "" Then
        tbox.Value = .Column(0)
        Exit For
     End If
    End If
    Next Ctrl
  End With 
  
  Me.TextBox16.Value = Format(CDbl(TextBox9.Text))
End Sub

 

[AD1957]

xx

 

[Jack Nouws]

Of zoiets als dit (zonder frame)

    With ListBox1
      If .ListIndex > -1 Then
        If Me.TextBox8 <> "" Then MsgBox "Geen ruimte meer"
            For j = 2 To 8
              If Me("TextBox" & j) = "" Then
                 Me("TextBox" & j) = .Column(0)
                 Me("TextBox" & j + 7) = .Column(5)
                 TelOp j + 7
              Exit For
              End If
            Next
      End If
    End With

of

  If Me.TextBox8 <> "" Then
    MsgBox "Geen ruimte meer", vbCritical
    Exit Sub
  Else
    With ListBox1
      If .ListIndex > -1 Then
            For j = 2 To 8
              If Me("TextBox" & j) = "" Then
                 Me("TextBox" & j) = .Column(0)
                 Me("TextBox" & j + 7) = .Column(5)
                 TelOp j + 7
              Exit For
              End If
            Next
      End If
    End With
  End If

 

[AD1957]

Hoi Jack,
Zelf heb ik de moed opgegeven, jij bent blijkbaar een echte doorbijter:thumb:
Het vullen van de textboxen gaat nu precies zoals mijn wens was.
Echter textbox16 gaat niet goed.

Zelf ben ik een aantal uren bezig geweest met een begrotings c.q. calculatieprogramma hier zaten nog enkele storende foutjes in.
voornamelijk als ik tussentijds wijzigingen aanbracht werden deze vaak niet doorberekend in alle kolommen.
Denk dat ik die nu allemaal heb opgelost. Eerst nog heel goed controleren en dat zet ik het waarschijnlijk op deze site.
Lijkt me een prachtig iets voor de ZZP'r in de installatiebranche.
maak er zelf al jaren gebruik van, maar deze versie werkt gevoelsmatig toppie

 

[AD1957]

jack,
hulp gewenst met optellen textboxen
na 2 uur proberen te begrijpen waarom het niet werkt geen resultaat

 

[Jack Nouws]

Is dit je bedoeling?

 

[AD1957]

Alleen het boeken naar de sheet gaat nog niet goed.
Wil eerst zelf gaan proberen dit op te lossen, lukt het niet dan zal ik toch weer beroep op jouw kennis moeten doen.
Wordt wel iets voor morgen want ik ben helemaal teut

fijne avond nog

 

[AD1957]

goedemorgen Jack,

Ik heb de code onder knop JA en NEE aangepast en het boeken gaat nu goed, ook het rekening nr. in kolom A wordt nu geboekt(lukt me echter alleen bij 1 rekening)
in regel 8 op de sheet heb ik handmatig iets ingevoerd, is er een mogelijkheid om op deze manier te boeken?

ivm met het optellen in texbox16 heb ik zitten zoeken wat je nu precies hebt veranderd, het enigste wat ik vind zijn de onderstaande aanpassing in listbox1_klick

TextBox1.Value = .Column(10)
TextBox17.Text = .Column(3)

zie ik iets over het hoofd?, vind het nml. belangrijk om te begrijpen waarom iets niet werkt.

Bekijk bijlage invullen bank (j6).xlsb

 

[Jack Nouws]

Wordt wel ingewikkeld maar dit is een manier...

Private Sub CommandButton1_Click() ' knop ja inkoopboek
  For i = 2 To 8
    If Me("TextBox" & i).Value <> "" Then s = s & Me("TextBox" & i).Value & vbLf
  Next
  sr = Left(s, Len(s) - 1)
  With Sheets("UITGAVEN BANK")
    lr = .Range("B2").End(xlDown).Offset(1).Row
    .Cells(lr, 1).Resize(, 6) = Array(sr, Format(TextBox1.Value, "dd-mmm"), TextBox17.Value, , Me.TextBox16.Value + Val(TextBox27.Value), Me.TextBox16.Value * 1)
  End With
  For i = 1 To 17
    Me("TextBox" & i).Value = ""
  Next
  TextBox27.Value = ""
  TextBox1.SetFocus
End Sub

 

[Jack Nouws]

Bij listbox1 click event staat dit rode regeltje

          If Me("TextBox" & j) = "" Then
             Me("TextBox" & j) = .Column(0)
             Me("TextBox" & j + 7) = .Column(5)
             [COLOR=#ff0000]TelOp j + 7[/COLOR]
          Exit For
          End If

die een aparte sub voor de telling aanroept.