*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Auteur Topic: Macro om email lijst samen te stellen  (gelezen 431 keer)

Offline PJH

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Oplossing.be
Macro om email lijst samen te stellen
« Gepost op: 14 november 2017, 15:23:33 »
Hallo programmeurs,

Ik heb eens verschillende lijsten van onderaannemers gemaakt en op een zeer primitieve en omslachtige manier maak ik daar dan een email lijst voor om bv een prijsvraag te sturen.

FF uiteen zetten hoe ik werk:

- ik duid aan in kolom N met een x of ik bij die OA een prijs wil vragen
- in kolom Q komt dan het email adres van deze OA
- in cellen R201 tot R213 heb ik dan met de functie 'tekst.samenvoegen" alle cellen bijelkaar gevoegd gescheiden door een ";". door middel van een macro "Email lijst PA" die ik opnam verving ik ";" ";" achter elkaar door ";", totdat er nergens geen 2 punt-komma's waren. Het resultaat komt dan in cel Q1

nadien geeft een OA ofwel prijs ofwel laat hij weten dit niet te volgen
- in kolom O kan ik aanduiden of ze al dan niet prijs maken
- afhankelijk van deze keuze wordt in kolom S het email adres geplaatst
- in cellen S201 tot S213 heb ik dan met de functie 'tekst.samenvoegen" alle cellen bijelkaar gevoegd gescheiden door een ";". door middel van een macro "Email lijst PA" die ik opnam verving ik ";" ";" achter elkaar door ";", totdat er nergens geen 2 punt-komma's waren. Het resultaat komt dan in cel R1

Nu moesten alle lijsten samen gezet worden (meer dan 1500 lijnen), en kom ik nu tot de vaststelling dat uiteraard niet alle cellen samengevoegd worden.
Nu hoop ik dat er door middel van een macro een email lijst kan geproduceerd worden, die makkelijk uitbreidbaar is naar veel meer rijen.

Alvast bedankt voor de hulp en de oplossingen.

Met vriendelijke groet
PJ

Offline pitufo

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 495
  • Geslacht: Man
Re: Macro om email lijst samen te stellen
« Reactie #1 Gepost op: 15 november 2017, 12:28:16 »
Dag PJ,

Ik heb er in de rapte (wegens middagpauze) enkel voor je eerste knop dit van gemaakt :
Sub Emaillijst()
laatste = Cells(Rows.Count, 14).End(xlUp).Row
lijst = ""
For i = 3 To laatste
    If Cells(i, 14) = "x" Then
        lijst = lijst & Cells(i, 18)
        If i < laatste Then
            lijst = lijst & ";"
        End If
    End If
Next i
Cells(1, 17) = lijst
End Sub

Als dat goed genoeg voor je is krijg je het voor de andere knop zelf wel goed, veronderstel ik.
De formules in rijen 201 en volgende heb je dan ook niet meer nodig.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Globale Moderator
  • Ambassadeur
  • *****
  • Berichten: 16.460
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro om email lijst samen te stellen
« Reactie #2 Gepost op: 15 november 2017, 13:40:42 »
Hallo PJH,

in bijlage mijn oplossing (bijna hetzelfde als het werk van Pitufo, net dat hij het nog wat bondiger kan schrijven), ook enkel voor de onderaannemers die je een mail wilt sturen.
De code van pitufo is prima, maar ik vermoed dat als je ze uitvoert in jou werkboek je voor verassingen komt te staan waar je niet aan uit komt. Daarom heb ik het werkboek volledig aangepast.

Ik heb je werkblad wel opgekuist, want veel zaken zijn echt overbodig. 
In Kolom N gegevensvalidatie toepassen om enkel een x in te voeren lijkt me echt te zot.
In Kolom O vraag je "Ja","Nee" of "Mss" of er prijs is binnengekomen? Het is ja of nee, denk ik  0:-)
Wat verwacht je in kolom P te zien?

