Help!

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

Hulp bij posten

Recente topics

Auteur Topic: downloaden namen van fb naar excel  (gelezen 3141 keer)

0 leden en 1 gast bekijken dit topic.

Offline lco

  • Oplosser
  • ****
  • Berichten: 580
  • Geslacht: Man
downloaden namen van fb naar excel
« Gepost op: 06 juli 2020, 20:21:48 »
Hallo helpers,

Ik zou graag via vba of op een andere manier een lijst met namen van facebook overzetten naar excel maar weet niet hoe.
de lijst bestaat uit honderden namen die in excel moeten komen om van daaruit een selectie te kunnen maken om een aantal leden een overwinningspakket toe te kennen .

ps:na elke winst worden er andere winnaars getrokken,maar om dit klaar te krijgen moeten deze in excel gezet worden met de mogelijkheid om de lijst te kunnen updaten ten allen tijden tot afsluiting van de poll.
indien mogelijk ook een macro knop om x aantal leden (winnaars) willekeurig uit te zoeken.
Daarbij "als het kan" ook een lijst met al gewonnen namen die dan niet meer kunnen geselecteerd worden.
Ik weet ik vraag misschien het onmogelijke maar wie weet

de lijst is te vinden op fb onder "gratis voeding en spulletjes" bij de naam Natasja Cools
In bijlage een voorbeeld mag aangepast worden.


   mvg,luc
« Laatst bewerkt op: 06 juli 2020, 20:45:45 door lco »

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.977
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: downloaden namen van fb naar excel
« Reactie #1 Gepost op: 08 juli 2020, 09:32:30 »
Ico, je vraag over het overzetten van namen van Facebook naar Excel kan ik je niet helpen. Ik heb ff op de door jou genoemde groep gekeken, maar dat is een besloten groep en ik heb géén zin om me daarbij aan te sluiten.

Ik heb wel een poging gedaan om je trekkingslijst voor je aan te maken. Deze houdt rekening met voorgaande trekkingen en dus oude winnaars. Ik gok dat dat je bedoeling was. Ik zag nog wel dat er bij een trekking een dubbele naam kan worden getrokken. Misschien moet je die dan gewoon ff handmatig vervangen voor een willekeurig gekozen naam uit de lijst? Ik heb voor nu in elk geval geen tijd meer om een trekking uit te laten voeren waarbij de getrokken nieuwe winnaars worden uitgesloten tijdens de trekking.
Speel d'r maar 'ns mee om te zien of je er iets mee kan. Wellicht is het - als de opzet goed is - een basis voor een andere helper om het laatste hierboven genoemde puntje nog op te lossen voor je.
______________________________

Groet, Leo

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #2 Gepost op: 08 juli 2020, 13:50:34 »
oei, zo moeilijk geschreven Redhead, doe je zo met een gesorteerde lijst.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.977
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: downloaden namen van fb naar excel
« Reactie #3 Gepost op: 08 juli 2020, 14:04:07 »
Bart, show me! Ik leer héél graag van je.
Overigens is dit vanuit mijn kant ook wel spelerij met Dictionaries. Dat wil ik nu ook wel 'ns onder de knie gaan krijgen na al die jaren.  ;D
______________________________

Groet, Leo

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #4 Gepost op: 08 juli 2020, 19:36:22 »
zie site snb of https://excelmacromastery.com/vba-arraylist/
je kijkt hoe vaak iemand al gewonnen heeft + een random getal en dan sorteren, klaar

dictionaries, zie ook snb of https://excelmacromastery.com/vba-dictionary/

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.977
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: downloaden namen van fb naar excel
« Reactie #5 Gepost op: 08 juli 2020, 21:21:04 »
Bart, tnx. Ook voor je linkjes. Die ExcelMacroMastery (Paul Kelly) volg ik ook al een heel poosje. Héle gave voorbeelden en helder uitgelegd. Die ArrayList kende ik nog niet. Over zulke dingen moet ik dan weer hard nadenken. Want het is een 1-dimensionele array toch als ik 't goed begrijp? Gaaf om er ook bij te leren.

Jouw oplossing voor de trekking is ook gaaf (ff voor Ico... let op dat Cow18 geen knop oid in de sheet heeft, maar dat je zijn procedure ff vanuit de editor moet starten). Je insteek met het volledig opbouwen van de lijst met random nummer en die sorteren op grootte, is heel slim. Ook het invoegen van het "aantal gewonnen" is handiger dan dat ik dat deed. Ik wilde in alle tabellen die voor mij raadselachtige kolom "aantal" in stand houden omdat ik niet wist wat dat is. Maar goed, jouw vroegere winnaars kan dus rustig uitbreiden en nieuwe namen toevoegen en tóch niet eindig zijn. Dat is iets wat die van mij uiteraard wél is. Op een gegeven moment heeft iedereen een keer gewonnen en is het spel klaar.

Qua code is jouw procedure overigens niet eenvoudiger dan die van mij (vind ik  ;)). Het is echt wel hogere programmeerkunst.  \o/

Dus Ico... ik heb leuk kunnen spelen met je vraag, maar ik zou als ik jou was toch maar voor die van Cow18 gaan.  :D

______________________________

Groet, Leo

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #6 Gepost op: 09 juli 2020, 05:38:11 »
niet eenvoudiger op het eerste zicht, wel handiger eens je de truc kent.
Het is inderdaad een 1-dimensionele array, dus moet je je sorteersleutel vooraan de string houden en dan je gegevens die je wenst te onthouden.

