[Excel] Het grote Excel vragen topic #41

quote:

Op vrijdag 8 augustus 2014 23:18 schreef snabbi het volgende:

[..]

Dit zal je via een macro moeten regelen aangezien je het koppelt aan een event als openen/sluiten. Overigens is je audit-trail die je hier opbouwt niet heel erg betrouwbaar. omdat de gebruiker hier zelf vrij eenvoudig een manipulatie op kan uitvoeren.

De gegevens komen in een verborgen sheet.
Ik ben een heel eind met VB code. Hij moet alleen nog op een nieuwe regel schrijven elke keer als het document geopend wordt.

quote:

Op zaterdag 9 augustus 2014 03:04 schreef mighty_myte het volgende:

[..]

De gegevens komen in een verborgen sheet.
Ik ben een heel eind met VB code. Hij moet alleen nog op een nieuwe regel schrijven elke keer als het document geopend wordt.

Oke.

SPOILER

Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Uiteraard is deze code wel gevoelig voor wanneer je sheet meer dan 1048575 keer wordt geopend, dan gaat het fout.

Wanneer je het niet erg vindt om de sheet wel te selecteren kan je eventueel nog gebruik maken van de methode om excel efficient naar beneden te laten springen zoals je zelf ook CTRL naar beneden gebruikt, maar omdat ik de sheet niet selecteer heb ik dat hier niet gedaan.

Je kan screenupdating op false zetten en dan wel de sheet actief maken? Dan zie je die flits niet.

Dat is inderdaad een mogelijkheid. Anyway als hij de sheet ook verbergt moet je daar ook weer verbergen aan en uit zetten. Zo'n variabele werkt ook prima.

Het is gelukt. Ik heb nu echter twee weken vakantie, dus pas dan kan ik de code hier weer laten zien.

Hoewel het waarschijnlijk niet voor zal komen, toch een kleine opmerking: Je declareert Rij als een Integer, zodra de file meer dan 32.767 keer gesaved wordt ontstaat er een foutmelding. In zo'n geval kun je beter niets declareren(dan converteert Excel het wanneer nodig) of dim Rij as Long

_{Mierenneukerij ik weet het}

quote:

Op zaterdag 9 augustus 2014 09:46 schreef snabbi het volgende:

[..]

Oke.

SPOILER

Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Uiteraard is deze code wel gevoelig voor wanneer je sheet meer dan 1048575 keer wordt geopend, dan gaat het fout.

Wanneer je het niet erg vindt om de sheet wel te selecteren kan je eventueel nog gebruik maken van de methode om excel efficient naar beneden te laten springen zoals je zelf ook CTRL naar beneden gebruikt, maar omdat ik de sheet niet selecteer heb ik dat hier niet gedaan.

Waarom een while-loop?

Op zich een prima oplossing om usedrange te gebruiken natuurlijk, maar wellicht iets wat in de toekomst minder snel door de vraagsteller is aan te passen naar wat hij dan nodig heeft. Dat is ook de reden dat ik niet snel naar de ctrl beneden oplossing was gegaan.

Integer opmerking is inderdaad ook een prima opmerking.

Ik heb een klein vraagje m.b.t. Excel 2010. Taal Nederlands.

Ik heb een kleine 500 regels in kolom A staan. Hier staat tekst in. Nu wil ik in elke cel de letters CO toevoegen. Dus nu staat er XXXXX en er zou CO XXXXX moeten komen staan.

Normaal gesproken zou ik gewoon alle cellen apart aanklikken en de letters toevoegen maar 500 is een beetje veel.

Is hier een handige tool voor? Alvast bedankt

quote:

Op donderdag 14 augustus 2014 14:06 schreef qu63 het volgende:

[..]

Hulpkolom aanmaken en daarin de volgende formule zetten:
="CO "&A1
en die doortrekken naar beneden. Daarna je hulpkolo, selecteren, kopiëren en dan rechtermuisknop op A1 en dan kiezen voor plakken speciaal -> waarden. Hierna kan je je hulpkolom verwijderen.

Top! Het is gelukt

quote:

Op donderdag 14 augustus 2014 14:06 schreef qu63 het volgende:

[..]

Hulpkolom aanmaken en daarin de volgende formule zetten:
="CO "&A1
en die doortrekken naar beneden. Daarna je hulpkolo, selecteren, kopiëren en dan rechtermuisknop op A1 en dan kiezen voor plakken speciaal -> waarden. Hierna kan je je hulpkolom verwijderen.

Je zit wel echt bovenop dit topic hé
Harveo @ 14:01:06
qu63 @ 14:06:54

Beste mensen ik heb een nieuwe vraag en hoop dat ik ermee geholpen kan worden.

(Als in bestand EOB-grid in kolom D de waarde "volbloed" is) And (Als in bestand EOB in kolom K de waarde "Niet te beoordelen" is) And (Als in bestand EOB in kolom M de waarde "Overleden" is) dan komt er een "x" in cel B2 van bestand CONCEPT-IGZJAAR.

Hier is het bestand CONCEPT-IGZJAAR waar de macro in verwerkt moet worden.

https://www.dropbox.com/s/cmwuua3t069l7cy/CONCEPT-IGZJAAR.xls

Bij voorbaat dank.
Dusan

Bij het schrijven van de macro waarschijnlijk?

waarom uberhaupt een macro. Een vergelijking met meerdere variabelen is ook wel zonder te maken.

quote:

Op vrijdag 15 augustus 2014 15:41 schreef DIlic het volgende:
Beste mensen ik heb een nieuwe vraag en hoop dat ik ermee geholpen kan worden.

(Als in bestand EOB-grid in kolom D de waarde "volbloed" is) And (Als in bestand EOB in kolom K de waarde "Niet te beoordelen" is) And (Als in bestand EOB in kolom M de waarde "Overleden" is) dan komt er een "x" in cel B2 van bestand CONCEPT-IGZJAAR.

Hier is het bestand CONCEPT-IGZJAAR waar de macro in verwerkt moet worden.

https://www.dropbox.com/s/cmwuua3t069l7cy/CONCEPT-IGZJAAR.xls

Bij voorbaat dank.
Dusan

Heb je toch helegaar geen marco voor nodig?


zelf even de bestandsnamen en sheetnamen aanpassen

Mijn excuses voor het laat reageren op jullie reactie en de onduidelijkheid. Mijn vraag is of er iemand een macro kan maken dat ervoor zorgt dat er een kruisje "x" in een bepaalde cel verschijnt wanneer aan bepaalde waarden wordt voldaan. Voorheen gebruikte ik de volgende macro om een kruisje te laten verschijnen en het werkte perfect. Het verschil zit hem nu in het feit dat de macro moet werken met verschillende bestanden en daar kom ik helaas, na veel gepuzzel, niet uit. Dit is de macro dat ik voorheen gebruikte:

Range("AA2:AA65536").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-19]=""Volbloedafname"",RC[-25]=""Gebrekkig Product""),""x"","""")"
Range("AA2").Select
Selection.AutoFill Destination:=Range("AA2:AA65536"), Type:=xlFillDefault
Range("AA2:AA65536").Select

De eerste alinea zet een kruisje in cel AA als de waarde in kolom H "Volbloedafname" is en als de waarde in kolom B "Gebrekkig Product" is.

Dus stel je voor dat de waarde "Volbloedafname" van kolom H in bestand1 zit en de waarde van kolom B "Gebrekkig Product" in bestand2 zit. Hoe kan ik dat in de bovenstaande macro aanpassen? En als er suggesties zijn voor een betere of snellere manier, dan hoor ik dat graag.

Groeten,

quote:

Op maandag 18 augustus 2014 10:10 schreef DIlic het volgende:
Mijn excuses voor het laat reageren op jullie reactie en de onduidelijkheid. Mijn vraag is of er iemand een macro kan maken dat ervoor zorgt dat er een kruisje "x" in een bepaalde cel verschijnt wanneer aan bepaalde waarden wordt voldaan. Voorheen gebruikte ik de volgende macro om een kruisje te laten verschijnen en het werkte perfect. Het verschil zit hem nu in het feit dat de macro moet werken met verschillende bestanden en daar kom ik helaas, na veel gepuzzel, niet uit. Dit is de macro dat ik voorheen gebruikte:

Range("AA2:AA65536").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-19]=""Volbloedafname"",RC[-25]=""Gebrekkig Product""),""x"","""")"
Range("AA2").Select
Selection.AutoFill Destination:=Range("AA2:AA65536"), Type:=xlFillDefault
Range("AA2:AA65536").Select

De eerste alinea zet een kruisje in cel AA als de waarde in kolom H "Volbloedafname" is en als de waarde in kolom B "Gebrekkig Product" is.

Dus stel je voor dat de waarde "Volbloedafname" van kolom H in bestand1 zit en de waarde van kolom B "Gebrekkig Product" in bestand2 zit. Hoe kan ik dat in de bovenstaande macro aanpassen? En als er suggesties zijn voor een betere of snellere manier, dan hoor ik dat graag.

Groeten,

Gebruik je de volgende keer de {code} {/code} tages even om je macro code ({ } vervangen door [ ] )

Het nut van je macro ontgaat mij nog een beetje. Wat je hier in de macro doet gaat ook prima in een normale formule in excel. Zie mijn post als voorbeeld.

Ik neem aan dat er ook nog een manier is om te herkennen dat volbloedafname en Gebrekkig product bij de zelfde donor hoort? Waarschijnlijk het zevencijferig donornummer?

Probeer nog eens vanaf het begin uit te leggen wat je nu wilt bereiken als eindresulataat en wat je uitgangsinformatie is.

Ah, ik zie nu dat het een turflijstje is? klopt dat?

Hoi Deetch,

Er zijn op deze manier vele mogelijke combinaties bijv: Volbloed,Gebrekkig Product, enz..
Uiteindelijk wil ik dat de macro telt hoe vaak een bepaalde combinatie voorkomt.

Alleen ben ik nu op een nieuwe probleem gekomen. Elke waarde is voor een bepaalde persoon. En ik heb gemerkt dat deze waardes niet op dezelfde volgorde voorkomen in de verschillende bestanden. Dus de macro hoort te tellen per persoon (PR-ID).

PR-ID1 [Bestand1.csv]Bestand1!D:D="volbloed",[Bestand2]Bestand2!E:E="Gebrekkig Product"
PR-ID1 [Bestand1.csv]Bestand1!D:D="volbloed",[Bestand2]Bestand2!E:E="Falende Apparatuur"

PR-ID2 [Bestand1.csv]Bestand1!D:D="volbloed",[Bestand2]Bestand2!E:E="Gebrekkig Product"
PR-ID2 [Bestand1.csv]Bestand1!D:D="volbloed",[Bestand2]Bestand2!E:E="Falende Apparatuur"

Deze maand zijn er bijvoorbeeld 2 personen maar volgend maand kunnen er 4 bij komen dus dan zou de macro automatisch opnieuw moeten tellen voor PR-ID1,PR-ID2,PR-ID3,PR-ID4,PR-ID5,PR-ID6

Ik hoop dat ik het zo heb kunnen uitleggen.

Dus PR-ID1 kan (Volbloed gebrekkig product) zijn of (Volbloed falend apparatuur). Nu wil ik kijken hoeveel PR-ID's de combinatie (Volbloed gebrekkig product) hebben en hoeveel PR-ID's de combinatie (Volbloed falend apparatuur) hebben. En de hoeveelheid PR-ID's kunnen varieren.

Nogmaals, je hebt geen macro nodig.

Je maakt een nieuw bestand met in kolom A de PRIDs
Vervolgens maak je kopteksten B1 = volbloed, C1=gebrekkige apparatuur etc

In cel B2 doe je de volgende formule
Hierbij ga ik er van uit dat de PRID in kolom A staat van bestand1

De vlookup zoekt de PRID in cel A2 van je nieuwe bestand op in kolom A van bestand1 en geeft dan de waarde van de 4e kolom van de kolommen A:D.
Deze waarde wordt dan vergeleken met de koptekst van de kolom (volbloed in dit geval). Als dat het geval is dan komt er een 1 anders een 0
De iferror functie geeft "err" als de vlookup de PRID niet kan vinden.

Dit doe je ook voor bestand 2. Vervolgens heb je dus een lijst met alle PRIDs en de bijbehorende 1 0 combinaties voor alle afwijkingen en donatie types.

Deze kun je dan naar wens met elkaar combineren.

En nu mag je eerst zelf aan de slag.