[Excel] Het grote Excel vragen topic #29

ja dat kan eenvoudig

bijvoorbeeld met een simpele teller

Uitgangspunten

sheet 2:
alles staat in het eerste tablad, eerste regel bevat kolomnamen
naam staat in sheet2.kolom 1
bedrijfsnaam in sheet2.kolom 2
het email adres moet in kolom 3 komen

sheet 1
alles staat in het eerste tabblad, eerste regel bevat kolomnamen
naam staat in sheet1.kolom 1
bedrijfsnaam in sheet1.kolom 2
email adres in sheet1.kolom 3



[ Bericht 0% gewijzigd door #ANONIEM op 11-01-2012 19:51:52 ]

quote:

Op woensdag 11 januari 2012 20:00 schreef Basp1 het volgende:
Ik verwacht dat de lijst 2 per dag verschillend is anders zou vraagsteller ook dagelijks 1 kolom gekopieerd kunnen hebben.

Nou dat maakt toch ook niet uit

Je loopt door lijst 1 heen en als de naam uit lijst 1 overeenkomt met de naam uit lijst 2 en idem voor bedrijfsnaam pak je het email adres

het punt is alleen dat de workbooks geen vaste naam zullen hebben.

Dus ik zou het oplossen door er een add-in van te maken met een simpel formulier met twee browse knoppen, 1 voor het bron bestand en 1 voor het doelbestand

edit;
daarbij tel ik nu tot 32000 en als ik het echt zou bouwen zou ik waarschijnlijk de lastactivecell pakken, maar dat is bijschaven

[ Bericht 7% gewijzigd door #ANONIEM op 11-01-2012 20:03:48 ]

quote:

Op woensdag 11 januari 2012 20:08 schreef Basp1 het volgende:
Klopt mijn fout. Gaat alleen jou oplossing niet een hele lang runtime hebben met 2 for loops in elkaar tot 32000?

En zoals ik zei dat pakket zoals sap waar het uit komt zal waarschijnlijk toch ook wel de mailadressen bevatten dus gewoon het rapport wat lijst 2 genereerd aanpassen. Sterker nog ze zouden een rapport moeten maken wat meteen de word documenten genereerd ipv die omslachtige wegen die bewandeld worden.

Zoals ik al zei, ik zou lastactivecell pakken

32000 is het max wat je een integer kan geven (of 64000 maar ik weet niet meteen of ze signed of unsigned zijn in vba)...

Daarbij doe ik exit for als het email adres is gevonden

maar ja, het kan wel een minuut of wat duren afhankelijk van je systeem

tijd voor koffie, beter dan adressen harken

edit;

En ja, SAP moet dit kunnen, maar ik snap de vraagsteller wel ,want als je ooit een wijziging hebt aangevraagd in SAP snap je dat ze het zelf liever nu oplost dan pas over drie jaar en twaalf budgetvergaderingen en 16 nieuwe bugs haar zin te hebben

SAP

[ Bericht 12% gewijzigd door #ANONIEM op 11-01-2012 20:11:42 ]

quote:

Op woensdag 11 januari 2012 21:18 schreef gekkie000000 het volgende:
Maakt het trouwens nog uit wat voor namen de bestanden krijgen?

Ja, sheet1 en sheet2 zijn de werkboeknamen

blad1 is de naam van het tabblad waar de data staat

in mijn voorbeeld moeten beide workbooks open staan

Ik zou de code testen onder een macro:


en die macro aanroepen

Uiteindelijk wil je een vaste oplossing, je zou een add-in kunnen maken (een derde sheet die je opslaat als add-in)

daar maak je de macro in en die kun je bijvoorbeeld aan een formulier (dialoogschermpje) hangen met twee browse knoppen om de juiste bestanden aan te wijzen.

Die add-in laad je vast in in excel. De macro kun je dan bijvoorbeeld onder een knop in een ribbon plaatsen. Die knop is er dan altijd en als je erop drukt komt er een dialoogschermpje met de browse knoppen.

Het is een hoop gehobby om dat uit te vogelen, maar aan de andere kant, je leert er een hoop van.

In het uiterste geval wil ik je ook wel helpen hoor, maar dan wil ik graag de twee sheets zien (zonder data, alleen kolomkoppen).

Alleen uit principe vind ik dat je eerst zelf moet vogelen en uitproberen

browseknop:


Met bovenstaande code onder een knop kun je workbook_1 en (met aanpassing) workbook_2 "aanwijzen"

Je moet elke routine in een sub vangen (zoals in het eerste stukje code sub Macro1(). .. end sub)

Je kan vanuit de ene sub de andere sub aanroepen door de naam te noemen van die routine(sub)

Vervang de 32000 uit mijn eerste post door bijv. 100 (100 regels) als het werkt kun je verder vogelen en uitzoeken hoe lastactivecell werkt. (als je code misgaat ergens en je telt 32000 keer naar 32000 dan lijkt het alsof je pc hangt)

_{Ellendig is dat Nl mensen de begrippen sheet verkeerd gebruiken, het bestand is eigenlijk een workbook, de tabbladen zijn sheets, in bovenstaande code heb ik het dus ook over workbook_1, dat is wat jij bedoelde met sheet1...}

[ Bericht 3% gewijzigd door #ANONIEM op 12-01-2012 06:35:48 ]

quote:

Op donderdag 12 januari 2012 09:18 schreef Jesse_ het volgende:

[..]

Als je hem niet ziet moet je hem aanzetten

Help of zeg niets

in ieder geval:

http://msdn.microsoft.com/en-us/library/ee814737.aspx

To enable the Developer tab

1.
On the File tab, choose Options to open the Excel Options dialog box.

2.
Click Customize Ribbon on the left side of the dialog box.

3.
Under Choose commands from on the left side of the dialog box, select Popular Commands.

4.
Under Customize the ribbon on the right side of the dialog box, select Main tabs, and then select the Developer check box.

5.
Click OK.

quote:

Op donderdag 12 januari 2012 16:57 schreef gekkie000000 het volgende:
Kritische massa, als je me zou willen helpen als je er tijd voor hebt een keer zou ik het heel erg op prijs stellen. Ik heb de helft van de dag gevogeld, maar ik snap er echt niets van. Voel me heel dom...

[ afbeelding ]

[ afbeelding ]

Dit zijn de begin bestanden.

Je hebt PM ik heb een voorbeeld voor je gebouwd

http://www.mediafire.com/?n4hg8l23afynnr1

Volgens mij heb ik het geupload (vrij nieuwe materie, ik load nooit up )

Het is wel in excel 2003 format, dus ik weet niet of je als je mailmerge.xls inlaadt een net menu krijgt, maar dat schaven we wel bij

[ Bericht 20% gewijzigd door #ANONIEM op 12-01-2012 17:28:42 ]

let op he:


Cells(i, 1) de 1 wijst hier naar kolom 1, als je kolom C wil vergelijken maak je hier kolom 3 van (gewoon tellen dus)

quote:

Op vrijdag 13 januari 2012 17:49 schreef gekkie000000 het volgende:
@Kritische massa, je bent geweldig! vandaag getest met mijn "eigen" bestanden en zelf de kolomnummers aangepast en het werkt perfect. Nog een keer hardstikke bedankt!

Dat is mooi

Probeer de code ook te snappen heel ingewikkeld is het namelijk niet

Als je de sheet "mailmerge" opslaat als add-in (.xla) kun je hem via add-in inladen vast in excel zetten, zo heb je dat menu altijd en heb je niet die extra sheet meer nodig

http://www.dq.winsila.com(...)-and-excel-2010.html

En je kunt het form natuurlijk altijd zelf pimpen met jouw naam in het userfform, zodat als collega's het gebruiken ze herinnerd worden aan jouw briljantheid

Omdat dit een helptopic is en misschien mensen interesse hebben hoe ik Gekkie000000 heb geholpen zal ik in deze post uitleggen wat ik heb gedaan.

In de VBA editor heb ik een form ingevoegd met 4 commandbuttons, twee tekstvakken en twee labels zoals weergegeven in het plaatje.

Ook heb ik twee modules ingevoegd en deze een handige naam gegeven, namelijk:

Routines
Variabelen



Ik heb eerst mijn variabelen gedeclareerd en deze public gemaakt zodat ze tussen routines uitgewisseld kunnen worden:

module "Variabelen"

In de module Routines heb ik de code gezet die het eigenlijke prgramma vormen en die moeten worden aangeroepen:

module "Routines"




Overzicht Kekke plaatjes inclusief FaceID nummer



Vervolgens heb in "ThisWorkbook" code toegevoegd die moet worden uitgevoerd bij openen en sluiten van het workbook:

code in "ThisWorkbook"

In het form heb ik code toegevoegd die moet worden uitgevoerd bij het indrukken van de knoppen

code in "Userform1"

In excel ziet het nieuwe menu er dan zo uit:



[ Bericht 4% gewijzigd door #ANONIEM op 14-01-2012 11:14:45 ]