"Dé grootste en gratis computerhelpdesk van Nederland"
Vertoon in Listbox onder voorwaarden
- Onderwerp starter Schipper1994
- Startdatum
- Status
Schipper1994
Gebruiker
- Lid geworden
- 10 mrt 2021
- Berichten
- 158
snb, er gaat iets fout in jou Excelsheet. je moet al die JA's eens weg doen en dan 1 voor 1 er terug opzetten via de vba.
dan blijft er een naam leeg staan. en als je dan je vba opnieuw start en die naam goedkeurd dan heb je een foutmelding.
kan er niet gewoon iets aan mijn code aangepast worden? die werkt hoe ik het wil, enkel niet het sorteren.
ik heb nu dit
dan blijft er een naam leeg staan. en als je dan je vba opnieuw start en die naam goedkeurd dan heb je een foutmelding.
kan er niet gewoon iets aan mijn code aangepast worden? die werkt hoe ik het wil, enkel niet het sorteren.
ik heb nu dit
Code:
Dim r As Range
Private Sub CommandButton1_Click()
With ListBox1
If .ListIndex > -1 Then
.List(.ListIndex, 35) = "JA"
r.Value = .List
End If
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
With Sheets("database").ListObjects(1).DataBodyRange
.Sort .Cells(1, 36), , , , , , , 1
.AutoFilter 36, ""
On Error Resume Next
Set r = .SpecialCells(12)
ListBox1.List = r.Value
.AutoFilter
End With
End Sub
JEC.
Terugkerende gebruiker
- Lid geworden
- 27 feb 2019
- Berichten
- 4.336
- Office versie
- 365
Dan de sortering even terugzetten op het eind
Code:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
With Sheets("database").ListObjects(1).DataBodyRange
.Sort .Cells(1, 36), , , , , , , 1
.AutoFilter 36, ""
On Error Resume Next
Set r = .SpecialCells(12)
ListBox1.List = r.Value
.AutoFilter
.Sort .Cells(1, 1), , , , , , , 1
End With
End Sub
snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.725
Er gaat helemaal niets fout in mijn suggestie.
Je moet alleen de code aanpassen voor het geval er geen lege records zijn.
Maar waarom zou je het Userform starten als er geen lege records zijn ??
Een beetje zelfwerkzaamheid is nooit weg.
Je hebt nu zelfs niet eens de moeite genomen de code te analyseren en te begrijpen.
Uit je voorbeeld wordt ook meteen duidelijk, dat je in dit soort gevallen voor ieder record een unieke ID nodig hebt.
Voor wie wél geïnteresseerd is in VBA:
Je moet alleen de code aanpassen voor het geval er geen lege records zijn.
Maar waarom zou je het Userform starten als er geen lege records zijn ??
Een beetje zelfwerkzaamheid is nooit weg.
Je hebt nu zelfs niet eens de moeite genomen de code te analyseren en te begrijpen.
Uit je voorbeeld wordt ook meteen duidelijk, dat je in dit soort gevallen voor ieder record een unieke ID nodig hebt.
Voor wie wél geïnteresseerd is in VBA:
Laatst bewerkt:
Schipper1994
Gebruiker
- Lid geworden
- 10 mrt 2021
- Berichten
- 158
aan zo een idiote reactie heb ik niets.
op een Forum zitten soms ook mensen die er totaal geen verstand van hebben. Dan ben ik blij dat ik die vorige code al wat hebben kunnen gebruiken en naar mijn bestandje heb kunnen verplaatsen.
Dan kom jij met volledig iets anders af.
en je het loopt wel fout in jou bestand want die achternaam komt dan onder die voornaam terecht.. dus ja dan loopt het wel fout.
in ieder geval is het inorde. door de code die ik eerder kreeg en daar dat opnieuw sorteren daarachter.
Einde van dit topic.
op een Forum zitten soms ook mensen die er totaal geen verstand van hebben. Dan ben ik blij dat ik die vorige code al wat hebben kunnen gebruiken en naar mijn bestandje heb kunnen verplaatsen.
Dan kom jij met volledig iets anders af.
en je het loopt wel fout in jou bestand want die achternaam komt dan onder die voornaam terecht.. dus ja dan loopt het wel fout.
in ieder geval is het inorde. door de code die ik eerder kreeg en daar dat opnieuw sorteren daarachter.
Einde van dit topic.
Schipper1994
Gebruiker
- Lid geworden
- 10 mrt 2021
- Berichten
- 158
JEC,
Na echt gebruik van je code en deze goed bekeken te hebben vind ik hier toch een fout in.
hij verwijderd en kopieert records. Je moet maar eens enkele namen goedkeuren en dan nakijken in de tabel. (kijk nieuw voorbeeld)
weet je de oplossing hiervoor?
Na echt gebruik van je code en deze goed bekeken te hebben vind ik hier toch een fout in.
hij verwijderd en kopieert records. Je moet maar eens enkele namen goedkeuren en dan nakijken in de tabel. (kijk nieuw voorbeeld)
weet je de oplossing hiervoor?
- Status
