Auteur Topic: Namen uit lijst filteren (gelezen 7873 keer)

Montagnard · « **Reactie #15 Gepost op:** 19 juli 2020, 09:11:55 »

Citaat van: lco op 19 juli 2020, 08:25:47

ik dacht via vba de lijst te laten overlopen en al wat geen naam is te verwijderen.

denk dat dit eigenlijk onmogelijk is , geen enkel programma of code kan uitmaken of een reeks letters een naam is of niet : v.b. : "Arnold" en "vrienden" wat is een naam ?
je zal dus moeten tewerk gaan zoals Koe aangeeft en laten zoeken naar bepaalde waarden ( kan een stuk tekst zijn v.b. "iedereen" ) en op VOORHAND deze waarden bepalen in een kolom.

als U eens zo'n lijst bezorgt (Uw bestand als bijlage) EN de waarden die je er uit wilt filteren ( b.v. "vrienden" , "iedereen" , "groep" enz ) dan kan ik eens kijken of ik het met mijn oude manier van "programmeren" ook kan oplossen ?

Mvg,
Arnold.

cow18 · « **Reactie #16 Gepost op:** 19 juli 2020, 09:34:44 »

@montagnard, dat is ook mijn mening.
Komt straks er nog bij dat meneer Devriendt geschrapt zal worden en zal nu net niet mogen.
Als je toch aan het programmeren slaat, maak er dan, naar analogie van die andere lopende vraag misschien 2 lijstjes van
- de goeie, opgeschoonde
en
- de geschrapte

Macro werkt niet

ik heb me niet bezig gehouden met de macro onder de knop te stoppen, je moet het in die richting zoeken.
Je eeuwig leitmotiv is dat je niets van VBA afkent en dat je, als doorgeefluik, de wensen van het bestuur overmaakt.
Een beetje meer inspanning mag ook, een suggestie hoe jijzelf handmatig door die lijst zou gaan en namen wel of niet schrappen,

Montagnard · « **Reactie #17 Gepost op:** 19 juli 2020, 11:14:38 »

Citaat van: cow18 op 19 juli 2020, 09:34:44

Je eeuwig leidmotief is dat je niets van VBA af kent en dat je, als doorgeefluik, de wensen van het bestuur overmaakt.
Een beetje meer inspanning mag ook, een suggestie hoe jijzelf handmatig door die lijst zou gaan en namen wel of niet schrappen,

no comment

Mvg,
Arnold.

lco · « **Reactie #18 Gepost op:** 19 juli 2020, 22:06:19 »

Koe,Montagnard,

Eerst en vooral bedankt om te willen helpen $_/-\o_$ $_/-\o_$

Het is niet dat ik niet wil,ik schoon de lijst nu manueel op en dat is een tijdrovende klus vandaar mijn vraag.

dus lijn per lijn nakijken en alles wat geen naam is haal ik er van tussen

IK heb een klein stukje van de aangepaste lijst geplaatst en al ontdaan van de foto's en hyperlinks.

de lijst zelf kan ik niet plaatsen wegens te groot en gevoelige informatie ivm namen en foto's.

ps:we zullen het hier bij laten,(ik heb de hint begrepen) ik doe wel verder op de oude manier alvast bedankt aan alle helpers

mvg,lco

cow18 · « **Reactie #19 Gepost op:** 19 juli 2020, 23:45:18 »

tja, als het beoordelen of een term een naam is of niet, niet in een eenvoudige regel vast te leggen is, dan kan je er ook geen macro voor schrijven.

Toch denk ik dat bovenstaande methode toch al een heel aantal zaken zal opschonen.
Ik zou bv ook nog de getallen 0 tot 9 toevoegen, een naam bevat normaal geen cijfer.
Daarna kan je manueel de lijst aflopen en cellen die geen naam bevatten, daar tik je gewoon het cijfer 0 in.
Helemaal op het laatste laat je de macro nog een keer lopen, klaar.

Montagnard · « **Reactie #20 Gepost op:** 20 juli 2020, 08:36:40 »

Citaat van: lco op 19 juli 2020, 22:06:19

ps:we zullen het hier bij laten,(ik heb de hint begrepen) ik doe wel verder op de oude manier alvast bedankt aan alle helpers

ik heb niet geschreven dat ik niet meer wil helpen hé , als het hetzelfde project betreft als "dubbels sorteren" dan wil ik verder helpen tot het project af is , met mijn mogelijkheden.
dus zet een deel van je bestand mèt alle gegevens die je er uit wilt filteren online ( post dus een "bijlage" ) en dan kijk ik wat ik ermee kan doen.
eventueel geef ik een aanzet met veel "rem" erbij en kan je daar dan verder op borduren , goed zo ?

Mvg,
Arnold.

lco · « **Reactie #21 Gepost op:** 20 juli 2020, 19:28:15 »

Arnold,

Alle hulp is welkom hoor maar ik kan geen bijlage plaatsen wegens gevoelige info en kan deze er niet uit halen.

kun jij mij zeggen waarom de macro meer dan een minuut nodig heeft om de foto's te wissen.
De rest heb ik in orde gekregen mooi is het niet maar het werkt.

Code: [Selecteer]

Sub shps()
   For Each shp In ActiveSheet.Shapes
      'MsgBox shp.TopLeftCell.Address & vbTab & shp.Type   'zeg per shape de cel linksboven en het type
      Select Case shp.Type                       'onderscheid maken in het type
         Case 8, 12                              '2 soorten knoppen
         Case Else                               'al de rest
            shp.Delete                           'verwijderen
     
 Columns("I:I").ColumnWidth = 32
    Cells.Select
    Selection.RowHeight = 15
    End Select
   Next
End Sub


   mvg,lco

cow18 · « **Reactie #22 Gepost op:** 20 juli 2020, 19:53:28 »

hup Arnold,
zo'n gemakkelijke binnenkopper ...

SoftAid · « **Reactie #23 Gepost op:** 20 juli 2020, 20:10:27 »

Als ik hem mocht binnenkoppen zou ik denken aan:
verander in:

Code: [Selecteer]

Sub shps()
   For Each shp In ActiveSheet.Shapes
      Select Case shp.Type                       'onderscheid maken in het type
      Case 8, 12                              '2 soorten knoppen
      Case Else                               'al de rest
      shp.Delete                           'verwijderen
     
      Columns("I:I").ColumnWidth = 32
      Rows("1:2000").RowHeight = 15
   
   Next
End Sub

Maar mogelijk is het dat niet $:-\$ Ik heb het geprobeerd, hé.....

SoftAid

lco · « **Reactie #24 Gepost op:** 20 juli 2020, 20:14:00 »

cow18,

ik weet niet wat je nu weer bedoeld;een vraag voor jou heb jij een probleem met mij dan zou ik het graag weten

maar deze macro is niet door mij gemaakt maar ik heb de indruk dat hij redelijk lang loopt.

ps:Nu heb ik opgemerkt dat wanneer ik hem laat lopen hij na 10sec. de melding geeft "reageert niet" en na iets meer dan een minuut is het verwerkt.

mvg;lco

lco · « **Reactie #25 Gepost op:** 20 juli 2020, 20:16:07 »

SoftAid,

ik ga proberen van de macro aan te passen,laat nog iets weten
Bedankt voor de tip

update:heb het ook geprobeerd hier en het blijft hetzelfde $:-\$

mvg,lco

SoftAid · « **Reactie #26 Gepost op:** 20 juli 2020, 20:23:25 »

Citaat van: lco op 20 juli 2020, 20:16:07

SoftAid,

ik ga proberen van de macro aan te passen,laat nog iets weten
Bedankt voor de tip

mvg,lco

Bekijk dan even de aangepaste versie, want intussen heb ik de code nog wat veranderd.

En ByTheWay (21%), cow18 geeft andere helpers enkel een kans om een (vrij) eenvoudig (voor hem) probleem op te lossen, wat ik prima vind. Zo leren wij er iets van

Bedankt cow18.

SoftAid

lco · « **Reactie #27 Gepost op:** 20 juli 2020, 20:28:50 »

SoftAid,

ik heb de code aangepast en laten lopen maar het blijft hetzelfde.

cow18,

Sorry voor mijn reactie,heb andere problemen hier en ik heb het op de verkeerde uitgewerkt. nogmaals sorry daarvoor,dit was niet de bedoeling

mvg,lco

SoftAid · « **Reactie #28 Gepost op:** 20 juli 2020, 20:56:21 »

Luc, ik heb de code even getest.

mogelijk werkt het vlugger met deze:

Code: [Selecteer]

Sub shps()

For Each shp In ActiveSheet.Shapes
 Select Case shp.Type
 Case 8, 12
 Case Else
 shp.Delete
 Next
 Columns("I:I").ColumnWidth = 32
 Cells.RowHeight = 14                         ' In plaats van Row.RowHeight=14

End Sub

SoftAid

lco · « **Reactie #29 Gepost op:** 20 juli 2020, 21:09:05 »

SoftAid?

ook geen verbetering met deze aanpassing,1minuut en 7sec $:-\$

ps:na +/- 8sec krijg ik steeds de melding bovenaan het scherm "reageert niet".

mvg,lco

Help!

Menu

Hulp bij posten

Zoeken

Recente topics