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
Voorgaande deeltjes met veel informatie:
[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
[EXCEL] Het grote Excel vragen topic, #8
[EXCEL] Het grote Excel vragen topic, #9
[EXCEL] Het grote Excel vragen topic, #10
[EXCEL] Het grote Excel vragen topic, #11
[EXCEL] Het grote Excel vragen topic, #12
[EXCEL] Het grote Excel vragen topic, #13
[EXCEL] Het grote Excel vragen topic, #14
[EXCEL] Het grote Excel vragen topic, #15
[EXCEL] Het grote Excel vragen topic, #16
[EXCEL] Het grote Excel vragen topic, #17
[Excel] Het grote Excel vragen topic #18
[Excel] Het grote Excel vragen topic #19
[Excel] Het grote Excel vragen topic #20
[Excel] Het grote Excel vragen topic #21
[Excel] Het grote Excel vragen topic #22
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]
En dan kan je wel posten maar geen topics openenquote:
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]
Nouja als jij het al voor me doet....quote:Op maandag 16 augustus 2010 11:59 schreef qu63 het volgende:
[..]
En dan kan je wel posten maar geen topics openen
Hij werkt nu! bedankt 
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.
Ben nu klaar met alles in het tekenprogramma zetten, en het werkt als een tierelier!
Ben zelden zo trots op mijn werk geweest
Ben zelden zo trots op mijn werk geweest
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.
FYPquote:Op maandag 16 augustus 2010 14:19 schreef kanovinnie het volgende:
Ben zelden zo trots op mijn ons werk geweest
Wat heb je allemaal gemaakt dan?
Beste mensen,
Onderstaand bericht is gepost in het vorige formu. Ik heb geprobeerd maar krijg het niet aan de praat.
Als ik dit invul kan ik nog altijd bij alle cellen iets invullen..... Iemand een idee wat ik fout doe??
Of als ik iemand het document toe kan sturen? Zodat het duidelijker wordt wat ik bedoel/fout doe
ImSo
Hmm het kan met formule maar dan is het niet monkeyproof.
Selecteer A1:A3, ga naar Data - Valideren.
Kies bij Toestaan voor Aangepast en vul in bij de formule:
=AANTALARG(A$1:A$3)=1
Dan krijgt men een foutmelding als er in A1 al iets staat en ze proberen A2 in te vullen. Maar A2 vult zich nog wel
Dus macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
If Range("B1:B3").Cells.SpecialCells(xlCellTypeBlanks).Count = 1 Then
MsgBox "Nee man er staat toch al een waarde ingevuld!"
Target.Clear
End If
End If
End Sub
Als het over B1:B3 gaat
Onderstaand bericht is gepost in het vorige formu. Ik heb geprobeerd maar krijg het niet aan de praat.
Als ik dit invul kan ik nog altijd bij alle cellen iets invullen..... Iemand een idee wat ik fout doe??
Of als ik iemand het document toe kan sturen? Zodat het duidelijker wordt wat ik bedoel/fout doe
ImSo
Hmm het kan met formule maar dan is het niet monkeyproof.
Selecteer A1:A3, ga naar Data - Valideren.
Kies bij Toestaan voor Aangepast en vul in bij de formule:
=AANTALARG(A$1:A$3)=1
Dan krijgt men een foutmelding als er in A1 al iets staat en ze proberen A2 in te vullen. Maar A2 vult zich nog wel
Dus macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
If Range("B1:B3").Cells.SpecialCells(xlCellTypeBlanks).Count = 1 Then
MsgBox "Nee man er staat toch al een waarde ingevuld!"
Target.Clear
End If
End If
End Sub
Als het over B1:B3 gaat
Ik pm jullie 2 wel een plaatjequote:Op maandag 16 augustus 2010 14:31 schreef DaFan het volgende:
[..]
FYP
Wat heb je allemaal gemaakt dan?
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.
Ik heb gereplied naar Imso:
In welke cellen wil je voorkomen dat dit kan Imso?quote:Dit is een 'macro', stuk code, die elke keer runt als je iets aanpast in je sheet. Daarna kijkt ie of het in de range is die we definieren.
Je moet deze plakken Visual basic editor:
Druk Alt-F11 (in Excel), dubbelklik links op ThisWorkbook en plak hem daar in.
Je zal B1:B3 moeten aanpassen naar de range waar het over gaat (als je met A, B, C bedoelt in cellen D6:D8 bv, dan zet je dat daar in).
Ik ben aan het werk en als je het daar in zet kunnen meer mensen meehelpen!
Bij verschillende regels wil ik het gebruiken.
Bij regel 7 de cellen I7 t/m K7
Bij regel 8 de cellen I8 t/m K8
Bij regel 9 de cellen I9 t/m K9
enz.
enz.
enz.
Al mijn gegevens staan in 1 blad.
Groetn
Bij regel 7 de cellen I7 t/m K7
Bij regel 8 de cellen I8 t/m K8
Bij regel 9 de cellen I9 t/m K9
enz.
enz.
enz.
Al mijn gegevens staan in 1 blad.
Groetn
PM gestuurdquote:Op maandag 16 augustus 2010 14:31 schreef DaFan het volgende:
[..]
FYP
Wat heb je allemaal gemaakt dan?
Wil jij het ook zien Qu63?
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.
Jaquote:Op maandag 16 augustus 2010 15:33 schreef kanovinnie het volgende:
[..]
PM gestuurd
Wil jij het ook zien Qu63?
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]
Damn dat maakt het wel een stuk lastiger.
Ik heb ook een foutje gemaakt, je moet ipv in ThisWorkbook moet je hem plaatsen in de sheet waar je hem nodig hebt (Alt-F11, dubbelklik op het werkblad links).
Ga ff kijken voor je.
Ik heb ook een foutje gemaakt, je moet ipv in ThisWorkbook moet je hem plaatsen in de sheet waar je hem nodig hebt (Alt-F11, dubbelklik op het werkblad links).
Ga ff kijken voor je.
Beetje omslachtig....maar goed hij werkt imo
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | If Not Intersect(Target, Range("I7:K9")) Is Nothing Then Dim c As Range i = 0 For Each c In Range("I" & Target.Row & ":K" & Target.Row) If c.Value <> "" Then i = i + 1 End If Next If i > 1 Then MsgBox "Er staat al een waarde in deze rij!" Target.Clear End If End If End Sub |
Je hebt hem!quote:
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.
Ik snap er niet zoveel van maar die laatste zin 
"Ik kan helaas niet zeggen waar het voor is"
Omg ik heb geholpen met het bouwen van een atoombom...
Werktuigbouwkunde enzo is nooit mn sterkste kant geweest.
"Ik kan helaas niet zeggen waar het voor is"
Omg ik heb geholpen met het bouwen van een atoombom...
Werktuigbouwkunde enzo is nooit mn sterkste kant geweest.
Ik denk niet dat het bedrijf het leuk vind als ik tekeningen loop te verspreiden, en vertel waar het voor is. Het is niet supergeheim ofzo, maar ik ga ook geen toestemming vragen om een uitgebreide uitleg op internet te zetten.quote:Op maandag 16 augustus 2010 15:51 schreef DaFan het volgende:
Ik snap er niet zoveel van maar die laatste zin
"Ik kan helaas niet zeggen waar het voor is"
Omg ik heb geholpen met het bouwen van een atoombom...
Werktuigbouwkunde enzo is nooit mn sterkste kant geweest.
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.
Ik heb het script ingevoerd in Visual Basic in het tabblad ThisWorkbook.
Moet ik deze opslaan of activeren? heb alles gedaan zoals je zei maar hij doet het bij mij op dit moment nog niet.
GR ImSo
Moet ik deze opslaan of activeren? heb alles gedaan zoals je zei maar hij doet het bij mij op dit moment nog niet.
GR ImSo
Nee je moet hem niet in ThisWorkbook zetten;quote:Op maandag 16 augustus 2010 16:07 schreef imso1986 het volgende:
Ik heb het script ingevoerd in Visual Basic in het tabblad ThisWorkbook.
Moet ik deze opslaan of activeren? heb alles gedaan zoals je zei maar hij doet het bij mij op dit moment nog niet.
GR ImSo
In het werkblad waar het over gaat.
Daarna gewoon het kruisje klikken, dan wordt ie vanzelf opgeslagen.
Stage? Zou het ook lekker voor je houdenquote:Op maandag 16 augustus 2010 15:52 schreef kanovinnie het volgende:
[..]
Ik denk niet dat het bedrijf het leuk vind als ik tekeningen loop te verspreiden, en vertel waar het voor is. Het is niet supergeheim ofzo, maar ik ga ook geen toestemming vragen om een uitgebreide uitleg op internet te zetten.
Dat wisten we wel!quote:Op maandag 16 augustus 2010 16:50 schreef Jo0Lz het volgende:
[Excel] Het grote Excel vragen topic #23 New topic!
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]
Neuh, vakantiewerk.quote:Op maandag 16 augustus 2010 16:19 schreef DaFan het volgende:
[..]
Stage? Zou het ook lekker voor je houden
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.