Hieronder een code voor een loterij met 100 elementen waaruit je er 15 mag kiezen, die had je kunnen toepassen op je dictionary om het toch eenvoudig te houden. Ook een beetje hogere wiskunde dan met application index en die gelote rijen, heel leuk ... Sub lotto()
a = [Transpose(row(1:100))] 'stel je mag kiezen uit 100 elementen, genummerd van 1 tot 100
ptr = UBound(a)

For i = 1 To 15 'stel je mag er 15 uit kiezen zonder herhaling
r = Int(Rnd() * ptr + 1) 'willekeurige keuze
s = s & vbLf & r 'verzamelstring keuzes
a(r) = a(ptr) 'inhoud element van pointer naar voor halen
ptr = ptr - 1 'aantal keuzes verminderen
Next

MsgBox Mid(s, 2)


End Sub

voor de grap nog een voorbeeldje toegevoegd
« Laatst bewerkt op: 09 juli 2020, 05:59:20 door cow18 »

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #7 Gepost op: 09 juli 2020, 09:03:55 »
een kortere versie.
Ik wist anders ook niet waarvoor die 2e kolom aantal diende.

Leuk weetje, een dictionary is hoofdlettergevoelig tenzij je dat uitsluit.
Gezien vroegere ervaringen ga je daardoor vaak de boot in.
« Laatst bewerkt op: 09 juli 2020, 09:13:59 door cow18 »

Offline lco

  • Oplosser
  • ****
  • Berichten: 580
  • Geslacht: Man
Re: downloaden namen van fb naar excel
« Reactie #8 Gepost op: 09 juli 2020, 09:40:53 »
RedHead,Cow18,

Bedankt voor jullie werk maar voor ik de oplossingen kan testen moet ik wel de lijst kunnen kopiëren naar excel en dat is nu juist iets wat ik niet klaar krijg?

ps;als ik de macro knop gebruik krijg ik een foutmelding

dit is de regel die oplicht (geel word) in de macro van cow18 in post4
VroegereWinnaarsDict.Add VroegereWinnaars(i, 1), VroegereWinnaars(i, 2)

     mvg,lco
« Laatst bewerkt op: 09 juli 2020, 09:57:31 door lco »

Offline lco

  • Oplosser
  • ****
  • Berichten: 580
  • Geslacht: Man
Re: downloaden namen van fb naar excel
« Reactie #9 Gepost op: 09 juli 2020, 10:10:26 »
RedHead,Cow18,

Heb mijn beginblad even nagekeken (weet niet waar mijn verstand zat) maar de kolommen E en K zijn inderdaad overbodig en mogen weg,in bijlage een verbeterde versie (zonder onnodige kolommen)

De bedoeling is enkel als de lijst is gedownload dat er een  aantal leden kunnen getrokken worden en de winnaars worden weggezet in de kolom vroegere winnaars

het aantal personen dat kan winnen zou ik manueel moeten kunnen instellen bv: in een cel invoeren waarna hij via de macro dit aantal selecteert uit de lijst

bij de volgende trekking moet hij dan gaan zien in kolom wie er al gewonnen heeft en deze personen uitsluiten zodat iedereen maar eenmaal kan winnen en dit tot de volledige lijst is afgewerkt.


     mvg,Lco








Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.977
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: downloaden namen van fb naar excel
« Reactie #10 Gepost op: 09 juli 2020, 10:18:32 »
ICO, de versie van Cow18 uit Post nr. 4 doet exact wat je vraagt. Probeer die versie uit. Je moet dan ook niet meer de knop gebruiken (had ik al aangegeven) omdat die nog naar mijn code verwijst en Cow18 aanpassingen heeft gemaakt in de sheet. Dus mijn code loopt fout in de versie van Cow18.
Start de code van Cow18 op in de VBE of koppel de knop aan zijn code.
______________________________

Groet, Leo

Offline lco

  • Oplosser
  • ****
  • Berichten: 580
  • Geslacht: Man
Re: downloaden namen van fb naar excel
« Reactie #11 Gepost op: 09 juli 2020, 10:28:12 »
RedHead,Cow18,

SORRY voor het ongemak maar ik heb de lay-out veranderd   _/-\o_ _/-\o_
ik heb de code bekeken (is voor mij te hoog gegrepen) maar als ik ze kan koppelen waar het moet ben ik al een einde op weg.

update:ik heb de code gekoppeld maar ik krijg een foutmelding (waarschijnlijk omdat ik enkele kolommen heb verwijderd) :-[ :-[ :-[
kunnen jullie mijn fout rechtzetten aub (heb nieuwe bijlage toegevoegd). :-[ :-[


    mvg,lco
« Laatst bewerkt op: 09 juli 2020, 11:53:53 door lco »

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #12 Gepost op: 09 juli 2020, 12:14:18 »
zie bijlage, met een extra macro om de tabel met de vroegere winnaars leeg te maken om vanaf 0 te kunnen herbeginnen.

Offline lco

  • Oplosser
  • ****
  • Berichten: 580
  • Geslacht: Man
Re: downloaden namen van fb naar excel
« Reactie #13 Gepost op: 09 juli 2020, 12:28:58 »
cow18,

Bedankt voor de aanpassing,maar kolom F mag weg is overbodig.
De winnaars worden weggeschreven  in kolom E en het is daar dat hij bij een volgende trekking moet rekening houden dat deze leden die al gewonnen hebben geen 2 de keer kunnen winnen,kan dit zo aangepast worden aub ::) ::)

     mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 212
  • Geslacht: Man
  • Oplossing.be
Re: downloaden namen van fb naar excel
« Reactie #14 Gepost op: 09 juli 2020, 19:01:08 »
..

 


www.combell.com