• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

listbox2 copieren naar listbox2

Status
Niet open voor verdere reacties.
A

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
Goedemiddag forumleden,

Ik heb 2 listboxen in een userform

1e. het kopiëren naar textbox2 lukt, echter de copie komt boven te staan, kan het ook zo dat deze in dezelfde rij als listbox1 komt
2e. Na sluiten van de userform wordt listbox2 leeggemaakt, deze moet echter gevuld blijven.
Dit kan volgens mij alleen door de betreffende rij in listbox1 direct te verwijderen, ik krijg echter (na uren zoeken pfffffffff) de code niet goed .

En het allerbeste zou zijn:
dat de rij in listbox1 na de klick een kleurtje krijgt, dit kleurtje moet na afsluiten wel aanwezig blijven.

Groet,
AlbertBekijk bijlage BOEKHOUDING helpmij.xlsb
 
Hoi Jan,
Begint met een userform, wie weet waar het eindigt????
Ga eens kijken of ik hiermee vooruit kom. Heb zelf al uren gezocht.
Bedankt.

Groet,
Albert
 
Hoi Jan,
kun je ook op een simpele wijze aangeven waar ik het kan vinden.
lukt me gewoon niet om de koppeling ergens te vinden.
Ben niet zo thuis in dat gedoe
Dank,
Albert
 
ga er maar eens effe met de hond erop uit.
krijg vierkante ogen hahaha
 
Jan,
Na uren zoeken op helpmij en veel andere forums ben ik er nog steeds niet uit hoe ik een rij in de
listbox een kleurtje kan geven nadat erop geklickt is.

help,help
 
Hallo Albert,
Ik zit nu al een tijdje te 'gluren' naar je bestand, maar eerlijk gezegd begrijp ik het niet goed. Is het zo dat je met het Userform de informatie uit tabblad inkoopboek van bijvoorbeeld januari (A8:K64) naar tabblad UITGAVEN kas-bank wilt kopiëren door de bullet januari aan te klikken en vervolgens de rijen? (werkt bij mij overigens niet)

Verder heb ik je formulier iets aangepast: een sluitknop toegevoegd en het zo ingesteld dat het formulier ook daadwerkelijk in beeld komt als je op open inkoopboek klikt.

Bekijk bijlage Kopie van BOEKHOUDING helpmij.xlsm

En dan wil dat de rij die je aanklikt een kleur krijgt?

Heb ik het zo goed begrepen?
 
Goedemorgen Jan,
Eerst wil ik je bedanken voor de moeite die je steekt in mijn probleem.

IK heb de userform aangepast want die 2e listbox is een te moeilijke oplossing, was maar een probeersel van mij als leek.

Hoe werkt het??
Ga naar tabblad "uitgaven bank":
ga met de cursor op A17 staan
Open de maand januari, via klicken in de userform doe ik mijn boekingen, werkt perfect.

PROBLEEM IS:
ik wil weten dmv. kleurtje aangeven welke rij in de listbox ik al aangeklickt heb (deze kleur moet dan wil bewaard blijven na afsluiten en opnieuw openen van de userform)

MISSCHIEN EEN ANDERE OPLOSSING:
ik heb in de listbox1 een laatste kolom toegevoegd "geboekt"
als in deze kolom dan iets komt te staan na aanklicken, is het probleem ook opgelost (moet dan wel weer bewaart worden)
Ik hoop dat het hiermee een beetje duidelijk is.
p.s.
Voor deze oplossing ben ik zelf op zoek naar een mogelijkheid om in het inkoopboek een extra kolom te vullen middels "klick" in de userform.
Gaat bij mij natuurlijk dagen kosten, maar ik zal en moet iets vinden

Groet,
AlbertBekijk bijlage Kopie van Kopie van BOEKHOUDING helpmij-1.xlsm
 
t.a.v. Jan BG

Hoi Jan,

probleem met kleuren of copieren heb ik maar achter me gelaten.
Userform aangepast met zoekfunctie op naam.
Gemakkelijk als ik meerdere facturen van 1 leverancier bij elkaar moet zoeken.

2 problemen.
1. als ik zoek op naam komt bovenaan altijd die "Bouwer" tevoorschijn, is nou niet direct een probleem maar een kleine onvolkomenheid.

2. Ik open de maanden jan/febr in de listbox.
dan zoeken op naam.
klick ik nu op de knop opnieuw zoeken maakt hij alles netjes leeg, maar ik ben verplicht om opnieuw op de knop jan/feb. te klicken.

onder de knop opnieuw zoeken heb ik eerst "Userform unload me" gezet en daarna weer "userform.show", dit omdat het anders vastloopt.
Waarschijnlijk niet een echt goede oplossing maar het werkt.


heb jij hier een oplossing voor

Groet,
AlbertBekijk bijlage Kopie van Kopie van BOEKHOUDING helpmij-1.xlsm
 
