Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: Listbox vinkje zetten, en een waarde op die regels wegschrijven

  1. #1
    Mega Senior HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Vraag is opgelost

    Listbox vinkje zetten, en een waarde op die regels wegschrijven

    Best,

    Ik heb een userform waar ik een listbox in heb staan, die ik dan selecteer en de gegevens zichtbaar krijg.
    Nu zou ik willen dat ik meerdere regels kan selecteren, en dan op de geselecteerde regels een waarde wegschrijven.
    Het voorbeeld schets een klein beetje mijn orginele bestand die ik gebruik om transport in bij te houden.

    Als ik een factuur binnen krijg dan staan er meerdere ritten op die het zelfde factuurnummer hebben.
    Ik zou dan in een textbox of een InputBox kunnen gebruiken om daar een factuurnummer in te zetten, die hij dan wegschrijf op naar alle geselecteerde regels naar sheet adressen kolom F

    Zie bijlage voor het voorbeeld bestand

    Ik hoop dat ik mijn vraag duidelijk genoeg heb verwoord, en zie graag jullie reactive tegemoet.

    Henk
    Bijgevoegde bestanden Bijgevoegde bestanden
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010, via een terminalserver met "Windows server 2012R2" )

  2. #2
    Senior Member
    Geregistreerd
    14 februari 2012
    Zonder dat ik het bestand gezien heb, waag ik toch een gokje...
    Zet de eigenschap MultiSelect van je ListBox op fmMultiSelectMulti.

  3. #3
    Mega Senior HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Bedankt voor je reactie, ik heb dit al geprobeerd en geeft niet het gewenste resultaat
    Dan vult hij de textboxen niet meer, en kan ik nog niet gegevens wegschrijven op de geselecteerde lijnen.

    Henk
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010, via een terminalserver met "Windows server 2012R2" )

  4. #4
    Het is mij niet duidelijk wat er nou precies moet gebeuren als je meer dan 1 regel in de listbox selecteert.

    Overigens: Mooi, die hulptekst als je met je muis over de knoppen gaat. Maar waarom zo moeilijk als je ook de ControlTipText van iedere knop (en de andere controls) zou kunnen invullen?
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  5. #5
    Giga Senior dotchiejack's avatar
    Geregistreerd
    28 december 2010
    Locatie
    Antwerpen
    Afstand tot server
    ±185 km
    hi,
    Zet uw listbox op multiselect en test volgende code.
    Code:
    Private Sub CommandButton1_Click()
    Dim lngItem As Long
    For lngItem = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(lngItem) Then
            With Sheets("Blad1")
                .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 0)
                .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 1)
                .Cells(.Rows.Count, 3).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 2)
                .Cells(.Rows.Count, 4).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 3)
                .Cells(.Rows.Count, 5).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 4)
                .Cells(.Rows.Count, 6).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 5)
            End With
            End If
    Next lngItem
    End Sub
    MVG,
    Philiep
    Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
    Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

  6. #6
    Mega Senior HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Bedankt voor je reactie.

    Het selecteren gaat goed ik kan meerdere regels selecteren, en wegschrijven doet hij nu naar het blad adressen maar sluit dan aan vanaf onder.
    Eigenlijk zou hij moeten zoeken naar de leveranciernummer, en dan de gegevens in kolom F erachter schrijven aan de leveranciersnummers uit de listbox.
    En dat ik een factuurnummer kan meegeven doormiddel van een inputbox, die geplaats wordt in kolom F.

    Ik hoop dat dit mogelijk is!

    In de bijlage de bijgewerkt versie met de code van "dotchiejack" erin verwerkt

    Groet Henk
    Bijgevoegde bestanden Bijgevoegde bestanden
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010, via een terminalserver met "Windows server 2012R2" )

  7. #7
    Mega Senior HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Beste,

    Ben een stap verder gekomen, en heb mijn doel bereid maar wel via een omweg.

    Code:
    Private Sub CommandButton7_Click()
    
    If Trim(Me.Factuurnummer.Value) = "" Then
     MsgBox "Je moet een factuurnummer invullen!", vbInformation, ""
     Me.Factuurnummer.SetFocus
     Exit Sub
     End If
     
    Dim lngItem As Long
    For lngItem = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(lngItem) Then
            With Sheets("Opslag")
                .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = ListBox1.List(lngItem, 0)
                .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = Factuurnummer.Value
            End With
            End If
    Next lngItem
    
    On Error Resume Next
       For j = 2 To Sheets("Adressen").Cells(Rows.Count, 1).End(xlUp).Row 
        With Sheets("Opslag").Columns(1).Find(ActiveSheet.Cells(j, 1).Value) 
          ActiveSheet.Cells(j, 6) = .Offset(, 1)
        End With
      Next
      
     With Sheets("Opslag")
        .[A2:F10000].ClearContents 'velden in een bereik wissen
     End With
    
    Factuurnummer.Value = ""
    TextBox1.Value = ""
    TextBox2.Value = ""
    
    MsgBox "Gegegevens zijn weggeschreven", , "Helpmij"
    End Sub
    Ik heb de code van dotchiejack iets aangepast, dat deze de gegevens wegschrijf naar een hulp sheet "Opslag".
    Daarvandaan doe ik dan verticaalzoeken die de gegevens weer tergug zet naar adressen, en de factuurnummers achter de juiste naam zetten.

    Dus wat dat doel bereikt, enkel niet met een korte code.

    Zodra ik nu ga zoeken in de listbox, past deze zich aan naar een kleiner formaat, ik zie maar niet wat ik hier verkeerd doet.

    Vragen
    - Kan de code simpeler
    - Hoe krijg ik het formaat van de listbox vast zodat deze niet kleiner wordt
    (al gevonden, ik heb het aantal columncount aangepast, en nu gaat het goed )

    In mijn voorbeeld bestand, kan je zien wat ik heb gedaan en wat er fout gaat.

    Groet Henk
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door HWV : 16 maart 2019 om 15:57 Reden: 2e vraag al opgelost
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010, via een terminalserver met "Windows server 2012R2" )

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Het werkt altijd prettiger als de vraag en het bijgevoegde document zich beperkt tot de kern.

    Code:
    Private Sub CommandButton7_Click()
      For j = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(j) Then Sheets("Adressen").Cells(Application.Match(ListBox1.List(j, 0), Sheets("Adressen").Columns(1), 0), 6) = Factuurnummer
      Next j
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Mega Senior HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km

    Opgelost

    Alweer bedankt VenA voor je inbreng, en inzet.
    Dit is een mooie oplossing, kort en bondig

    Henk
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010, via een terminalserver met "Windows server 2012R2" )

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zo hoort een vraag en voorbeeld ook te zijn.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren