Scheiden gegevens

[steelinadje]

Hallo,

Ik heb in een sheet wat namen gezet.
Deze bestaan uit kolom a een opvolgend nummer.
Kolom b staat de naam.
Kolom c staat het geslacht.

Nu wil ik deze scheiden door alleen de vrouwelijke namen te plaatsen met het nummer en naam.

Iemand een idee.

 

[Jan van Asseldonk]

Dat kan heel gemakkelijk met autofilter.
Ga in de lijst staan en klik op dat, filter, autofilter.
Je krijgt kleine pijltjes bovenaan je lijst en kunt nu heel gemakkelijk alleen de vrouwen filteren (voor afspraakjes? .
)

 

[steelinadje]

Gegevens

Jan,

Ik zou graag de vrouwlijke namen apart in een kolom hebben, zodat ik ze later in een lijst kan zetten waaruit men kan kiezen.

En nee, niet voor afspraakjes want ik heb een goei.

 

[Hovawart]

Als functie?

 

[steelinadje]

Wat bedoel je met Functie.

Ik zou graag de vrouwlijke namen gescheiden zien van de mannelijke en dat deze in een kolom gezet worden.

Hoe dit gebeurt maakt niet uit, graag zonder te veel poespas.

 

[jheesterbeek]

Autofillter (zoals Jan al zei) zou je vraag kunnen oplossen.
Als je ze los in een formule wilte hebben kun je een kopietje maken met een als-functie:
ONderstaande functie kun je in D2 plakken. Als in C2 een V(rouwelijk) staat, wordt de naam in kolom D geplaatst, anders blijft kolom 2 leeg.
=als(C2="V";B2;"")

Succes
John

 

[steelinadje]

Filter

John,

Nu heb ik al enkele keren de term AUTOFILTER gelezen.

Nu kan ik deze wel toepassen op de bestaande kolommen, maar dit is niet de bedoeling.

Ik wil de vrouwlijke namen uit de kolommen halen en deze in een andere kolom plaatsen zodat ik ze later kan gebruiken in een lijst.

De functie die je me hebt gegeven werkt niet bij mij.
Hij geeft een error.

 

[Arjee]

Je kunt autofilter toch toepassen en het resultaat kopieren naar een ander tabblad? Of begrijp ik je nu verkeerd?
Let wel op dat als je een gefilterd blad kopieerd ook de onzichtbare cellen meegenomen worden. Doe het volgende:
Filter op vrouwen
Bewerken --> ga naar --> speciaal --> alleen zichtbare cellen --> ok
ctrl-c (of ctrl-x als je de vrouwen ook uit de bestaande lijst wil hebben)
Plakken op nieuw tabblad.

 

[steelinadje]

Filters

Allemaal,

Ik denk dat dit geen oplossing brengt voor mij.

Is het mogelijk om in vba de kolommen te filteren, en deze te plaatsen in een andere kolom.

 

[jheesterbeek]

Een voorbeeldje wat je moet aanpassen aan jou file:

Private Sub CommandButton1_Click()
Dim c As Range
Dim a As String
Dim Output(1000), Teller, Temp
a = InputBox("geef de zoekwaarde in", "zoek")

Teller = 0
For Each c In [A1:Z500]
If InStr(1, UCase(c.Value), UCase(a), vbTextCompare) <> 0 Then
Output(Teller) = c.Value
Teller = Teller + 1
End If
Next

Temp = 0
Do Until Temp > Teller
Sheets(1).Cells(Temp + 1, 1).Value = Output(Temp)
Temp = Temp + 1
Loop
End Sub

 

[LucB]

Steelinadje,

Hierbij een VBA-vooebeeld.

 

[steelinadje]

Klasse

Klasse Heren,

Dit is wat ik zocht.

Kan ik de formule ook in een WORKSHEET_CHANGE zetten of welke daarvoor geschikt is.
Hiermee bedoel ik dat als ik een nieuwe naam invoer, deze dan automatisch de lijst update.

LUC,
Bedankt voor je voorbeeldje, zoals gewoonlijk was deze weer perfect.

 

[LucB]

In mijn programma ben je geen enkele formule nodig.

Alles wordt door een macro geregeld.

Om het te filteren bereik uit te breiden, gaat nu t/m rij 100, moet je in de macro C100 verhogen tot C....

Zie module1 de groene text.

 

[steelinadje]

Opgelost

De beste oplossing voor mij is de macro van LUCB.

Ik weet niet wat er voor jullie bijzit, maar ik hoop dat we weer iets geleerd hebben.

Ik dank bij deze de forumleden voor hun inbreng.
De vraag is bij deze opgelost voor mij.

Mijn Hartelijke Dank.