quote:Op dinsdag 22 juli 2014 15:33 schreef DIlic het volgende:
Pls een vba macro die in kolom R in elke cel naar "LMD" zoekt. elke cel heeft een stuk tekst, maar als die tekst LMD bevat dan hoort die gehele rij verwijderd te worden. Stickers jouw manier van cdatum en verwijderen van bepaalde datums werkt super!
| 1 2 3 4 5 6 7 | Sub fok() For Each c In Range("R:R").Cells If InStr(c.Value, "LMD") <> 0 Then c.EntireRow.Delete Next c End Sub |
Bij mij doet de macro exact wat je vraagt. De macro is wel hoofdletter gevoelig.quote:Op woensdag 23 juli 2014 11:39 schreef DIlic het volgende:
Alleen heb ik gemerkt dat hij elke rij verwijdert waarbij "LMD" in het begin van het zin voorkomt. Bestaat er een mogelijkheid dat die ook de rijen verwijdert waarbij "LMD" op een willekeurige plek staat in een zin. Dus voorbeeld:
A1. LMD is verwijderd
A2. Het is een LMD
A3. lageLMD
A4. LMDlaag
Rij A1 wordt verwijderd en rijen van A2,A3 en A4 niet, omdat inhoud van A2 niet met het woord "LMD" begint of er is tekst aangeplakt.
Weet er iemand een VBA oplossing voor dit probleem?
met UCase() kun je een goede vergelijking forceren.quote:Op woensdag 23 juli 2014 13:07 schreef Deetch het volgende:
[..]
Bij mij doet de macro exact wat je vraagt. De macro is wel hoofdletter gevoelig.
Ik neem aan dat je in je voorbeeld de "R:R" wel weer hebt vervangen door "A:A"?
klopt, ff herschrijvenquote:Op woensdag 23 juli 2014 13:09 schreef Stickers het volgende:
De macro van Deetch zoekt per rij of de cel LMD bevat, is dit het geval dan verwijderd hij deze rij. Met als gevolg dat de rijen één naar boven opschuiven, terwijl de for each verder gaat. Maw telkens als een cel LMD bevat, dan voert hij geen controle uit op de volgende cel.
Je kan net als de cdatum macro gebruik maken van een for x = lastRow to 1 step -1. Dan moet het goed gaan.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub fok() Application.ScreenUpdating = False ActiveSheet.Range("A" & Rows.Count).End(xlUp).Select For x = ActiveCell.Row To 1 Step -1 Range("A" & x).Select If InStr(ActiveCell.Value, "LMD") <> 0 Then ActiveCell.EntireRow.Delete Next x Application.ScreenUpdating = True End Sub |
Klopt ook. Ik was in de veronderstelling dat het voor een geautmatiseerd programmaatje moest zijn om ruwe data voor te bewerken.quote:Op woensdag 23 juli 2014 14:22 schreef snabbi het volgende:
Ik weet dat er specifiek om een Macro wordt gevraagd, maar in mijn ogen is het handiger dat gebruik gemaakt wordt van Filter opties. Zorg dat je de filter aanzet op de betreffende kolommen. Zoek in je filter het criterium op van de cellen die je wilt verwijderen (dus bevat LMD). Vervolgens kan je in een keer al deze rijen verwijderen.
Het voordeel hiervan is dat iemand die niet echt met macro's kan werken, zelf ook tot een oplossing kan komen.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Private Sub Worksheet_Activate() n = 1 For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then n = n + 1 On Error Resume Next Me.Hyperlinks.Add Anchor:=Me.Cells(n, 3), Address:="", _ SubAddress:="'" & wSheet.Name & "'!A1", TextToDisplay:=wSheet.Name End If Next wSheet End Sub |
Jup.quote:Op vrijdag 25 juli 2014 16:40 schreef Stickers het volgende:
Hyperlink zal, voor zover ik weet, niet werken, daar hij een string gebruikt als link en geen verwijzing. Misschien kun je met =cel("bestandsnaam"), =deel() en =vind.spec() het een en ander gebruiken als verwijzing, zodat je geen macro hoeft te gebruiken.
quote:Mocht je daar geen zin in hebben, dan kun je onderstaande code plaatsen in het werkblad(rechtermuisknop op werkblad > Programmacode weergeven). Telkens als je hem activeert, dan creëert hij een nieuwe lijst hyperlinks in kolom C. Zie Cells(n, 3).Hier is 3 kolom C. Wil je dat ie begint vanaf rij 5? Dan n = 5.
[ code verwijderd ]
In het geval dat de naam van de cel gelijk is aan de naam van het tabblad kan dit werken:quote:Op dinsdag 29 juli 2014 10:05 schreef Skv het volgende:
Dag goeroes!
Ik ben doorverwezen naar dit topic vanuit mijn eigen topic. Mijn vraag is als volgt:
Ik heb nu cellen met een waarde van 1-10 er in. Als je op zo'n cel klikt, wordt je doorgelinkt naar een tweede tabblad met de legenda (1 = zeer slecht, 2 = slecht ...).
Ik wil het nu graag zo dat je moet dubbelklikken voordat hij doorgaat naar dat tabblad in plaats van enkel. Als je enkel klikt moet hij gewoon in de cel blijven staan.
Met andere woorden: de hyperlink moet pas geactiveerd worden bij dubbelklikken. Bij enkel klikken moet het invoerbericht (gegevensvalidatie) worden getoond.
Iemand een idee hoe ik dat kan doen?
| 1 2 3 4 | Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next Sheets(Target.Value).Activate End Sub |
SPOILER: Code in spoilerOm 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.Wanneer ik het bestand open, krijg ik altijd "Error has occured" te zien, terwijl de ribbon wel gewoon wordt getoond.
[ Bericht 7% gewijzigd door Stickers op 29-07-2014 10:22:04 ]
quote:Op dinsdag 29 juli 2014 10:09 schreef Stickers het volgende:
[..]
In het geval dat de naam van de cel gelijk is aan de naam van het tabblad kan dit werken:
[ code verwijderd ]
Hiervoor geldt wel dat de cel geen link mag zijn, dan gaat ie alsnog naar het betreffende tabblad met 1 klik.
Ik heb een bestand gevonden met code waar ik wel iets mee kan. Nu begrijp ik alleen niet waarom iRibbonUI wordt gezien als Nothing.Is er een alternatief voor het geval dat de cel wél een link is? De geboden oplossing had ik via Google elders gevonden, maar die werkt helaas niet.SPOILER: Code in spoilerOm 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.Wanneer ik het bestand open, krijg ik altijd "Error has occured" te zien, terwijl de ribbon wel gewoon wordt getoond.Ons soort mensen, trapt reeds jaren blij van zin, het vuile plebs de modder in.
Ons soort mensen, steunpilaar van vaderland en koningin.
quote:Op vrijdag 25 juli 2014 16:40 schreef Stickers het volgende:
Hyperlink zal, voor zover ik weet, niet werken, daar hij een string gebruikt als link en geen verwijzing. Misschien kun je met =cel("bestandsnaam"), =deel() en =vind.spec() het een en ander gebruiken als verwijzing, zodat je geen macro hoeft te gebruiken.
Mocht je daar geen zin in hebben, dan kun je onderstaande code plaatsen in het werkblad(rechtermuisknop op werkblad > Programmacode weergeven). Telkens als je hem activeert, dan creëert hij een nieuwe lijst hyperlinks in kolom C. Zie Cells(n, 3).Hier is 3 kolom C. Wil je dat ie begint vanaf rij 5? Dan n = 5.
[ code verwijderd ]
Die programmacode maakte van alle tabbladen een hyperlink, dat was niet echt de bedoelingquote:Op vrijdag 25 juli 2014 17:13 schreef qu63 het volgende:
[..]
Jup.
=RECHTS(DEEL(CEL("bestandsnaam";A1);VIND.SPEC("]";CEL("bestandsnaam";A1))+1;256);4)
En HYPERLINK() werkt gewoon samen met INDIRECT()
[..]
Thanks! Dat komt in de buurt bij wat ik zoek.quote:Op donderdag 31 juli 2014 09:23 schreef Deetch het volgende:
Je moet er geen XYscatterplot van maken maar een lijngrafiek.
Dan kun je vervolgens de asopmaak aanpassen naar intervallen met 3 maanden en een andere startdatum kiezen.
Major units op 3 maand zetten? En dan minor op 1 maand. En dan kun je nog minor tickmarks toevoegen.quote:Op donderdag 31 juli 2014 10:24 schreef baskick het volgende:
[..]
Thanks! Dat komt in de buurt bij wat ik zoek.
Dit voldoet deels aan mijn wensen; hij start nu op het gewenste moment (een hele maand of de start van een kwartaal). Als ik 'm handmatig op 1-7 (start Q3) zet, wordt de volgende dan ook 1-7 en niet 1-10. Dat is wel overkomelijk door 'm bij 1-1 te laten starten (en een leeg deel in grafiek te accepteren). Helaas zie ik zo niet hoe ik de interval op kwartalen krijg (alleen dagen, maanden of jaren). Nog tips?
My bad. Ik was te gefocust op de opties (dag/maand/jaar) en kwartalen, dat ik er niet dacht om 'm op 3 maanden (óók een kwartaal) te zetten. Dit doet exact wat ik wil. Thanks a lot!quote:Op donderdag 31 juli 2014 10:40 schreef Deetch het volgende:
[..]
Major units op 3 maand zetten? En dan minor op 1 maand. En dan kun je nog minor tickmarks toevoegen.
Is je datum kolom wel ook echt een datum en niet stiekem gewoon tekst?
ga jequote:Op donderdag 31 juli 2014 11:08 schreef baskick het volgende:
[..]
My bad. Ik was te gefocust op de opties (dag/maand/jaar) en kwartalen, dat ik er niet dacht om 'm op 3 maanden (óók een kwartaal) te zetten. Dit doet exact wat ik wil. Thanks a lot!
Dan klopt je uitgangsdata niet. Kun je er daar geen - voor zetten?quote:Op maandag 4 augustus 2014 15:47 schreef static het volgende:
Ik heb een pivot-table waar kolommen bij elkaar opgeteld worden tot het totaal. Nu wil ik dat één van de waardes in die kolom niet wordt opgeteld, maar afgetrokken. Het zal ongetwijfeld iets simpels zijn, maar kan het niet vinden.
Edit: dus alleen bij een enkel veld, de rest moet nog wel opgeteld worden.
De rij/kolom met de counts kopieren en plakken als waardes?quote:Op maandag 4 augustus 2014 16:58 schreef static het volgende:
Nee, de source-data zijn geen cijfers, het is een count.
Dan de formule van de count *-1 doen.quote:Op dinsdag 5 augustus 2014 12:55 schreef static het volgende:
De data is goed, het is een count die ik af wil trekken van het totaal, dus niet opgeteld aan het eind van de kolom.
quote:Op dinsdag 29 juli 2014 10:09 schreef Stickers het volgende:
Ik heb een bestand gevonden met code waar ik wel iets mee kan. Nu begrijp ik alleen niet waarom iRibbonUI wordt gezien als Nothing.Iemand?SPOILER: Code in spoilerOm 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.Wanneer ik het bestand open, krijg ik altijd "Error has occured" te zien, terwijl de ribbon wel gewoon wordt getoond.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Private Sub doit_click() For x = 2 To Cells(Rows.Count, "B").End(xlUp).Row 'Get the string to compare tacct = Cells(x, 2) tamt = Cells(x, 5) For x2 = x + 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(x2, 2) = tacct And tamt + Cells(x2, 5) = 0 Then Rows(x2).Delete Rows(x).Delete x = x - 1 Exit For End If Next 'x2 Next 'x End Sub |
NB: Ik heb de variabele tacct en tamt aangepast naar grootboek en bedrag.quote:Op woensdag 6 augustus 2014 12:27 schreef Maraca het volgende:
Hoi,
Ik zit even met een probleem. Ik heb een bestand van ongeveer 23.000 regels en daarvan moet ik alle creditbedragen afzetten tegen de debetbedragenkansloos dus, aangezien het er best veel zijn. Nu wil ik een macro gebruiken om dit voor mij te laten doen. Daar heb ik de volgende macro voor gevonden (bron).
[ code verwijderd ]
Dit is eigenlijk precies wat ik wil. Ik heb een grootboekrekeningnummer, en een bedrag dat zowel debet als credit kan zijn. Alleen lukt het mij niet om deze macro te gebruiken in mijn bestand. Als ik het voorbeeld op de website gebruik, werkt deze perfect. Maar zodra ik in het voorbeeld extra regels toevoeg lijkt het ook niet meer te werken.
Zou iemand mij bovenstaande code kunnen uitleggen en kunnen vertellen wat ik aan moet passen zodat ik deze macro kan gebruiken? Ga er maar vanuit dat mijn bestand er hetzelfde uitziet als de voorbeeld op de website (dus grootboeknummer in kolom A en bedrag (zowel debet als credit) in kolom B). Verschil is wel dat ik ook nog kolom C, D etc heb met andere info. Oh en mijn bedragen zijn in euro's, maar dat lijkt mij geen invloed te hebben.
Excel versie: 2007
Taal: Engels
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Private Sub doit_click() For x = 2 To Cells(Rows.Count, "B").End(xlUp).Row 'Get the string to compare grootboek = Cells(x, 1) bedrag = Cells(x, 2) For x2 = x + 1 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(x2, 1) = grootboek And bedrag + Cells(x2, 2) = 0 Then Rows(x2).Delete Rows(x).Delete x = x - 1 Exit For End If Next 'x2 Next 'x End Sub |
| 1 | For x = 2 To Cells(Rows.Count, "B").End(xlUp).Row |
| 1 2 | grootboek = Cells(x, 1) bedrag = Cells(x, 2) |
| 1 | For x2 = x + 1 To Cells(Rows.Count, "A").End(xlUp).Row |
| 1 | Cells(x2, 1) = grootboek |
| 1 | bedrag + Cells(x2, 2) = 0 |
| 1 2 | Rows(x2).Delete Rows(x).Delete |
| 1 | x = x - 1 |
| 1 | Exit For |
Heb het net even op een deel van mijn bestand geprobeerd en het werktquote:Op woensdag 6 augustus 2014 14:16 schreef Stickers het volgende:
[..]
NB: Ik heb de variabele tacct en tamt aangepast naar grootboek en bedrag.
[ code verwijderd ]
Hij maakt een loop en legt het bereik vast wat gecontroleerd moet worden:
[ code verwijderd ]
registreert het grootboeknummer en bedrag:
[ code verwijderd ]
Om vervolgens met een loop in die loop:
[ code verwijderd ]
door de andere bedragen/grootboeknummers heen te gaan om te kijken of
het grootboeknummer matcht:
[ code verwijderd ]
én
de bedragen opgeteld 0 zijn:
[ code verwijderd ]
Is dit het geval, dan worden beide regels verwijderd:
[ code verwijderd ]
Gaat hij 1 stap terug, omdat alles naar boven schuift wegens het verwijderen van een regel.
[ code verwijderd ]
En stopt hij met zoeken naar matches, hij heeft er immers 1 gevonden:
[ code verwijderd ]
En op naar de volgende met "Next"
De fout zat in het feit dat tamt + Cells(x2, 5) = 0 de vergelijking uitvoerde op rij x2 en kolom 5. Kolom 5 is leeg dus de uitkomst zal altijd 0 zijn. Dit betekent dat er alleen op bedrag word gecontroleerd en niet of deze matcht met een grootboek. Dit lijkt me niet de bedoeling.
Microsoft site maakt niet veel uit, het originele bestand waar ik het uit heb werkt alles wel gewoon.quote:Op woensdag 6 augustus 2014 12:02 schreef Deetch het volgende:
Die microsoftsite bestaat niet meer zo te zien. Kan dat het zijn?
Als ik je code zo lees ga je on workbook open eerst naar RefreshRibbon. Hierin zit je foutmelding die alleen wordt gegenereerd als je Rib nothing is.
Maar Rib is ook nothing omdat je die pas definieert in de sub RibbonOnLoad (Set Rib = ribbon) en ik zie niet wanneer die wordt afgeroepen maar waarschijnlijk pas na je workbook open.
Npquote:Op woensdag 6 augustus 2014 14:24 schreef Maraca het volgende:
[..]
Heb het net even op een deel van mijn bestand geprobeerd en het werkt! Ontzettend bedankt
De lijst in A is altijd op alfabet gesorteerd?quote:Op vrijdag 8 augustus 2014 00:57 schreef RacerDKB het volgende:
Stel ik heb een lijst die er zo uit ziet:
[ afbeelding ]
In A staan productnamen, soms twee dezelfde achtereenvolgend; soms vijf; soms één, en in B staan bedragen die bij de producten in A horen.
Kan ik dan in één keer laten berekenen wat de som is, maar dan per product? Dat dit er uit komt dus:
[ afbeelding ]
Ik zat te kloten met SOM.ALS maar kwam er niet uit. Ik wil dus de bedragen in B optellen maar elke keer als de waarde in A verandert dan moet ie resetten en weer opnieuw beginnen met optellen.
| 1 | =ALS(A3=A2;"";SOM.ALS($A$2:A2;A2;$B$2:B2)) |
Oh wauw dit werkte zo goed, bedankt! Wilde dit altijd al weten, blijkt niet eens zo lastig maar ik kwam er niet opquote:Op vrijdag 8 augustus 2014 01:39 schreef qu63 het volgende:
[..]
De lijst in A is altijd op alfabet gesorteerd?
If so, in C2 en doortrekken naar beneden:
[ code verwijderd ]
Ik vond mijzelf ook vrij helder om half 2quote:Op vrijdag 8 augustus 2014 08:51 schreef RacerDKB het volgende:
[..]
Oh wauw dit werkte zo goed, bedankt! Wilde dit altijd al weten, blijkt niet eens zo lastig maar ik kwam er niet op
Je hebt me wat werk bespaard, top.
Dus het kan niet automatisch in de pivot zelf?quote:Op dinsdag 5 augustus 2014 16:43 schreef ralfie het volgende:
Maak een extra (verborgen) kolom aan met alles 1 behalve die ene rij, -1. Dan beide kolommen vermenigvuldigen en klaar. Netste oplossing zou ik zeggen
Nee, de pivot geeft slechts een dwarsdoorsnede van je gegevens en staat manipulatie niet toe. Manipulatie is noodzakelijk vanwege dat een count niet negatief zal zijn.quote:Op vrijdag 8 augustus 2014 20:12 schreef static het volgende:
[..]
Dus het kan niet automatisch in de pivot zelf?
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.quote:Op vrijdag 8 augustus 2014 19:43 schreef mighty_myte het volgende:
Ik wil in een excel file een lijstje maken dat automatisch de datum en laatste gebruikersnaam noteert.
Nu heb ik geen moeite met het afvangen van die twee dingen, maar ik weet niet hoe ik ,elke keer dat de file geopend wordt, naar een nieuwe regel moet.
Iemand?
De gegevens komen in een verborgen sheet.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.
Oke.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.
SPOILEROm 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.
quote:Op zaterdag 9 augustus 2014 09:46 schreef snabbi het volgende:
[..]
Oke.Waarom een while-loop?SPOILEROm 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.
1 Rij = Sheets(sheetname).UsedRange.Rows.Count + 1 ![]()
Hulpkolom aanmaken en daarin de volgende formule zetten:quote:Op donderdag 14 augustus 2014 14:01 schreef Harveo het volgende:
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
Top! Het is geluktquote: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é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.
quote:Op donderdag 14 augustus 2014 14:27 schreef Stickers het volgende:
[..]
Je zit wel echt bovenop dit topic hé
Harveo @ 14:01:06
qu63 @ 14:06:54
Waar loop je in vast?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
Dan zou het fijn zijn om te zien wat er zelf al gedaan isquote:Op vrijdag 15 augustus 2014 16:58 schreef Z het volgende:
Bij het schrijven van de macro waarschijnlijk?
quote:Op zaterdag 28 juni 2014 20:04 schreef qu63 het volgende:
[ afbeelding ]
Welkom bij “Het grote Excel vragentopic” waar je terecht kan met vragen over Excel.
In dit topic is het de bedoeling dat we gericht vragen stellen en antwoorden geven op de gestelde vragen. Om alles zo goed mogelijk te laten verlopen zijn er een aantal regels.
Regels
1. Als je een vraag stelt, zet er dan bij welke versie van Excel je hebt en op welke taal hij ingesteld staat.
2. Zet macrocode tussen [ code ] tags
3. Als het “pseudo-code” is, vermeldt dit dan duidelijk
4. Er bestaan geen domme vragen, wel domme antwoorden. Als jouw antwoord niet gaat bijdragen, geef het antwoord dan niet.
5. Dit topic is geen “code-FEBO” waar je half opgewarmde code uit de muur trekt, het is de bedoeling dat je er zelf iets van leert.
Heb je toch helegaar geen marco voor nodig?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
| 1 | =SUMPRODUCT(--([BookD.xlsx]Sheet1!D:D="volbloed"),--([BookK.xlsx]Sheet1!K:K="niet te beoordelen"),--([BookM.xlsx]Sheet1!M:M="Overleden")) |
Gebruik je de volgende keer de {code} {/code} tages even om je macro code ({ } vervangen door [ ] )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,
| 1 | =IFERROR(IF(VLOOKUP(A2,[Bestand1.csv]Bestand1!A:D,4)=$B$1,1,0),"err" ) |
Misschein dat dit je verder kan helpen: http://www.contextures.com/excel-data-validation-multiple.htmlquote:Op vrijdag 22 augustus 2014 12:26 schreef Rquiem het volgende:
Hallo mede excellers,
Even een vraagje waar ik geen antwoord op kan vinden.
Excel 2010
Ondersteunende informatie:
Ik wil door middel van keuzelijsten en lengte/breedte invoer de prijs van diverse platen berekenen.
Ik heb de prijzen en afmetingen in een blad staan.
Nu wil ik in cel 1 een keuze lijst met verschillende materialen (keuzelijst is gemaakt)
In cel 2 wil ik de kleur selecteren
Cel 3 de dikte van de platen
En als laatste voeren de gebruikers zelf in een cel de lengte en een cel de breedte in.
Nu lukt het mij wel om een aantal mm daar de prijs aan te koppelen die berekend wordt wanneer de lengte en breedte worden ingevoerd.
Uiteindelijk doel:
Cel 1 materiaal kiezen
Cel 2 alleen de kleur kunnen kiezen (zichtbaar zijn in keuzelijst) die voor dat materiaal beschikbaar is
Cel 3 Alleen het aantal mm kiezen dat beschikbaar is voor dat materiaal in die kleur
Cel 4&5 Lengte breedte handmatig invoeren
Cel 6 prijs wordt dan weergegeven aan de hand van selectie en invoer maten
Vraag:
Is het mogelijk om een keuzelijst te maken die variabel is door eerder gemaakte keuzes?
Stel dat ik de keuze heb uit materiaal plastic en karton (bijvoorbeeld), en karton is niet in groen te krijgen maar plastic wel, dat wanneer ik karton selecteer de optie groen niet zichtbaar is in de keuzelijst in Cel2?
Moet ik hierbij bij gegevens validatie kijken? Moet ik hiervoor bij macro's gaan kijken?
Kan het eigenlijk wel?
quote:Op vrijdag 22 augustus 2014 13:17 schreef qu63 het volgende:
[..]
Misschein dat dit je verder kan helpen: http://www.contextures.com/excel-data-validation-multiple.html
Thanks, ik ga er meteen mee aan de slag!!quote:Op vrijdag 22 augustus 2014 13:25 schreef Stickers het volgende:
Qu63 was me voor, maar meerdere keuzes per dropdown box is denk ik niet wat je zoekt.
Het is mogelijk door je vervolg keuzes te verdelen per groep.
Selecteer het bereik van de kleuren voor karton en geef deze links naast de formulebalk een naam, bv Karton.
Maak nu een lijst voor de tweede keuze en verwijs in de bron naar de eerste keuze, =indirect(a1), hier is a1 je eerste keuze
Zodra je in de eerste keuzelijst voor Karton hebt gekozen, zal dmv de indirect verwijzing je groep worden gekozen als tweede keuze.
Wat hier staat dus:
http://www.contextures.com/xlDataVal02.html
Waar loop je in vast?quote:Op zondag 24 augustus 2014 17:23 schreef De-Hamster het volgende:
Ik wil dit seizoen voor ons voetbalelftal van iedere wedstrijden de doelpuntenmakers gaan bijhouden. Uiteindelijk dus een 20/25 wedstrijden met bij iedere wedstrijd 15 mogelijke doelpuntenmakers. Ik wil een worksheet neerzetten zodat ik de wedstrijden kan invoeren, daarna de doelpuntenmakers. Hierna zou het fijn als ik dit kon doorlinken naar een lijst waarin de topscorers staan vermeldt.
Voor mijn gevoel moet dit heel goed mogelijk zijn met Excel, maar ik kom er maar niet uit. Iemand die me op weg kan helpen?
Geen enkel bestand daar heeft het gene dat ik bedoel.quote:Op zondag 24 augustus 2014 18:39 schreef qu63 het volgende:
[..]
Waar loop je in vast?
En heb je al gegoogled? Met 2x klikken kwam ik hier op uit: http://www.worksheet.nl/downloads/sport
Ik zocht op "excel voetbaluitslagen"..
Nee, dat is het probleem. Ik heb geen idee hoe te beginnen, maar het moet mogelijk zijn. Gewoon echt de wedstrijden die ik zelf invul. De uitslagen die ik zelf invul. Met de doelpuntenmakers en hiervoor een automatische ranking in doelpuntenmakers.quote:Op zondag 24 augustus 2014 20:51 schreef Janneke141 het volgende:
Gewoon een heel groot schema maken met verticaal alle wedstrijden, horizontaal alle spelers en dan gewoon wat met totalen gaan doen? Of wat heb je in gedachten?
Omdat ik bij jouw genoemde optie geen mogelijkheid heb om terug te zien wie welk doelpunt gemaakt heeft. Ik wil op het einde van het seizoen dit aan het team kunnen laten zien zonder hier commentaar te krijgen dat hij echt wel meer doelpunten heeft gemaakt. Ik wil op de een of andere manier terug kunnen zien in welke wedstrijden welke spelers gescoord heeft.quote:Op zondag 24 augustus 2014 20:58 schreef Janneke141 het volgende:
Wat ik je geef is een voorbeeld.
Wat jij voor ogen hebt is een lijst die je in de loop van het seizoen vult met gespeelde wedstrijden en en doelpuntenmakers. Het vervelende daaraan is dat het aantal gescoorde doelpunten natuurlijk verschilt per wedstrijd. Dat kan allemaal wel, maar het worden nare grapjes met zoek- en verwijsfuncties die jou waarschijnlijk iets boven de pet gaan.
Je snelste optie (omdat het voetbal is en geen waterpolo) is een turflijst met pen en papier.
Een goede tweede is het voorbeeld wat ik geef: Je maakt een grote tabel waar je verticaal alle wedstrijden onder elkaar zet en waar je de uitslagen achter kan zetten. In de bovenste rij zet je de namen van alle spelers en dan kun je per rij/kolom aangeven wie er hoe vaak scoort in welke wedstrijd.
Daarna kun je met behulp van totalen en de RANG()-functie wel een topscorerslijst genereren.
Dat kan ook in het door mij gegeven voorbeeld.quote:Op zondag 24 augustus 2014 21:05 schreef De-Hamster het volgende:
Omdat ik bij jouw genoemde optie geen mogelijkheid heb om terug te zien wie welk doelpunt gemaakt heeft. Ik wil op het einde van het seizoen dit aan het team kunnen laten zien zonder hier commentaar te krijgen dat hij echt wel meer doelpunten heeft gemaakt. Ik wil op de een of andere manier terug kunnen zien in welke wedstrijden welke spelers gescoord heeft.
Dat is idd wel handig, hier ga ik eens mee aan de slag, Thanks!quote:Op zondag 24 augustus 2014 21:07 schreef Janneke141 het volgende:
[..]
Dat kan ook in het door mij gegeven voorbeeld.
[ afbeelding ]
FTFYquote:Op maandag 25 augustus 2014 18:02 schreef Laser. het volgende:
Vraagje. Het gaat om een functie net zoals een voetbal uitslag.
Ik kan in cel F3 en cel H3 een getal invullen. Op basis van deze twee getallen wil ik in cel I3 een W / D / L (win, draw, loss) letter automatisch laten invoeren.
Dus:
=ALS(F3 > H3;"W";ALS(F3 = H3;"D";"L"))
Hoe kan ik dat doen?
Nog even de spaties eruit halenquote:Op maandag 25 augustus 2014 18:13 schreef Stickers het volgende:
[..]
FTFY
Indien de eerste twee voorwaarden F > H of F = H niet waar zijn is de uitkomst per definitie L
Spaties tussen de vergelijkingen maken niets uitquote:Op maandag 25 augustus 2014 18:14 schreef Janneke141 het volgende:
[..]
Nog even de spaties eruit halen
quote:Op maandag 25 augustus 2014 18:15 schreef Stickers het volgende:
[..]
Spaties tussen de vergelijkingen maken niets uit
Engelse versie dus. Verander =ALS in =IF en dan moet het wel werken.quote:Op maandag 25 augustus 2014 18:19 schreef Laser. het volgende:
Thanks, maar ik krijg #NAME?Doe ik wat fout?
Ohja, ik ga deze formule straks ook op andere rijen toepassen en het mag natuurlijk niet ingevuld zijn als de uitslag nog niet bekend is (dus lege cellen).
Ja, die ziet ie als gelijkspel. 0-0, zeg maar.quote:Op maandag 25 augustus 2014 18:23 schreef Laser. het volgende:
Klopt inderdaad, thanks!
Alleen krijg ik nu D'tjes te zien op uitslagen die nog niet zijn ingevuld. Kan dat nog makkelijk worden aangepast?
| Forum Opties | |
|---|---|
| Forumhop: | |
| Hop naar: | |