• 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.

laatste regel van een bereik tonen in userform

Status
Niet open voor verdere reacties.
S

Spiesse

Gebruiker
Lid geworden
14 jul 2011
Berichten
902
even een kleine vraag:

hoe toon ik in een textbox of listbox de laatst beschreven regel, of toch bepaalde cellen hieruit (nl bv a8,b8,c8,e8,g8,h8)

dit ter controle en meer zicht op mijn project...

bedankt op voorhand!

spiesse
 
Code: 
Private Sub UserForm_Initialize()
  Dim i As Integer
   ListBox1.AddItem
     With Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp)
    For i = 0 To 2
      ListBox1.List(0, i) = .Offset(, i)
    Next i
      ListBox1.List(0, 3) = .Offset(, 4)
    For i = 4 To 5
      ListBox1.List(0, i) = .Offset(, i + 2)
    Next i
  End With
End Sub
 
hey hsv,

bedankt voor de reply. bij mijn userform zou ik de gegevens in listbox7 moeten zien, dus ik vermoed dit gewoon aan te passen in mijn userform?
 
is gelukt, enkel krijg ik maar de laatst beschreven cel in kolom a te zien, zonder de andere... het is de bedoeling dat ik de gewenste cellen uit verschillende kolommen zie... doe ik iets fout?
 
Even mijn kinderen imiteren.

"Try before you die".
 
Spiesse zei:
is gelukt, enkel krijg ik maar de laatst beschreven cel in kolom a te zien, zonder de andere... het is de bedoeling dat ik de gewenste cellen uit verschillende kolommen zie... doe ik iets fout?
Klik om te vergroten...

Heb je Columncount ingesteld op 6 (staat nog op 1 vermoed ik).
 
Ik kan altijd een kijkje nemen. ;)

Niet vergeten de vraag als opgelost te zetten.
Bvd en succes.
 
Ik ga eerst even een biertje happen als je het goed vindt. :cool:
 
geen probleem :) je mag :)
ben wel nog aan het uitzoeken als ik op een bepaalde knop druk (commandbutton), dat de laatste regel automatisch in die textbox te zien is...
nu gebeurt het enkel als ik de userform sluit en weer open...
santé trouwens :)
 
gevonden... blijkbaar die code van jou in commandbutton overnemen en testen :)
 
dan ga ik even verder op hetgeen jij me gegeven hebt :)

kan ik ipv de laatste rij, alle rijen zien in de listbox?
het zou mijn bedoeling zijn om alles in de userform te zien wat in het werkblad van excel staat :)
waarschijnlijk moet jouw code een stuk aangepast worden, maar wat...

ik ben idd al een heel stuk geholpen op dit forum. ik ken niks van vba, maar door jullie hulp, en veel
trial and error ben ik al een eindje verder...

is super als men kan helpen en geholpen worden!
 
Ik ben er weer van het biertjes happen. :d


Hier de nieuwe aangepaste code.
Code: 
With Sheets("Blad1")
  aantal_rijen = Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Rows.Count
    For y = 0 To aantal_rijen
      ListBox7.AddItem
    For i = 0 To 2
      ListBox7.List(y, i) = .Cells(y + 2, 1).Offset(, i)
    Next i
      ListBox7.List(y, 3) = .Cells(y + 2, 1).Offset(, 4)
    For i = 4 To 5
      ListBox7.List(y, i) = .Cells(y + 2, 1).Offset(, i + 2)
    Next i
  Next y
End With
 
zelfs dit lukt zonder foutmelding! en met bier :) who's good? :)

ik denk na over de volgende eventuele stap :)
 
stel: iemand maakt een fout in een reservering, of wil een aanpassing doen. maar ik wil niet dat ze in het werkblad van excel gaan foefelen. bestaat de mogelijkheid om via het userform de laatste regel, of een specifieke regel, op te roepen en aan te passen? dus als ik in listbox 7 (overzicht van de projecten) op een op een project klik, dat in de juiste listboxen komt wat er ingevoerd is, dat dit gewijzigd kan worden en op dezelfde lijn wordt aangepast?

damn, en dat zo vroeg op de morgen :)

terug bedankt voor de vorige post!
 
door welke toevoeging in de code van een listbox kan ik scrollen in de listbox?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan