Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

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

0 leden en 1 gast bekijken dit topic.

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Namen uit lijst filteren
« Gepost op: 09 juli 2020, 13:17:13 »
hallo iedereen,

Ik heb een lijst uit fb gehaald met daarin een hele boel overbodige informatie.
Hoe kan ik de foto's en verwijzingen verwijderen zodat enkel de namen blijven (heb deze nodig in een andere file).
de lijst kan honderden foto"s namen edg. bevatten,waardoor dit een gigantisch werk is om dat allemaal manueel te doen.

ps:zie bijlage (kan ze niet posten is te groot)

     mvg,lco

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Namen uit lijst filteren
« Reactie #1 Gepost op: 09 juli 2020, 16:07:22 »
Ik heb een lijst uit fb gehaald met daarin een hele boel overbodige informatie.
Hoe kan ik de foto's en verwijzingen verwijderen zodat enkel de namen blijven (heb deze nodig in een andere file).
de lijst kan honderden foto"s namen edg. bevatten,waardoor dit een gigantisch werk is om dat allemaal manueel te doen.

zie bijlage (kan ze niet posten is te groot)

Hallo Luc,

Maar goed ook dat je de gegevens, inclusief foto's, die gelinkt zijn aan een Facebook-account hier niet zomaar te kijk kan zetten.
privacy......

Je kan toch net zo goed die lijst verkleinen tot enkele regels, en de namen vervangen door fictieve namen, niet..?

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Namen uit lijst filteren
« Reactie #2 Gepost op: 09 juli 2020, 19:04:47 »
best eerst je bestandje saven voor je deze macro laat lopen, mogelijks is er meer weg dan enkel je fotos ... (knoppen, ....)
Sub VerwijderFotos()
   For Each sh In ActiveSheet.Shapes
      sh.Delete
   Next
End Sub

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #3 Gepost op: 09 juli 2020, 22:13:00 »
cow18,

bedankt voor de code om de foto's te verwijderen. :thumbsup: :thumbsup:



   mvg,luc

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #4 Gepost op: 09 juli 2020, 22:15:29 »
SoftAid,

Sorry voor de vraag ,had wederom niet goed nagedacht _/-\o_ _/-\o_


      mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #5 Gepost op: 15 juli 2020, 11:12:09 »
cow18,

Nog een vraag bij het opschonen van mijn lijst,ik heb een kleine macro aangemaakt om duplicaten enz. te verwijderen zover alles goed.
Nu zou ik nog een stukje code willen die al het andere verwijderd en enkel de namen laat staan.

ps:wanneer ik mijn code laat lopen gooit hij ook steeds de macroknop weg,hoe kan ik dit voorkomen.

    mvg,luc

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Namen uit lijst filteren
« Reactie #6 Gepost op: 15 juli 2020, 11:37:53 »
alle soorten shapes kan je hier vinden
https://docs.microsoft.com/en-us/office/vba/api/office.msoshapetype

zet straks een enkel aanhalingsteken voor die msgbox of haal die ganse regel weg.
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
      End Select

   Next
End Sub

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #7 Gepost op: 15 juli 2020, 21:27:59 »
cow18,

bedankt voor u antwoord op mijn vraag maar ik ben een leek in vba en snap dus niets van wat er moet gebeuren met uw code.
ps; ik heb de macro gemaakt via de simpele weg en voor de rest ken ik er niet veel van.
graag nog wat uitleg aub.

      mvg,lco

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Namen uit lijst filteren
« Reactie #8 Gepost op: 16 juli 2020, 03:13:40 »
dit, hieronder, stond er in de meegeleverde bijlage van #6, evenwel met niet zoveel commentaar als hieronder.
Dit is jouw opgenomen macro, maar opnemen heeft de neiging om ongebreideld uitgebreid en omslachtig met veel select's en activate's te zijn.
Dat kan je met een kleine inspanning veel leesbaarder en door de bijgeleverde commentaar begrijpbaarder maken.

Je moest dus enkel nog je huidige "macro1" vervangen door onderstaande en dan die "Macro1" onder 1 van je knoppen hangen.

 Sub Macro1()
   shps                                          'even die macro uitvoeren

   Range("N1").Value = 1                         'waarde 1 zetten in N1
   Range("N1").Copy                              'die waarde kopieren
   With Columns("I:I")                           'in kolom I
      .PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False   'vermenigvuldigen met de waarden aldaar
      .RemoveDuplicates Columns:=1, Header:=xlNo   'verwijder de dubbelen in die kolom (zonder header)
'splits in kolommen op basis van een tab (????? komt dit wel voor ?)
      .TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="0", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
   End With
   Application.CutCopyMode = False

   ActiveWorkbook.Save                           'bestand opslaan
End Sub

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
      End Select

   Next
End Sub

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #9 Gepost op: 16 juli 2020, 08:46:03 »
cow18,

Het is me gelukt,bedankt voor de code :thumbsup: :thumbsup:

ps:nu is het mij vooral ook te doen om de overbodige commentaar te verwijderen (geel gemarkeerd) zodat enkel de namen oveblijven,weet niet of dat kan :-\ :-\
De lijst is meer dan 1000 regels waarop moet gefilterd worden (afbeeldingen en overtollige commentaar) enkel de namen moeten behouden blijven.


      mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #10 Gepost op: 18 juli 2020, 12:58:39 »
hallo,

Is er iemand die mij aan een stukje vba code kan helpen om de geel gekleurde cellen met overbodige tekst te verwijderen uit de lijst zodat ik deze aan de bestaande code kan toevoegen.

ps:de originele lijst "kan" een paar duizend cellen bevatten.


     mvg,lco

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Namen uit lijst filteren
« Reactie #11 Gepost op: 18 juli 2020, 18:55:31 »
zolang een paar duizend geen paar tienduizend is ...
(gevaargrens = 20 à 30.000 ivm. transpose)

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #12 Gepost op: 18 juli 2020, 23:14:55 »
cow18,

ik weet niet goed hoe het werkt,als ik de macro laat lopen gebeurt er niets en in de volledige lijst kunnen nog andere teksten staan die ook moeten weggefilterd worden.

ik kan de volledige lijst niet plaatsen omdat deze volgens het forum niet mag geplaatst worden wegens gevoelige informatie.
De bedoeling is dat enkel de namen blijven staan,ik kan het niet anders verwoorden  SORRY

    mvg,lco

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Namen uit lijst filteren
« Reactie #13 Gepost op: 18 juli 2020, 23:46:11 »
kolom I liet ik staan
A1 en volgende bevat termen die je wenst uit te sluiten, dus die moet je zelf aanvullen.
Uiteindelijk wordt er een verkorte lijst naar kolom J geschreven.

A6 is nu "xxx", schrijf daar anders eens "je" in en laat de macro lopen, waardoor verdwijnt ook "jef, Jessica en Fatje" uit de lijst.
Vul in A7 "a" in en alle namen waar een "a" in voorkomt verdwijnen.

Ik kan het niet slimmer maken dan dat, je moet dus zelf kenmerkende termen vinden, voor die namen die je wenst te verwijderen.
Anders moet je een andere methode beschrijven om te doen wat je al "verwijder geel" omschrijft.

Offline lco

  • Oplosser
  • ****
  • Berichten: 758
  • Geslacht: Man
Re: Namen uit lijst filteren
« Reactie #14 Gepost op: 19 juli 2020, 08:25:47 »
cow18,

Bedankt  voor de aanbreng maar dat is niet wat ik voor ogen had. :-\

ik dacht via vba de lijst te laten overlopen en al wat geen naam is te verwijderen.
Nu zou ik telkens de hele lijst >1000 moeten overlopen en zoeken wat geen naam is,dit kan telkens iets anders zijn en is een zeer omslachtig werk van daar de vraag (weet ook niet of het mogelijk is)indien niet moet ik het manueel doen maar dan hebben we toch een poging gedaan :-\ :-\

ps:als ik je invul en A op de lijn eronder ende macro laat lopen gebeurt er niets ::)


     mvg,lco

 


www.combell.com