Vertoon in Listbox onder voorwaarden verwijderd records

[Schipper1994]

Hallo,
ik heb code zoals in voorbeeld bestand hier eerder van iemand gekregen.

Het leek me allemaal te werken maar nadien merkte ik dat er records verwijderd werden.

Dus de bedoeling is dus dat ik in kolom 3 het woord JA kan zetten (in het voorbeeldbestand)
als ik dat doe met mijn huidige code dan worden de records overschreven.

dat is dus niet de bedoeling.

hoe los ik dit op?

in het origineel bestand gaat het om 36 kolommen en momenteel meer dan 150 records.

ik ben een leek in VBA (die wel graag bijleert) dus niet te ingewikkeld graag :')

 

[mvdvlist]

Probeer dit eens .
Zelf even namen maken.

Heb voor het gemak ook een herstelknop toegevoegd.
Als je wilt sorteren kan dat ook. Even een macro opnemen en in Userform_Initialize plakken..

 

[Schipper1994]

De knoppen, die werken nu goed in dit bestand en met die tabel.
Mijn tabel is 36 kolommen lang. ik kan die er niet allemaal inzetten om het overzicht erin te hebben.
kan je me toevallig daarmee helpen?

dus eigenlijk wil ik enkel maar de 1ste rij en in mijn bestand ook nog de 25ste rij erin. en zou "JA" in 36 komen.

maar goed even over het voorbeeld,

ik wil dus in de LISTBOX enkel de namen zien en niet het woordje "JA"

 

[mvdvlist]

Ik heb in de Listbox de Columns.Count en Column.Width aangepast. Kijk in vba maar in de eigenschappen van de Listbox.

Ik dacht dat je het wel handig zou vinden om ook "JA" te zien. Kun je het indien nodig ook direct aanpassen...
Maar alla.. Als je het achteraf toch wilt, kun je in de Column.Width nog een breedte erbij zetten van bv 100

 

[Schipper1994]

sorry heb een detail vergeten te zeggen.
ik wil enkel in die listbox maar gegevens zien waar NIETS in die kolom staat.

 

[Schipper1994]

ik heb nog wat geprobeerd met mijn vorige code. in combinatie met jou code.

de fout zit hem niet perse in de drukknoppen, eerder in het laden enz van de tabel. en het uiteindelijk overbrengen.

het loopt dus hier in fout.

Private Sub UserForm_Initialize()
 Application.ScreenUpdating = True                            '(false heb ik ook geprobeerd)
 With Sheets("blad1").ListObjects(1).DataBodyRange
   .Sort .Cells(1, 3), , , , , , , 1
   .AutoFilter 3, ""
    On Error Resume Next
    Set r = .SpecialCells(12)
    ListBox1.List = r.Value
   .AutoFilter
   .Sort .Cells(1, 1), , , , , , , 1



End With

End Sub

 

[mvdvlist]

Dat is duidelijker. Dan wordt het een ander verhaal. Maar mijn methode is wel het simpelst denk ik. Als je wel Ja ziet kun je gewoon doorscrollen... En zoals gezegd aanpassen...

 

[Schipper1994]

oké.. dan zal ik die proberen in mijn programmatje te verwerken.

 

[mvdvlist]

Je kunt het zelfs zo maken dat je alles in het formulier doet. Veiliger ivm evt formules en makkelijker herstellen van bv typefouten en ook makkelijk aanpassen van gegevens, of verwijderen van een record.
Met de Listbox kun je eenvoudig eventuele TextBoxen vullen...

 

[Schipper1994]

kan je me nog met 1 ding helpen?

ik moet de uitkomst "ja" in kolom 36 krijgen (AJ) is dat in excel.
dit lukt me langs geen kanten met jou code. heb al vanalles geprobeerd.

 

[Schipper1994]

Dat begrijp ik, maar er mag absoluut NIETS anders aangepast worden. ik moet enkel daar iets kunnen aanduiden in mijn orgineel bestand. voor de rest mag er absoluut niets aangepast worden.

 

[Schipper1994]

denk dat ik het zelf gevonden heb

Private Sub CommandButton1_Click()

 
 With Sheets("blad1").ListObjects(1)
  If ListBox1.ListIndex > -1 Then
   .DataBodyRange.Cells(ListBox1.ListIndex + 1, 36) = "JA"  'in voorbeeld moet 36 vervangen worden door 3
  End If
 End With
   Call UserForm_Initialize
End Sub

 

[mvdvlist]

Dat is simpel en doeltreffend... Succes...

 

[Schipper1994]

Bedankt voor de hulp