Speel er maar wat mee, en laat maar horen wat je nog wenst bij te plaatsen.

:) SoftAid :)             

Vul je systeemgegevens in: (Klik hier!)

GIGABYTE P67A-UD4-B3 - Intel(R)Core(TM) i7-2600 CPU@3.4GHz
Kingston - 8 GB 1333MHz DDR3 Non-ECC DIMM
EVGA GeForce GTS450 1GB
1- KINGSTON V300 SSD 240 GB 
2- OCZ Vertex III  SATA SSD 3 120 GB
3- WDC SATA 1TB
4- Externe 2TB
2 x SM2443BW/24" LCD 1920X1200 DV
Win 7 PRO SP1 64-bit NL
Office 2007 + 2003 NL SP3   WLM   Chrome
AVAST

Offline pitufo

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 495
  • Geslacht: Man
Re: Macro om email lijst samen te stellen
« Reactie #3 Gepost op: 15 november 2017, 14:06:46 »
Hallo SoftAid,

'k Heb daar ook aan gedacht, en puur "wetenschappelijk" heb je natuurlijk gelijk, maar in de praktijk zou dat nog redelijk kunnen meevallen : we komen dat zelden tegen maar een Excel-cel kan maximaal 32767 karakters bevatten, en als een gemiddeld e-mailadres zo'n 25 karakters lang is, kunnen er toch ruim 1300 worden geselecteerd...

Om het manuele werk achteraf in te perken zou een interessante tussenoplossing (en tevens waterdicht) natuurlijk kunnen zijn om volgens jouw systeem te werken en het maximum per rij veel hoger dan 4 in te stellen.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Globale Moderator
  • Ambassadeur
  • *****
  • Berichten: 16.460
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro om email lijst samen te stellen
« Reactie #4 Gepost op: 15 november 2017, 14:18:30 »
Hallo pitufo,

ja, je krijgt ook problemen als je een mail naar meer dan 15-20 adressen gelijktijdig wilt doorsturen.
De provider aanvaard dit niet.
Ik heb de teller nu op 4 gezet, als voorbeeldje, maar dat kan TS dus gemakkelijk aanpassen.

Toch zijn er nog andere zaken die ik zou veranderen.
Zo lijkt het mij alsof TS de adressen gewoon in "Aan..." gaat zetten. Ik zou ze in BCC zetten, zo weet geen enkele onderaannemer wie eveneens een prijsaanvraag heeft ontvangen, en kunnen ze dus moeilijker onderlinge afspraken gaan maken (wat vaak gebeurt).

Ik had mijn macro gisteren al af, maar heb de hele werkmap per ongeluk verwijderd, en moest vandaag opnieuw beginnen  :-[
Nog een recovery geprobeerd, maar ik had de veranderingen niet opgeslagen. Dom !!! :'(

Groeten,
Vul je systeemgegevens in: (Klik hier!)

GIGABYTE P67A-UD4-B3 - Intel(R)Core(TM) i7-2600 CPU@3.4GHz
Kingston - 8 GB 1333MHz DDR3 Non-ECC DIMM
EVGA GeForce GTS450 1GB
1- KINGSTON V300 SSD 240 GB 
2- OCZ Vertex III  SATA SSD 3 120 GB
3- WDC SATA 1TB
4- Externe 2TB
2 x SM2443BW/24" LCD 1920X1200 DV
Win 7 PRO SP1 64-bit NL
Office 2007 + 2003 NL SP3   WLM   Chrome
AVAST

Offline PJH

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Oplossing.be
Re: Macro om email lijst samen te stellen
« Reactie #5 Gepost op: 20 november 2017, 12:11:05 »
Bedankt SoftAID en Pitufo _o_ _o_

ik bekijk dit nu even,

iig worden idd de prijsvragen in bcc gestuurd, tot op heden heb ik nog nooit meldingen gekregen van teveel contacten toegevoegd te hebben.

 


www.combell.com