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.
Het grote Excel vragen topic deeltje 5 al weer
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
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
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
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
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Volgens mij waren alle vragen uit het vorige topic al beantwoord, zo niet dan horen we het wel.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
nou jongen, je topic is er dan!! 
Ik zal morgen testen of je tip werkte, zo niet zie je het hier wel verschijnen
Ik zal morgen testen of je tip werkte, zo niet zie je het hier wel verschijnen
Ja leuke vraag heb ik even.
Als ik een lijst met gegevens heb uit een csv bestand en ik loop deze door dan is de 1-ste regel, waarin de kolomnamen niet meer zichtbaar.
Je kan met een soort van anchor of andere highlight deze altijd mee laten lopen als je scrollt. Hoe doe je dat ook alweer.
Als ik een lijst met gegevens heb uit een csv bestand en ik loop deze door dan is de 1-ste regel, waarin de kolomnamen niet meer zichtbaar.
Je kan met een soort van anchor of andere highlight deze altijd mee laten lopen als je scrollt. Hoe doe je dat ook alweer.
Deeeeeetch!!!! :P
De eerste werkt wel, de tweede niet. Krijg ook geen foutmelding o.i.d trouwens, gewoon.. niks? :P
Werkt niet ;(quote:Op dinsdag 8 april 2008 21:24 schreef Deetch het volgende:
als je de regels 2 tm 10 van je bericht van maandag 7 april 2008 @ 09:31 steeds direct boven de end sub kopieert en dan de celverwijzingen aanpast zou het goed moeten gaan.
Kan vast mooier maar het zou wel moeten werken.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else Exit Sub End If If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else Exit Sub End If End Sub |
De eerste werkt wel, de tweede niet. Krijg ook geen foutmelding o.i.d trouwens, gewoon.. niks? :P
Uhm, als je eerste if niet geldt dan gaat hij uit de sub (in die else) toch? Dus je onderliggende code is onbereikbaar in dat geval. Als beide ifs tegelijk kunnen (ik ken de context van dit geval niet), dan heb ik niets gezegd 
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
Je hebt gelijk, maar in een andere macro werkt het wel, op dezelfde manier. Maar ik ben es gaan kijken naar wat je zegt, en inderdaad.. door de 'end sub' eruit te slopen werkt het wel:quote:Op woensdag 9 april 2008 09:22 schreef Pheno het volgende:
Uhm, als je eerste if niet geldt dan gaat hij uit de sub (in die else) toch? Dus je onderliggende code is onbereikbaar in dat geval. Als beide ifs tegelijk kunnen (ik ken de context van dit geval niet), dan heb ik niets gezegd :)
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else End If If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!" End If Else End If End Sub |
Bij die andere macro zou het zo kunnenz ijn dat de eerste if waar was (dus uitgevoerd) en dan wordt er nog gechecked op de volgende if.
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
Tnx, wist even niet waar ik op moest zoeken en heb weer alles op moeten spitten omdat ik een nederlandse excel heb.quote:Op woensdag 9 april 2008 00:05 schreef DaFan het volgende:
Tweede rij selecteren, Window -> Freeze panes
Daar is het dus "venster -> titels blokkeren". Kut vertalingen.
Hmm ik heb een vakje waarin een tijd (geen datum dit keer 
) ingevoerd moet worden in digitale versie. (treintijd ) Maar nu ziet hij tijdstip 0:00 niet als tijd, en maakt de cel weer leeg na invoeren. 0:01 en 23:59 ziet hij wel goed, behalve 0:00, hij ziet dit als 'geen data' denk ik..?
) ingevoerd moet worden in digitale versie. (treintijd ) Maar nu ziet hij tijdstip 0:00 niet als tijd, en maakt de cel weer leeg na invoeren. 0:01 en 23:59 ziet hij wel goed, behalve 0:00, hij ziet dit als 'geen data' denk ik..?
Ik heb hem in het nederlands, en met vertalen/fantasie kom ik nergens waar dat op lijkt..?quote:Op woensdag 9 april 2008 14:08 schreef DaFan het volgende:
Options -> Display options -> Show zero in cells that have a zero value.
In office 2003: tools->options->view tabblad (staat het al op) en dan zero values aanvinken
Ik weet niet welke versie je hebt?
Ik weet niet welke versie je hebt?
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
Dat dacht ik al, daarom altijd naar de versie vragen 
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
quote:Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Horror als je ze inderdaad allemaal nodig hebt
Tja, als je een tekstlogging hebt van 160 mb die je eens netjes doorzoekbaar wilt makenquote:Op donderdag 10 april 2008 10:59 schreef Thrilled het volgende:
[..]
Maar goed, het gaat er om dat je workarounds hebt, dus alles is op te lossen
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
Ah, dat is wel handig. tegen de tijd dat mijn baas bedenkt dat we allemaal aan de office 2007 moeten dan laat ik hem dat stukje software wel zien.
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
vind de max van 256 rijen erger (althans voor office 97). Kan geneens een jaaroverzicht maken voor alle dagen van een jaar...quote:Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Tweede worksheet maken? Of een worksheet per maand met max 31 rijen , zodat je naast een jaaroverzicht (die dan in 12 rijen nodig heeft) ook een prima maandoverzicht hebt? Of als je het een beetje slim aanpakt uit de maandoverzichten, ook een jaaroverzicht kan genereren?
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
Ja, ik snap ook wel dat er alternatieven zijn, maar een goed overzicht over een jaar voor mij was toch echt het makkelijkst met 1 jaar per sheet. Heb het nu per kwartaal gedaan, maar vond één sheet toch mooier.quote:Op donderdag 10 april 2008 11:36 schreef Pheno het volgende:
Tweede worksheet maken? Of een worksheet per maand met max 31 rijen , zodat je naast een jaaroverzicht (die dan in 12 rijen nodig heeft) ook een prima maandoverzicht hebt? Of als je het een beetje slim aanpakt uit de maandoverzichten, ook een jaaroverzicht kan genereren?
Okay, ik heb eigenlijk 2 vraagjes:
1) Ik heb een Excel bestand met zo'n 14 tabbladen met allerlei projectinfo. Het 1e tabblad is een verzameling van de info op de andere sheets, tabblad 2 - 15 bevat project info, en tabblad 16 is hidden maar bevat wat aantekeningen die ik nodig heb.
Op tabblad 2-15 staat op elke pagina in kolom J, K en L allerlei budgetinfo. Niet handig natuurlijk als ik het sheet naar iemand wil sturen die die informatie helemaal niks aangaat. Daarom vroeg ik me af of ik met een button misschien makkelijk een commando kan geven waarmee in tabblad 2-15 kolom J, K en L automatisch verwijderd worden.
2) Op m'n 16e tabblad wil ik eigenlijk dat in een bepaalde cel de datum komt te staan waarin het Excel bestand voor het laatst is opgeslagen. Een soort version control, maar dan wat simpeler. Op dit moment update ik het steeds handmatig, maar dat begint wat vervelend te worden en ik had eigenlijk gehoopt dat het automatisch kon.
Alvast bedankt voor jullie kennis
1) Ik heb een Excel bestand met zo'n 14 tabbladen met allerlei projectinfo. Het 1e tabblad is een verzameling van de info op de andere sheets, tabblad 2 - 15 bevat project info, en tabblad 16 is hidden maar bevat wat aantekeningen die ik nodig heb.
Op tabblad 2-15 staat op elke pagina in kolom J, K en L allerlei budgetinfo. Niet handig natuurlijk als ik het sheet naar iemand wil sturen die die informatie helemaal niks aangaat. Daarom vroeg ik me af of ik met een button misschien makkelijk een commando kan geven waarmee in tabblad 2-15 kolom J, K en L automatisch verwijderd worden.
2) Op m'n 16e tabblad wil ik eigenlijk dat in een bepaalde cel de datum komt te staan waarin het Excel bestand voor het laatst is opgeslagen. Een soort version control, maar dan wat simpeler. Op dit moment update ik het steeds handmatig, maar dat begint wat vervelend te worden en ik had eigenlijk gehoopt dat het automatisch kon.
Alvast bedankt voor jullie kennis
Is dit niet gewoon op te lossen met de bladen beveiligen met een wachtwoord en dan te verbergen?quote:Op maandag 14 april 2008 21:30 schreef G-Mart het volgende:
Okay, ik heb eigenlijk 2 vraagjes:
1) Ik heb een Excel bestand met zo'n 14 tabbladen met allerlei projectinfo. Het 1e tabblad is een verzameling van de info op de andere sheets, tabblad 2 - 15 bevat project info, en tabblad 16 is hidden maar bevat wat aantekeningen die ik nodig heb.
Op tabblad 2-15 staat op elke pagina in kolom J, K en L allerlei budgetinfo. Niet handig natuurlijk als ik het sheet naar iemand wil sturen die die informatie helemaal niks aangaat. Daarom vroeg ik me af of ik met een button misschien makkelijk een commando kan geven waarmee in tabblad 2-15 kolom J, K en L automatisch verwijderd worden.
[ Bericht 21% gewijzigd door Thrilled op 14-04-2008 22:33:25 ]
dan kan je alsnog de data uit kunnen lezen door bijvoorbeeld in A1 "=J1" etc. te zettenquote:Op maandag 14 april 2008 22:27 schreef Thrilled het volgende:
[..]
Is dit niet gewoon op te lossen met de bladen beveiligen met een wachtwoord en dan te verbergen?
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]
1)quote:Op maandag 14 april 2008 21:30 schreef G-Mart het volgende:
Okay, ik heb eigenlijk 2 vraagjes:
1) Ik heb een Excel bestand met zo'n 14 tabbladen met allerlei projectinfo. Het 1e tabblad is een verzameling van de info op de andere sheets, tabblad 2 - 15 bevat project info, en tabblad 16 is hidden maar bevat wat aantekeningen die ik nodig heb.
Op tabblad 2-15 staat op elke pagina in kolom J, K en L allerlei budgetinfo. Niet handig natuurlijk als ik het sheet naar iemand wil sturen die die informatie helemaal niks aangaat. Daarom vroeg ik me af of ik met een button misschien makkelijk een commando kan geven waarmee in tabblad 2-15 kolom J, K en L automatisch verwijderd worden.
2) Op m'n 16e tabblad wil ik eigenlijk dat in een bepaalde cel de datum komt te staan waarin het Excel bestand voor het laatst is opgeslagen. Een soort version control, maar dan wat simpeler. Op dit moment update ik het steeds handmatig, maar dat begint wat vervelend te worden en ik had eigenlijk gehoopt dat het automatisch kon.
Alvast bedankt voor jullie kennis :)
| 1 2 3 4 5 | For Each sh In Array("Blad 1", "blad 2", "pagina zoveel", "etc") Sheets(sh).Columns("J:L").Delete Next sh End Sub |
2)
| 1 2 3 | Sheets("16e sheet").Range("Bepaalde cel").Value = date End Sub |
zoiets?