Probleem 1: Een Listbox heeft een Lbound van 0. Je moet dus terugtellen tot 0
Code: 
For i = .ListCount - 1 To [COLOR="#FF0000"]0[/COLOR] Step -1
Probleem 2: Dit kan je oplossen door een 2e Listbox in het formulier op te nemen.

Voor het leegmaken zou ik een Label of een Commandbutton gebruiken ipv een Optionbutton.
 

Bijlagen

  • BOEKHOUDING helpmij.xlsb
    93,6 KB · Weergaven: 68
zit momenteel op een ect oude laptop te clooien. PC defect
even op non-actief.
laat van me oren.
sommie letters doen et niet
Albert
 
Code: 
Private Sub OptionButton1_Click() 'januari/februari
  ListBox1.List = Worksheets("inkoopboek").Range("A8:K131").Value
  ListBox2.List = ListBox1.List
[COLOR=#0000ff]  ListBox1.Tag = Worksheets("inkoopboek").Range("A8:K131").Address[/COLOR]
End Sub
Enz. voor elk optionbutton.


Code: 
Private Sub TextBox2_Change()
With ListBox1
[COLOR=#0000ff]  If TextBox2 = "" Then[/COLOR]
[COLOR=#0000ff]   For j = 1 To 14[/COLOR]
[COLOR=#0000ff]    If Me("optionbutton" & j) Then[/COLOR]
[COLOR=#0000ff]      .List = Worksheets("inkoopboek").Range(.Tag).Value[/COLOR]
[COLOR=#0000ff]       Exit For[/COLOR]
[COLOR=#0000ff]     End If[/COLOR]
[COLOR=#0000ff]    Next j[/COLOR]
[COLOR=#0000ff]    Else[/COLOR]
    For i = .ListCount - 1 To 0 Step -1
     If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(TextBox2.Value)) = 0 Then .RemoveItem i
   Next i
[COLOR=#0000ff]   End If[/COLOR]
 End With
End Sub
 
zit op eieren om et te proberen.
op dit ouwe din lukt et niet.
 
Hoi Jan,
Als alles weer werkt(wacht op nieuw geinstalleerde pc)
zal ik er zeker eens naar kijken.
GRoet,
Albert
 
Hallo,
Na dagen aanklooien ben ik er weer.
De userfom_openinkoopboek werkt naar tevredenheid.
1 probleemtje nog:

Ik krijg de bedragen in de listbox niet netjes onder elkaar met 2 decimalen achter de komma.
Sommige datums worden niet goed weergegeven in de llistbox.
Is hier een oplossing voor?


Groet,
AlbertBekijk bijlage Kopie van BOEKHOUDING helpmij-1.xlsb
 
Code: 
Private Sub OptionButton1_Click() 'januari/februari
With ListBox1
    .List = Worksheets("inkoopboek").Range("A8:K64").Value
    'ListBox2.List = .List
    .Tag = Worksheets("inkoopboek").Range("A8:K64").Address
    ListBox1_Change
 End With
End Sub

Code: 
Private Sub ListBox1_Change()
With ListBox1
  For i = 0 To .ListCount - 1
   .List(i, 5) = Format(Sheets("inkoopboek").Cells(i + 8, 6), "0.00")
   Next i
End With
End Sub

Code: 
Private Sub TextBox2_Change()
With ListBox1
  If TextBox2 = "" Then
   For j = 1 To 14
    If Me("optionbutton" & j) Then
      .List = Worksheets("inkoopboek").Range(.Tag).Value
       Exit For
     End If
    Next j
    Else
    For i = .ListCount - 1 To 0 Step -1
     If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(TextBox2.Value)) = 0 Then .RemoveItem i
   Next i
   End If
 End With
 ListBox1_Change
End Sub

Wel heel frappant dat 1-1-1900 in de cel 31-12-1899 in de listbox weergeeft.
 
Goedemorgen Harry,

Ik ga meteen aan de slag met deze code.
Met die datum was me ook al opgevallen, heb van alles geprobeerd maar het blijft steeds terugkomen.
Dacht dat het een simpel probleem was en wilde niemand lastigvallen.

Groet en dank,
Albert
 
Hoi Harry,

Na alle codes te hebben aangepast staat de notatie van de bedragen goed.
Echter ik moet weer met hangende pootjes terugkomen, lukt me niet om onderstaande problemen op te lossen.

1. als ik de maanden febr/maart open komen de bedragen van jan/febr. tevoorschijn, dit ook bij andere maanden.
2. in jan/febr. is de "datum betaald" volledig te lezen, bij febr/maart valt deze gedeeltelijk weg achter de schuifbalk

Na 2 uur zoeken en proberen lukt het me niet om dit op te lossen.

Groet,
AlbertBekijk bijlage BOEKHOUDING helpmijHSV.xlsb
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan