DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.
Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?
Stel dan hier je vraag!!!
Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf
Alle vorige topics zijn hier terug te vinden.
Nieuw topic? Haal de OP bij de wiki
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
Dit is toch een formule voor 1 criteria ?quote:=ALS(OF(datum(jaar(vandaag());maand(vandaag())-11;dag(vandaag())>vandaag();;"UIT DATUM")
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
Het enige waar de voorwaardelijke opmaak op controleert is of iets waar is of niet. Als het onwaar is doet ie niets, als het waar is geeft ie een kleurtje (of iets anders) aan de cel waarvoor de voorwaardelijke opmaak hebt ingesteld.quote:Op vrijdag 16 december 2011 17:27 schreef Mind_State het volgende:
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.
[..]
Dit is toch een formule voor 1 criteria ?
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
Deze zou moeten werken:
=ALS(OF(DATUM(JAAR(A1);MAAND(A1)-11;DAG(A1))>G1;DATUM(JAAR(B1);MAAND(B1)-11;DAG(B1))>G1;DATUM(JAAR(C1);MAAND(C1)-11;DAG(C1))>G1);WAAR;ONWAAR)
Of praten we nu compleet langs elkaar heen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm.. Ja als ik die formule invul dan zegt hij eigenlijk altijd ONWAAR.. ook als ik de datum van gister 3x invul.
Deze werkt nu hoe ik het wil:
=ALS(EN(A1+730>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
De OF-functie moest dus een EN-functie worden in ieder geval, want nu toont hij UIT DATUM als 1 van de criteria ONWAAR is. Het enige nadeel is nu nog dat hij nog steeds niet precies op de datum is ivm schrikkeljaren, maar ik bouw dan desnoods wel gwn een buffer in dat is geen probleem.
Deze werkt nu hoe ik het wil:
=ALS(EN(A1+730>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
De OF-functie moest dus een EN-functie worden in ieder geval, want nu toont hij UIT DATUM als 1 van de criteria ONWAAR is. Het enige nadeel is nu nog dat hij nog steeds niet precies op de datum is ivm schrikkeljaren, maar ik bouw dan desnoods wel gwn een buffer in dat is geen probleem.
Mijn macro doet het trouwens, maar ik ben er nog niet tevreden over. Want na het printen laat hij ze op verborgen staan, en dat is niet de bedoeling.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
de grootste schande van heel FOK! naast Fylax is Kano als mod.
@mind_state
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
kun je als functie gebruiken
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
| 1 2 3 4 | Function MaandenGeleden(datum As Date) As Long MaandenGeleden = DateDiff("m", datum, DateTime.Now) If Day(datum) > Day(DateTime.Now) Then MaandenGeleden = MaandenGeleden - 1 End Function |
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.quote:
@mind_state
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
[ code verwijderd ]
kun je als functie gebruiken
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
???quote:
[..]
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt 
=A1&","&A2&","&A3
Wel met een formule, maar een andere manier zou ik zo niet weten.
Wel met een formule, maar een andere manier zou ik zo niet weten.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
de grootste schande van heel FOK! naast Fylax is Kano als mod.
Knippen, Plakken speciaal -> Transponeren.
Je kan er dan niet snel komma's tussen plakken zonder formule of VBA.
Je kan er dan niet snel komma's tussen plakken zonder formule of VBA.
http://uk.answers.yahoo.c(...)0070929072105AAjHDWuquote:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
Je hebt dan wel MS Word nodig. (en paste special rich text)
reset
quote:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
| 1 2 3 4 5 6 7 8 9 10 | Sub AddCellVal() Dim Str As String Dim i As Integer For i = 1 To 50 Str = Str & Cells(i, 1) & "," Next ActiveCell.Value = Str End Sub |
Plak dit in de VBA editor in de betreffende sheet
Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..quote:
[..]
[ code verwijderd ]
Plak dit in de VBA editor in de betreffende sheet
Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
welke excel versie heb je (versie en taal?)quote:
[..]
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..
Excel voor Mac 2011 (versie 14.0) Nederlandsquote:
[..]
welke excel versie heb je (versie en taal?)
aaaarrgh
Ik had alles verwacht behalve mac...
ok heb even gegoogled en het schijnt dat de 2011 versie weer VBA ondersteunt (vanaf 2008 niet meer namelijk)
Er schijnt een "develepper Tab" te bestaan met hier de "VBA editor"
Als je deze editor opent zie je als het goed is dit:
(exclusief de modules, want die heb je nog niet)
dubbelclick op "sheet1" en het rechter paneer is een wit werkblad
hierin plak je de code die ik je gaf
je kan de editor nu sluiten
sla je sheet op en zoek naar "macro's"
run macro en kies de macro "AddCellVal"
in de cel die je hebt geselecteerdstaan tijdens het draaien van de macro zou de regel moeten verschijnen
Ik had alles verwacht behalve mac...
ok heb even gegoogled en het schijnt dat de 2011 versie weer VBA ondersteunt (vanaf 2008 niet meer namelijk)
Er schijnt een "develepper Tab" te bestaan met hier de "VBA editor"
Als je deze editor opent zie je als het goed is dit:
(exclusief de modules, want die heb je nog niet)
dubbelclick op "sheet1" en het rechter paneer is een wit werkblad
hierin plak je de code die ik je gaf
je kan de editor nu sluiten
sla je sheet op en zoek naar "macro's"
run macro en kies de macro "AddCellVal"
in de cel die je hebt geselecteerdstaan tijdens het draaien van de macro zou de regel moeten verschijnen
zonderquote:
moet ik die getallen 1 t/m 10 in de code ook pasten of zonder?
dat is automagische toevoeging
dus code is zonder codetag:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next
ActiveCell.Value = Str
End Sub
ik moet het kennelijk niet op een gewone manier opslaan, omdat er macro's zitten.. hoe dan wel?quote:
[..]
zonder
dat is automagische toevoeging
dus code is zonder codetag:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next
ActiveCell.Value = Str
End Sub
Die komma's op het eind, is daar wat aan te doen en is het mogelijk om na elke komma één spatie te krijgen?quote:
