abonnement Unibet Coolblue Bitvavo
pi_57308750
quote:
Op dinsdag 11 maart 2008 16:12 schreef Thrilled het volgende:

[..]

Ik krijg het niet voor elkaar om het fout te doen Geen idee wat er mis is met je excel
Formules rekent ie dus helemaal niet meer automatisch door
Excel 2000 trouwens, en in de taakbalk van Excel (onderin) staat constant Berekenen.
pi_57309222
ga dan naar menu optie tools, opties en op tabblad berekenen zet je het vinkje voor automatisch bereken aan.
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
pi_57309340
quote:
Op dinsdag 11 maart 2008 16:36 schreef Stansfield het volgende:
Hoe krijg je zo'n code normaal in zijn totaliteit? Zoder dat hij afrond
7E+17
Het moet zijn 700678021019033978, maar in de regel staat: 700678021019033000 en in het veld dus 7E+17.

Hoe krijg ik dus gewoon 700678021019033978 (wat ik typ) in het veld te staan?
Dat lijkt wel een excel beperking.
Met deze afronding heb je nl. precies 16 posities (15 getallen plus teken (+/-) en een macht van 10)
Heb je al die laatste getallen nodig want die lijken me niet heel veel bijdragen aan het grote geheel.
Als je ze als tekst invoert, met een ' ervoor blijven ze wel staan.
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
pi_57309897
quote:
Op dinsdag 11 maart 2008 17:14 schreef Deetch het volgende:
ga dan naar menu optie tools, opties en op tabblad berekenen zet je het vinkje voor automatisch bereken aan.
Morgen ff proberen
Snap alleen niet hoe zoiets opeens uit kan staan
pi_57312449
quote:
Op dinsdag 11 maart 2008 17:19 schreef Deetch het volgende:

[..]

Dat lijkt wel een excel beperking.
Met deze afronding heb je nl. precies 16 posities (15 getallen plus teken (+/-) en een macht van 10)
Heb je al die laatste getallen nodig want die lijken me niet heel veel bijdragen aan het grote geheel.
Als je ze als tekst invoert, met een ' ervoor blijven ze wel staan.
Ik had ze nodig voor verticaal zoeken. Maar ik heb het al opgelost door alleen de laatste 3 cijfers te gebruiken. Toch bedankt.
pi_57312891
Heu folks,

Ik kan bij de help en faq wel vinden hoe ik losse cellen van Book1 kan linken met Book2.
Probleemis: ik heb een schema met kleurtjes.
Ik krijg het voor elkaar een link te maken van a1..k20 van book1 naar book2.
Dan krijg ik alle getalletjes netjes gecopieerd, als ik een 5 typ in book 1 update ie het netjes naar book2. Prima!

Echter, de opmaak, dus de kleurtjes verandert ie dan niet. Weet iemand of je de opmaak ook kunt linken en laten updaten als ik het bijvoorbeeld verander in book1 ?
pi_57318407
hey zijn we nu een centraal topic geworden? Promotie!!!!!!
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
pi_57318452
quote:
Op dinsdag 11 maart 2008 20:02 schreef Noin het volgende:
Heu folks,

Ik kan bij de help en faq wel vinden hoe ik losse cellen van Book1 kan linken met Book2.
Probleemis: ik heb een schema met kleurtjes.
Ik krijg het voor elkaar een link te maken van a1..k20 van book1 naar book2.
Dan krijg ik alle getalletjes netjes gecopieerd, als ik een 5 typ in book 1 update ie het netjes naar book2. Prima!

Echter, de opmaak, dus de kleurtjes verandert ie dan niet. Weet iemand of je de opmaak ook kunt linken en laten updaten als ik het bijvoorbeeld verander in book1 ?
Dat zou met een macro kunnen maar dan moet je die in een Onchange event drukken. kun je niet veel beter de opmaak in je tweede book opnieuw kopieren, ik neem tenminste aan dat de kleurtjes dmv voorwaardelijke opmaak worden gegenereerd?
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
pi_57321595
quote:
Op dinsdag 11 maart 2008 17:14 schreef Deetch het volgende:
ga dan naar menu optie tools, opties en op tabblad berekenen zet je het vinkje voor automatisch bereken aan.
En het werkt nog ook
pi_57332148
quote:
Op dinsdag 11 maart 2008 23:29 schreef Deetch het volgende:

[..]

Dat zou met een macro kunnen maar dan moet je die in een Onchange event drukken. kun je niet veel beter de opmaak in je tweede book opnieuw kopieren, ik neem tenminste aan dat de kleurtjes dmv voorwaardelijke opmaak worden gegenereerd?

Eeehhh...
Ik ga denk ik nog maar effe wat lezen over Excel want ik heb hier geen woord van begrepen.
Ik zal wel eens kijken of ikidd iets met macro's kan regelen.

thnx voor de tip!
pi_57337792
Hoi, ik ben niet zo goed met Excel macro's maar ik heb nu een functie nodig en het is net iets te complex om mijn vraag om te zetten in goede trefwoorden voor Google dus ik hoop dat er hier wat mensen zijn die me uit de brand kunnen helpen.

Ik heb een Excel file met 2 tabbladen. Nu heb ik op tabblad 2 een 'aanvinkbox'. Nu wil ik het eigenlijk zo hebben, dat als ik die box aanvink dat er dan een cel op tabblad 1 groen kleurt. En als het aanvinkboxje niet aangevinkt is moet diezelfde cel rood zijn.

Iemand enig idee hoe ik dit zou moeten doen ...
pi_57368337
Weet iemand of het mogelijk is om bij een cel een datum in te voeren en die te limiteren? Ik wil dat ze in een cel nooit een datum in kunnen voeren die gister, of langer geleden was. Alleen vandaag en de toekomst in dus.
pi_57368883
quote:
Op vrijdag 14 maart 2008 09:16 schreef Thrilled het volgende:
Weet iemand of het mogelijk is om bij een cel een datum in te voeren en die te limiteren? Ik wil dat ze in een cel nooit een datum in kunnen voeren die gister, of langer geleden was. Alleen vandaag en de toekomst in dus.
Je selecteert de cel (bijv B3) en kiest dan in het menu Data voor Validation. Daar kun je de optie custom aanvinken en in de regel formula typ je dan:

1
2
3
=B3>Round(Now(),0)       om data toe te staan van vandaag 0:00
=B3>Round(Now()-1,0)     om data toe te staan vanaf gisteren 0:00
=B3>Date(2008,1,14)      om data toe te staan vanaf 14 jan 2008


Als je NL versie gebruikt:
Round = Afronden
Now = Nu
Date = Datum
, = ; in formules
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
pi_57369310
Ik heb het anders opgelost. Door jou antwoord kwam ik bij Data > Validation ook bij de mogelijkheid om 'Datum' te kiezen. Daar dan de waarde 'groter dan' en in de formule balk =NU() gedaan. Gevolg: foutmelding bij datum eerder dan het huidige tijdstip. Toch bedankt
pi_57373369
quote:
Op woensdag 12 maart 2008 22:17 schreef G-Mart het volgende:
Hoi, ik ben niet zo goed met Excel macro's maar ik heb nu een functie nodig en het is net iets te complex om mijn vraag om te zetten in goede trefwoorden voor Google dus ik hoop dat er hier wat mensen zijn die me uit de brand kunnen helpen.

Ik heb een Excel file met 2 tabbladen. Nu heb ik op tabblad 2 een 'aanvinkbox'. Nu wil ik het eigenlijk zo hebben, dat als ik die box aanvink dat er dan een cel op tabblad 1 groen kleurt. En als het aanvinkboxje niet aangevinkt is moet diezelfde cel rood zijn.

Iemand enig idee hoe ik dit zou moeten doen ...
Anyone?
pi_57373981
1
2
3
4
5
If Sheet2.[naam checkbox].Value = True Then
  Sheet1.Range([cel]).Color = Green
Else
  Sheet1.Range([cel]).Color = Red
End If

Deze moet in een Change event komen van de aanvinkbox.

[ Bericht 4% gewijzigd door DaFan op 14-03-2008 17:33:55 ]
pi_57373991
Ik weet niet 100% zeker of .Color werkt anders moet het iets worden van Background = Green etc maar dat kan je zelf wel vinden neem ik aan
pi_57376153
nevermind

[ Bericht 81% gewijzigd door Deetch op 14-03-2008 15:22:15 ]
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
pi_57376188
doh dubbel

het is weer vrijdag hoor

[ Bericht 63% gewijzigd door Deetch op 14-03-2008 15:22:46 ]
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
pi_57376296
quote:
Op vrijdag 14 maart 2008 13:46 schreef DaFan het volgende:
Ik weet niet 100% zeker of .Color werkt anders moet het iets worden van Background = Green etc maar dat kan je zelf wel vinden neem ik aan
Range("A2").Interior.Color = Green
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
pi_57377445
Heren,

Ik heb een rij met daarin een aantal oplopende datum's. Daar naast een rij met de namen van die dag (maaandag, dinsdag etc...) Nu wil ik een grafiek maken met op de horizontale-as de datums maar dan niet die van de zaterdag. Nu kan ik dat gewoon selecteren, maar ik wil graag dat het automatische gaat zodat ik niet elke maand een hele zooi grafieken moet aanspassen voor hun bereik.
Bij voorbaat dank,
In het verleden behaalde resultaten bieden geen garantie voor de toekomst!
pi_57378413
Als je nou een dynamische naam maakt zoals in dat artikel aangegeven uit je vorige topic?
pi_57378554
quote:
Op woensdag 12 maart 2008 22:17 schreef G-Mart het volgende:
Hoi, ik ben niet zo goed met Excel macro's maar ik heb nu een functie nodig en het is net iets te complex om mijn vraag om te zetten in goede trefwoorden voor Google dus ik hoop dat er hier wat mensen zijn die me uit de brand kunnen helpen.

Ik heb een Excel file met 2 tabbladen. Nu heb ik op tabblad 2 een 'aanvinkbox'. Nu wil ik het eigenlijk zo hebben, dat als ik die box aanvink dat er dan een cel op tabblad 1 groen kleurt. En als het aanvinkboxje niet aangevinkt is moet diezelfde cel rood zijn.

Iemand enig idee hoe ik dit zou moeten doen ...
quote:
Op vrijdag 14 maart 2008 13:19 schreef G-Mart het volgende:

[..]

Anyone?
Ik zag je probleem op mijn stage al en begrijp je 'probleem'.

Wil je als basis een blanco vakje hebben?Dus bij opstarten > blanco, bij aanvinken > groen, uitvinken > rood.

Wat heb je al geprobeerd met macro opnemen?
pi_57378614
Code is al gepost Thrilled
pi_57378827
maar werkt niet bij mij En hij heeft nog niet gereageerd
pi_57378963
Correct maar Deetch heeft de correcte code voor achtergrondkleur gepost Gaat om de opbouw van de code.
Maar volgens mij kan je idd bij het neerzetten van de box ook aangeven ergens in de properties..
pi_57393830
Ik heb nog s gekeken en Thrilled je hebt gelijk ik kreeg het ook niet ana de praat

Je kan het volgende doen: Maak een checkbox, en zet onder Properties -> LinkedCell de cel die je wilt laten veranderen.
Ga dan naar die Cel en ga naar Format -> Conditional Formatting. Daar zet je in:
Formula = [cel] =TRUE
Formula = [cel] = FALSE

True geef je dan groene letters en een groene achtergrondkleur, False geef je rood + rood. Dit om te voorkomen dat er TRUE en FALSE in je cel komt te staan...

Beetje workaround maar ik hoop dat dat een antwoord op je vraag is G-Mart.
pi_57393902
Thanks voor al jullie hulp, ik hoop het later vandaag te kunnen uitproberen, sinds dat ik het heb gepost heb ik er geen tijd meer voor gehad (hele dag vergaderingen, blegh). Ik hoop dat het lukt want zoals ik het nu lees ziet het er vrij complex uit (m'n excel skills zijn niet echt goed). Nogmaals bedankt voor alle hulp in ieder geval .
pi_57448659
Hm, het doet niks. Ik heb het volgende in m'n macro gezet:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CheckBox1_Click()
'
' CheckBox1_Click Macro
' Macro recorded 11/03/2008 by Administrator
'

'
    If Sheet2.[naam checkbox].Value = True Then
  Sheet1.Range(["J9"]).Interior.Color = Green
Else
  Sheet1.Range(["J9"]).Intertior.Color = Red
End If
End Sub


Maar er gebeurd dus helemaal niks gek genoeg ..
pi_57449054
typo: Intertior
en ik weet niet of het uitmaakt, maar de range kan je ook gewoon typeren als: Range("B3") dus zonder de brackets [ ]

even fixen en nog een keer kijken

Even voor mij weer een nieuwe schreeuw om hulp

Hoe kan ik in een mailmacro een controle toevoegen of 1 cel is ingevuld (de naam van de melder). Als die cel leeg is mag er niet gemaild worden..

Ook wil ik weten of het uberhaupt mogelijk is om een excel sheet te mailen als pdfbijlage zonder externe programma's of plug/addins. Dus gewoon kaal vanuit excel als pdf in een mail zetten..
pi_57449135
quote:
Op dinsdag 18 maart 2008 11:02 schreef Thrilled het volgende:
typo: Intertior
en ik weet niet of het uitmaakt, maar de range kan je ook gewoon typeren als: Range("B3") dus zonder de brackets [ ]

even fixen en nog een keer kijken

Even voor mij weer een nieuwe schreeuw om hulp

Hoe kan ik in een mailmacro een controle toevoegen of 1 cel is ingevuld (de naam van de melder). Als die cel leeg is mag er niet gemaild worden..

Ook wil ik weten of het uberhaupt mogelijk is om een excel sheet te mailen als pdfbijlage zonder externe programma's of plug/addins. Dus gewoon kaal vanuit excel als pdf in een mail zetten..
Thanks, ik heb de typo gefixed en de brackets weggehaald, maar er gebeurd nog steeds niks helaas ..
pi_57449728
Ik heb je oplossing! tenminste, hij werkt bij mij:

1
2
3
4
5
6
7
8
Sub CheckBox1_Click()

  If Blad1.Range("J9").Value = True Then
     Blad1.Range("K9").Interior.ColorIndex = 4
  Else
     Blad1.Range("K9").Interior.ColorIndex = 3
  End If
End Sub


Bij mij is mijn excel nederlands dus let even op:
Blad1 = Sheet1 (of welke sheet dan ook, hou de namen wel identiek)

Als je 3x blad1 vervangt door sheet1 werkt deze code feilloos de cellen kan je aanpassen natuurlijk. J9 is de cel waar de checkbox naar verwijst, als je deze aanpast moet je ook in de eigenschappen van de checkbox de cel aanpassen
K9 is volledig willekeurig, elke cel kan je selecteren

als de kleuren niet naar je zin zijn moet je de colorindex aanpassen (de 3 en de 4 staan nu voor groen en rood)
http://www.mvps.org/dmcritchie/excel/colors.htm
ff naar onder scrollen en daar staat een kleurenoverzicht

De cel waar TRUE en FALSE (WAAR/ONWAAR) in komt te staan kan je verbergen, dus heb je daar ook geen last van.
pi_57475137
quote:
Op dinsdag 18 maart 2008 11:36 schreef Thrilled het volgende:
Ik heb je oplossing! tenminste, hij werkt bij mij:
[ code verwijderd ]

Bij mij is mijn excel nederlands dus let even op:
Blad1 = Sheet1 (of welke sheet dan ook, hou de namen wel identiek)

Als je 3x blad1 vervangt door sheet1 werkt deze code feilloos de cellen kan je aanpassen natuurlijk. J9 is de cel waar de checkbox naar verwijst, als je deze aanpast moet je ook in de eigenschappen van de checkbox de cel aanpassen
K9 is volledig willekeurig, elke cel kan je selecteren

als de kleuren niet naar je zin zijn moet je de colorindex aanpassen (de 3 en de 4 staan nu voor groen en rood)
http://www.mvps.org/dmcritchie/excel/colors.htm
ff naar onder scrollen en daar staat een kleurenoverzicht

De cel waar TRUE en FALSE (WAAR/ONWAAR) in komt te staan kan je verbergen, dus heb je daar ook geen last van.
Doet hier helaas niks ..

Ik heb m'n macro nu zo staan:

1
2
3
4
5
6
7
8
Sub CheckBox1_Click()

  If Sheet1.Range("J9").Value = True Then
     Sheet1.Range("K9").Interior.ColorIndex = 4
  Else
     Sheet1.Range("K9").Interior.ColorIndex = 3
  End If
End Sub


maar er gebeurt helemaal niks. Misschien overbodige informatie, maar ik heb de checkbox op sheet 2 staan en het groene/rode vlak zou in sheet 1 (de 'voorpagina' moeten verschijnen).

@Thrilled: Zou je me misschien anders je voorbeeld Excel file willen doorsturen, zodat ik die misschien aan kan passen?
pi_57475984
Mogelijke dingen die fout kunnen gaan:
- Je laat waarschijnlijk de macro kijken naar de verkeerde cel, of naar het verkeerde blad.

In de macro zeg je (in jip en janneke taal):
"Als er op Sheet 1 in cel J9 het woordje "True" staat, dan maak je in Sheet 1 cel K9 de kleur groen (4), zo niet dan maak je hem rood
Meer wordt er niet gedefineerd.

- Je laat de checkbox verwijzen naar een verkeerde cel (of je verwijst hem nergens naar).

Bij het aan/uitvinken van een cel krijgt de checkbox een waarde. TRUE voor aangevinkt, FALSE voor uitgevinkt. Als de macro nergens die waarde terug kan vinden weet hij ook niet wanneer hij nou wel of niet een vakje moet in kleuren.

Ik kopieer net jou geplakte macro in een nieuwe excel sheet en ook hier werkt hij weer.. stappenplan:
- Open excel en gooi op Sheet2 ergens een checkbox neer.
- Rechtermuisknop op deze zojuist gemaakte checkbox en kies "Besturingselement Opmaken" (geen idee hoe dit in het engels weergegeven wordt, je moet in ieder geval in het 'eigenschappen' gedeelte komen van de checkbox)
- Hier zie je onderaan een invoerbalk met de tekst: "Link with celll: [ invoerbalk ] en een knopje waarin je een miniatuurweergave ziet van een spreadsheet. Ongeveer
- Klik dát kleine vierkantje aan, nu veranderd het menu in een smalle balk en kan je een cel selecteren. Klik nu eerst op "Sheet 1" en dan bijvoorbeeld op cel J9, nu komt er in die kleine balk Sheet1!$J$9 te staan. Druk 2 maal op enter.

Nu heb je alleen de checkbox laten verwijzen naar die specifieke cel. Als je nu je checkbox uit of aanvinkt komt er op Sheet 1 in cel J9 'TRUE' en 'FALSE' te staan. Als dit niet zo is, moet je het nog een keer proberen..

Nu gaan we de macro er aan toevoegen..
- Druk op Alt + F11 en het Visual Basic venster verschijnt
- in de menubalk bovenaan: Invoegen > Module (Insert > Module)
- Plak daar de volgende code:
1
2
3
4
5
6
7
8
Sub Kleurtjes()

  If Sheet1.Range("J9").Value = True Then
     Sheet1.Range("K9").Interior.ColorIndex = 4
  Else
     Sheet1.Range("K9").Interior.ColorIndex = 3
  End If
End Sub


- Klik op kruisje en nu zit je weer in je excelsheet. Macro is gemaakt, Checkbox is gemaakt.. nu de macro aan de checkbox koppelen..
- Rechtermuisknop op de checkbox en selecteer "Macro toewijzen", in de nederlandse versie is dit de één-na-laatste optie.
- Nu zie je een venster waarin je als het goed is de macro 'kleurtjes' moet zien staan. Selecteer deze, druk op OK en hij moet het doen.

Mocht dit nóg niet lukken, PM me even je mailadres

Let dus even op de verschillen in de taal he.. Sheet = Blad.. cellen kun je aanpassen naar wens. Let wel op dat als je de cel waarnaar de checkbox verwijst wilt veranderen, je ook in de macro de cel moet aanpassen. Hetzelfde met de cel die je in wilt kleuren
pi_57476735
quote:
Op woensdag 19 maart 2008 14:17 schreef Thrilled het volgende:
Mogelijke dingen die fout kunnen gaan:
- Je laat waarschijnlijk de macro kijken naar de verkeerde cel, of naar het verkeerde blad.

In de macro zeg je (in jip en janneke taal):
"Als er op Sheet 1 in cel J9 het woordje "True" staat, dan maak je in Sheet 1 cel K9 de kleur groen (4), zo niet dan maak je hem rood
Meer wordt er niet gedefineerd.

- Je laat de checkbox verwijzen naar een verkeerde cel (of je verwijst hem nergens naar).

Bij het aan/uitvinken van een cel krijgt de checkbox een waarde. TRUE voor aangevinkt, FALSE voor uitgevinkt. Als de macro nergens die waarde terug kan vinden weet hij ook niet wanneer hij nou wel of niet een vakje moet in kleuren.

Ik kopieer net jou geplakte macro in een nieuwe excel sheet en ook hier werkt hij weer.. stappenplan:
- Open excel en gooi op Sheet2 ergens een checkbox neer.
- Rechtermuisknop op deze zojuist gemaakte checkbox en kies "Besturingselement Opmaken" (geen idee hoe dit in het engels weergegeven wordt, je moet in ieder geval in het 'eigenschappen' gedeelte komen van de checkbox)
- Hier zie je onderaan een invoerbalk met de tekst: "Link with celll: [ invoerbalk ] en een knopje waarin je een miniatuurweergave ziet van een spreadsheet. Ongeveer
- Klik dát kleine vierkantje aan, nu veranderd het menu in een smalle balk en kan je een cel selecteren. Klik nu eerst op "Sheet 1" en dan bijvoorbeeld op cel J9, nu komt er in die kleine balk Sheet1!$J$9 te staan. Druk 2 maal op enter.

Nu heb je alleen de checkbox laten verwijzen naar die specifieke cel. Als je nu je checkbox uit of aanvinkt komt er op Sheet 1 in cel J9 'TRUE' en 'FALSE' te staan. Als dit niet zo is, moet je het nog een keer proberen..

Nu gaan we de macro er aan toevoegen..
- Druk op Alt + F11 en het Visual Basic venster verschijnt
- in de menubalk bovenaan: Invoegen > Module (Insert > Module)
- Plak daar de volgende code:
[ code verwijderd ]

- Klik op kruisje en nu zit je weer in je excelsheet. Macro is gemaakt, Checkbox is gemaakt.. nu de macro aan de checkbox koppelen..
- Rechtermuisknop op de checkbox en selecteer "Macro toewijzen", in de nederlandse versie is dit de één-na-laatste optie.
- Nu zie je een venster waarin je als het goed is de macro 'kleurtjes' moet zien staan. Selecteer deze, druk op OK en hij moet het doen.

Mocht dit nóg niet lukken, PM me even je mailadres

Let dus even op de verschillen in de taal he.. Sheet = Blad.. cellen kun je aanpassen naar wens. Let wel op dat als je de cel waarnaar de checkbox verwijst wilt veranderen, je ook in de macro de cel moet aanpassen. Hetzelfde met de cel die je in wilt kleuren
Vet, het werkt nu! Ontzettend bedankt man!

Is er een makkelijke manier om een rij met aanvinkboxjes te maken waarin meteen ook een rij groen/rode vlakken op de voorpagina verschijnt, of moet ik handmatig de macro steeds opnieuw aanmaken en eigenlijk het voorgaande proces steeds herhalen?
pi_57476888
Eindelijk

Nja als je de checkbox steeds kopieert neemt hij steeds dezelfde macro mee. Dus krijg je 10 checkboxes met allemaal dezelfde macro Als jij 10 verschillende checkboxes wil hebben met 10 verschillende vakjes zal je moeten kopieren + aanpassen..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Kleurtjes1()

If Sheet1.Range("J9").Value = True Then
   Sheet1.Range("K9").Interior.ColorIndex = 4
Else
   Sheet1.Range("K9").Interior.ColorIndex = 3
End If
End Sub

Sub Kleurtjes2()

If Sheet1.Range("J10").Value = True Then
   Sheet1.Range("K10").Interior.ColorIndex = 4
Else
   Sheet1.Range("K10").Interior.ColorIndex = 3
End If
End Sub

Sub Kleurtjes3()

If Sheet1.Range("J11").Value = True Then
   Sheet1.Range("K11").Interior.ColorIndex = 4
Else
   Sheet1.Range("K11").Interior.ColorIndex = 3
End If
End Sub


Bijvoorbeeld

Je zal hier vast wel handigere manieren voor hebben.. arrays ofzo maar weet ik zelf ook te weinig vanaf.. dit werkt gewoon
pi_57476929
quote:
Op woensdag 19 maart 2008 15:00 schreef Thrilled het volgende:
Eindelijk

Nja als je de checkbox steeds kopieert neemt hij steeds dezelfde macro mee. Dus krijg je 10 checkboxes met allemaal dezelfde macro Als jij 10 verschillende checkboxes wil hebben met 10 verschillende vakjes zal je moeten kopieren + aanpassen..
[ code verwijderd ]

Bijvoorbeeld

Je zal hier vast wel handigere manieren voor hebben.. arrays ofzo maar weet ik zelf ook te weinig vanaf.. dit werkt gewoon
Okay, niet ideaal maar ik moet het er maar mee doen. Nogmaals bedankt voor je hulp .
pi_57477397
Tsja ideaal of niet, je zal altijd met het 'probleem' zitten dat je handmatig moet toekennen waar hij zn info vandaan moet halen en waar hij zn output in moet stoppen, daar ontkom je gewoon niet aan. De code kan alleen efficiënter door niet steeds opnieuw een 'if-else' constructie te starten maar mijn kennis is niet goed genoeg om daar een oplossing voor te vinden

en graag gedaan
pi_57477437
Arrays zijn wel geinig maar beetje overbodig bij 10 cijfers omdat het meer werk is om uit te vogelen hoe het precies werkt dan 10x je code te kopïeren.

Als ze allemaal in opeenvolgende cellen staan (of met vaste tussenwaardes) dan kan je met een For-loop gaan werken, scheelt een hoop, maar nog steeds waarschijnlijk veel werk voor je omdat je a) niet weet hoe het moet en wij b) niet weten hoe je sheet eruitziet ( en c) ik heb geen zin om je hele code te herschrijven )

Thrilled over die mail vraag:
Ik denk dat het problematisch wordt PDF te maken en dan te mailen omdat je dan, met de PDF, buiten Excel om moet gaan werken.

Ik ben heel erg uit VB met Excel nu dus ik kan je helaas niet helpen met die vraag over lege cellen. Ik heb zelf wat geprobeerd met [blaat].Value = "" Then en IsEmpty ([variabele]) maar kom er niet uit...sorry.
pi_57477523
quote:
Op woensdag 19 maart 2008 15:29 schreef DaFan het volgende:
Thrilled over die mail vraag:
Ik denk dat het problematisch wordt PDF te maken en dan te mailen omdat je dan, met de PDF, buiten Excel om moet gaan werken.

Ik ben heel erg uit VB met Excel nu dus ik kan je helaas niet helpen met die vraag over lege cellen. Ik heb zelf wat geprobeerd met [blaat].Value = "" Then en IsEmpty ([variabele]) maar kom er niet uit...sorry.
Ik zit nu enkel nog met de PDF-kwestie.
De check voor een leeg veld heb ik zelf (op goed geluk) werkend gekregen

In de mail-macro probeerde ik voor de gein dit:
1
2
3
4
If Range("E25").Value = "" Then
 MsgBox "Vul uw naam in bij de Melder"
 Exit Sub
End If

En dit dan bovenaan de mailmacro gezet en het werkt perfect
pi_57477575
Ja dat probeerde ik ook en bij mij werkte ie niet

Edit: Oh hehehe mn moeder heeft een Nederlandse versie
pi_57477671
Ik ook, maar volgens mij herkent hij gewoon engelstalige variabelen enzo. Zolang je verwijzingen maar goed zijn (sheet / blad kan je allemaal aanpassen). Maar als je bij de kleur-macro bijvoorbeeld TRUE of WAAR invult maakt het niet uit. Een nederlandse excel zet namelijk WAAR in een cel, en als je in de macro zoekt naar TRUE dan werkt dat gewoon..
  † In Memoriam † zondag 23 maart 2008 @ 18:26:25 #243
25682 2cv
Niet subtiel
pi_57563057
Ik heb hier een excelbestand waarin ik een hele rij datums onder elkaar moet noteren, per cel 1 datum, alle datums achtereenvolgend. Nou kon dat voorheen door een rijtje datums handmatig in te typen en dan 1 cel te selecteren en dan die selectie vergroten door met de muis te slepen. Echter, nu lijkt excel in de war. In plaats van dat de dagen omhoog gaan, gaat het jaartal omhoog. Ik heb al gekeken bij Celeigenschappen -> Getal -> datum en verschillende opties geselecteerd en geprobeerd, maar er zit (in mijn ogen) geen verschil in en nog steeds verandert alleen het jaartal.

EDIT: Ik ben er zelf al uit gekomen. Ik noteerde de datums verkeerd. In plaats van 23-3-2008 noteerde ik 23-03-2008 en dat snapt excel schijnbaar niet.
Op maandag 14 mei 2012 23:55 schreef Sjoegerd het volgende:
Volgens mij wordt geen enkele auto zo onderhouden en geliefd als de jouwe :)
https://www.facebook.com/groups/linkshandigen/
pi_57656009
Excel 2002. Nederlands.

Ik heb een viertal getallen, waarvan ik een mooie lijn kan maken met behulp van de grafiekfunctie. Het zijn momenten waarop een bepaalde snelheid gemeten wordt, en bij die momenten hoort een tijd. De tijden volgen elkaar echter niet gelijkmatig op. Het volgt elkaar op als 0,9/1,2/1,4/1,6. Belangrijk is echter dat de x-as gelijkmatig verdeeld wordt, beginnend bij 0 en opklimmend met bijvoorbeeld 0,2. Hoe kan dit bereikt worden?
Graag op anoniem
pi_57667134
grafiek van het type XY (scatter) maken ipv lijn.
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
pi_57717739
Excel 2002, SP3 Nederlands

Hallo, ik ben EINDELIJK begonnen met mijn boekhouding in excel! het werkt prima tot dusver, alleen mis ik het overzicht om mijn uitgaven per maand te kunnen zien (en hoeveel ik heb uitgegeven aan huur, stappen, telefoon, kleding, kadootjes, etc...)
huur, stappen etc zijn tabbladen waarin al mooi de lijst staat. Ieder bedrag dat van mijn rekening afgaat heeft een codenummer (Huur = H2008-001 etc etc ), en een datum! gewoon supersimpel (+ voor mezelf nog wat extra info)

Nu heeft een vriend van mij er al een extra tabblad bij gezet waarin ik met ALt-F8 zou moeten kunnen zien wat mijn uitgaven per maand zijn per 'tabblad'

Helaas heb ik hier in lopen klooien en lukt het niet meer

de maanden staan horizontaal
en de benodigde tabbladen verticaal

Het lukt me niet om ook maar 1 getal goed te krijgen in deze tabel! ik snap dat het moeilijker werkt..

Onderaan uiteraard formules om alles bij elkaar op te tellen en percentages uit te rekenen.. wat nu totaal geen nut heeft!

alvast bedankt
liefs
Dromen zijn voorgevoelens van dingen die je in staat bent daadwerkelijk te verwerkelijken
pi_57717827
oh ja.. en de foutmelding die Excel dus geeft na het drukken van ALT-f8

Fout 9 tijdens uitvoering = subscript valt buiten bereik

Dus dan foutopsporing:
(maar ik ben afschuwelijk met formules dus ik snap er niets van!)


' In iedere sheet beginnen de waardes op rij 6
' Eerst wordt de datum gelezen, met een if functie bepaald binnen welke maand deze ligt en
' vervolgens bij dit maandtotaal opgeteld

'Eerst de uitgaven dan de loop voor de inkomsten
For i = 5 To 19

sheet = Sheets("overzicht").Cells(i, 1).Value

For k = 6 To 250

[b] datum = Sheets(sheet).Cells(k, 2).Value[/be]

En de laatste zin is geel gemarkeerd....
Dromen zijn voorgevoelens van dingen die je in staat bent daadwerkelijk te verwerkelijken
pi_57732873
Lastig te bepalen zonder het bestand erbij maar ik denk dat je sheet in de laatste zin tussen aanhalingstekens moet zetten: "sheet".
Waarom vraag je het niet aan de vriend die het heeft gemaakt?
pi_57738065
sheet is een variable die hij uit de eerste kolom van het tabblad overzicht haalt. Staan de sheetnamen wel goed in dit tabblad overzicht?
Volgens mij laat je ook niet de hele macro zien, doe es posten?
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
pi_57738083
je mag hem ook mailen, dan kijk ik er vanavond even naar.
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
pi_57801126
Vraagje

Je kunt cellen in celeigenschappen automatisch een getal indeling geven, bijvoorbeeld datum, aantal decimalen etc. Bij aangepast kan je vervolgens er nog wat achter plempen ook, zoals kWh, L (liters) etc. Maar sommige dingen kunnen bijvoorbeeld niet. Ik wil m³ achter het getal hebben, maar dan krijg je "De getalnotatie die u heeft gekozen is ongeldig ... etc. bladiebla", druk op [OK].

Is er een tag oid die je kunt gebruiken om elk willekeurig achtervoegsel bij getallen neer te zetten, tussen haakjes oid En waarom kan het 1 wel en het ander niet. kWh kan bijvoorbeeld wel, maar alleen m weer niet. Denk dus dat ik wat fout doe
pi_57805409
Ik heb een voor het oog eenvoudig vraagje. Ik heb een groep cellen een naam gegeven, deze naam zou ik graag willen verwijderen of veranderen. Op de een of andere manier lukt dit niet. Wie heeft een idee?

Nog een puntje waar ik niet uit kom is het volgende:
Ik heb bijvoorbeeld in cel a1 'maart 2007' staan. Nu wil ik dat in cel a2 automatisch de eerste maand van het volgende jaar staat, dus in dit geval 'januari 2008'. Hoe kan ik dit oplossen?

[ Bericht 38% gewijzigd door dwnick op 03-04-2008 15:38:58 ]
pi_57806025
Even een vraag.

Kan ik een bestand maken waarbij sommige cellen met formules beveiligd zijn bij gebruik door anderen die dan wel weer andere cellen (om in te vullen) mogen gebruiken?
pi_57806183
quote:
Op donderdag 3 april 2008 15:46 schreef Stansfield het volgende:
Even een vraag.

Kan ik een bestand maken waarbij sommige cellen met formules beveiligd zijn bij gebruik door anderen die dan wel weer andere cellen (om in te vullen) mogen gebruiken?
Ja, via Celeigenschappen -> Bescherming -> Geblokkeerd (aanvinken) kun je een cel blokkeren.
Je moet dan wel Extra -> Beveiliging -> Blad instellen
pi_57806274
quote:
Op donderdag 3 april 2008 11:49 schreef worldpimber het volgende:
Vraagje

Je kunt cellen in celeigenschappen automatisch een getal indeling geven, bijvoorbeeld datum, aantal decimalen etc. Bij aangepast kan je vervolgens er nog wat achter plempen ook, zoals kWh, L (liters) etc. Maar sommige dingen kunnen bijvoorbeeld niet. Ik wil m³ achter het getal hebben, maar dan krijg je "De getalnotatie die u heeft gekozen is ongeldig ... etc. bladiebla", druk op [OK].

Is er een tag oid die je kunt gebruiken om elk willekeurig achtervoegsel bij getallen neer te zetten, tussen haakjes oid En waarom kan het 1 wel en het ander niet. kWh kan bijvoorbeeld wel, maar alleen m weer niet. Denk dus dat ik wat fout doe
je kunt bij custom opmaak toch gewoon het volgende invullen? 0 "m3"
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
pi_57806463
quote:
Op donderdag 3 april 2008 15:53 schreef Piles het volgende:

[..]

Ja, via Celeigenschappen -> Bescherming -> Geblokkeerd (aanvinken) kun je een cel blokkeren.
Je moet dan wel Extra -> Beveiliging -> Blad instellen
Weet je ook waar dat precies zit in de nieuwste excel versie?
pi_57806592
quote:
Op donderdag 3 april 2008 15:14 schreef dwnick het volgende:
Ik heb een voor het oog eenvoudig vraagje. Ik heb een groep cellen een naam gegeven, deze naam zou ik graag willen verwijderen of veranderen. Op de een of andere manier lukt dit niet. Wie heeft een idee?
menu insert, name, define
dan te hernoemen naam selecteren en in bovenste invulregel nieuwe naam intypen en Ok klikken.

menu insert, name, define
dan oude naam selecteren en knop delete kiezen voor verwijderen
quote:
Nog een puntje waar ik niet uit kom is het volgende:
Ik heb bijvoorbeeld in cel a1 'maart 2007' staan. Nu wil ik dat in cel a2 automatisch de eerste maand van het volgende jaar staat, dus in dit geval 'januari 2008'. Hoe kan ik dit oplossen?
In A2 zet je: =DATE(YEAR(A1)+1,1,1)
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
pi_57806609
quote:
Op donderdag 3 april 2008 16:04 schreef Stansfield het volgende:

[..]

Weet je ook waar dat precies zit in de nieuwste excel versie?
Heb hier helaas alleen Excel2000, maar kun je dat niet in de Help vinden?
pi_57807715
quote:
Op donderdag 3 april 2008 16:04 schreef Stansfield het volgende:

[..]

Weet je ook waar dat precies zit in de nieuwste excel versie?
Tools > Protection > Protect Sheet
pi_57811162
Ik heb een vraag, ik heb een lijst met namen en uit die lijst moet random een naam gekozen worden. Natuurlijk heb ik google gebruikt om uit te zoeken hoe het moet en eigenlijk alle sites zeggen dat je de volgende formule moet gebruiken:

1=INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)

http://www.ozgrid.com/Excel/excel-random-pick.htm

Maar elke keer krijg ik een melding van dat de formule niet klopt:



Ik gebruik Excel 2007

Iemand? Alvast bedankt.
pi_57811247
Weet iemand hoe ik de grootte van mijn pagina kan locken? Als ik nu naar onder scroll wordt de pagina steeds langer.

Of is dit niet mogelijk?
In Nomine Patris, Et Filii, Et Spiritus Sancti.
pi_57811433
Mensen, laat maar. Heb het al gevonden:

Het moet

1=INDEX($A:$A;RANDBETWEEN(1;COUNTA($A:$A))*1)
zijn ipv:

1=INDEX($A:$A,RANDBETWEEN(1,COUNTA($A:$A)),1)


:)
pi_57812706
Is het ook nog mogelijk om te zorgen dat een naam niet meer dan 1 keer gebruikt wordt? Ik moet nu 9 namen random selecteren, maar er komen aantal namen meerdere keren in voor.

Alvast bedankt.
pi_57820661
quote:
Op donderdag 3 april 2008 15:57 schreef Deetch het volgende:

[..]

je kunt bij custom opmaak toch gewoon het volgende invullen? 0 "m3"
Ja, dat zocht ik dus. Het geheel moet dus tussen aanhalingstekens.
Tnx
pi_57822843
quote:
Op donderdag 3 april 2008 20:39 schreef magnifor het volgende:
Is het ook nog mogelijk om te zorgen dat een naam niet meer dan 1 keer gebruikt wordt? Ik moet nu 9 namen random selecteren, maar er komen aantal namen meerdere keren in voor.

Alvast bedankt.
Kun je dan niet beter achter de naam een random getal genereren en daar dan de rank van bepalen? op die manier krijg je in ieder geval een random volgorde zonder duplicaten.
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
pi_57822962
Nieuwe vraag..

Ik heb een vakje waarin een specifieke datum moet worden ingevuld. Aan deze datum hangen 2 voorwaarden.

1) Hij mag niet in het verleden liggen, dus alleen vandaag en/of in de toekomst..
2) Zodra het een datum is die binnen nu en 2 weken plaats vind moet er een specifieke melding komen

Nu is punt 1 gelukt. Via Data > Valideren een limiet gesteld dmv =NU()-1

Alleen hoe kan ik er nu nog een voorwaarde aanhangen dat hij controleert of de datum binnen nu en 14 dagen ligt en dan die melding laat zien?
pi_57823165
moet de melding een pop-up venster zijn of mag het ook gewoon in een cel? Dat laatste kun je vast zelf wel bedenken met een IF functie of voorwaardelijke opmaak.

Als je een popup wilt moet je een macro aan je sheet hangen (dus niet in een aparte module) waarin je een change event creeert die bij elke verandering van je werkblad controleert of die cel aan de tweede voorwaarde voldoet en dan een MsgBox laat zien met de door jou gewenste opmerking.

Hier meer over change events: http://www.cpearson.com/excel/Events.aspx
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
pi_57823215
Klik rechts op het tabbladje van de sheet en selecteer "view code". Vervolgens verander je de optie "(general)" in "Worksheet"

onderstaande code checkt of cel C13 is veranderd en geeft voor beide opties een actie.

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Me.Range("C13")) Is Nothing Then
    MsgBox "Cel C13 is veranderd"
    Else
    MsgBox "Cel C13 is nietveranderd"
    Exit Sub
End If
End Sub
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
pi_57823856
Ik weet wel hoe ik een waarde in een cel can checken en er ook een event aan hangen, maar in dit geval zit ik dus met een (variabele) datum die aan bepaalde voorwaarde moet voldoen.. dus is de datum binnen nu en 14 dagen dan moet er een melding komen, maar als er over 6 maanden weer een datum ingevoerd wordt die ook op dat moment binnen 2 weken plaats vind moet hij ook de msgbox geven (msgbox, geen celmelding).

En checken of hij leeg is of niet is in dit geval nvt omdat het een verplichte cel is..
pi_57825238
quote:
Op vrijdag 4 april 2008 10:25 schreef Thrilled het volgende:
Ik weet wel hoe ik een waarde in een cel can checken en er ook een event aan hangen, maar in dit geval zit ik dus met een (variabele) datum die aan bepaalde voorwaarde moet voldoen.. dus is de datum binnen nu en 14 dagen dan moet er een melding komen, maar als er over 6 maanden weer een datum ingevoerd wordt die ook op dat moment binnen 2 weken plaats vind moet hij ook de msgbox geven (msgbox, geen celmelding).

En checken of hij leeg is of niet is in dit geval nvt omdat het een verplichte cel is..
de msgbox is slechts een voorbeeld van welke functie je daar zou kunnen plaatsen.

in vb is de functie voor de huidige datum DATE, dus kun je de volgende functie in plaats van de msgbox "cel is veranderd" plakken:

1
2
3
4
5
if range("c13").value < DATE + 14 then
     msgbox "Deze datum is binnen twee weken"
     else
     exit if
end if
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
pi_57825908
quote:
Op vrijdag 4 april 2008 11:27 schreef Deetch het volgende:

[..]

de msgbox is slechts een voorbeeld van welke functie je daar zou kunnen plaatsen.

in vb is de functie voor de huidige datum DATE, dus kun je de volgende functie in plaats van de msgbox "cel is veranderd" plakken:
[ code verwijderd ]


Uhm ja dat werkt wel (thnx!!!) maar nu checkt hij dat na elke actie die je doet (er worden nog meer cellen ingevuld na de datum) dus krijg je tig keer die melding dat de datum binnen 2 weken is is dat in te stellen dat ie het maar een 'x' aantal keren laat zien?

/edit
kzie ook dat hij nu die melding geeft als je niks invult..

/edit2

Ik heb nu een soort work-around denk ik. In 2 verborgen cellen zet ik =NU() en =NU()+14
Dat zijn dan altijd de data die een melding moeten generen. Maar hoe zet ik nu in VBA dat, als een data tussen die 2 data's in die cellen zit, dat hij dán een melding geeft. Ligt hij erbuiten dan doet hij niks.

[ Bericht 7% gewijzigd door Thrilled op 04-04-2008 13:17:07 ]
pi_57829717
if range("c13").value > DATE AND range("c13").value < DATE + 14 then
pi_57829864
quote:
Op vrijdag 4 april 2008 14:52 schreef DaFan het volgende:
if range("c13").value > DATE AND range("c13").value < DATE + 14 then
hoort daar niet iets achter

MsgBox "Test"
Else 'later dan 2 weken
End If

ofzo..? maar hij werkt niet.. beide vormen niet
pi_57830160
Het gaat om de bouw van de voorwaarde. Als ie groter is dan NU en kleiner dan NU + 14 dagen dan gaat hij pas de code uitvoeren, precies zoals je wil. Dat doe je door:
1
2
3
IF <voorwaarde 1> AND <voorwaarde 1> THEN
 <code>
END IF
pi_57831162
Deze code werkt perfect, je moet hem alleen wel op de goede plek neerzetten. Zie hoiervoor de eerste regel van mijn post van 4-4-8 9:51. Hij moet nl. aan je sheet gekoppeld zijn en niet in een macro module zitten. Zie ook: http://www.cpearson.com/excel/Events.aspx

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Me.Range("C13")) Is Nothing Then

If Range("c13").Value > Date And Range("c13").Value < Date + 14 Then
    MsgBox "tussen nu en 2 weken"
End If

Else
Exit sub
End If

End Sub
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
pi_57831226
quote:
Op vrijdag 4 april 2008 16:03 schreef Deetch het volgende:
Deze code werkt perfect, je moet hem alleen wel op de goede plek neerzetten. Zie hoiervoor de eerste regel van mijn post van 4-4-8 9:51. Hij moet nl. aan je sheet gekoppeld zijn en niet in een macro module zitten. Zie ook: http://www.cpearson.com/excel/Events.aspx
[ code verwijderd ]


Rechtermuisknop op tabblad > Programmacode weergeven > dropdown selecteer ik "Worksheet" en plak ik deze code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then

If Range("L3").Value > Date And Range("L3").Value < Date + 14 Then
    MsgBox "tussen nu en 2 weken"
End If

Else
Exit Sub
End If

End Sub


Hij doet helemaal niks
pi_57836272
quote:
Op vrijdag 4 april 2008 09:30 schreef Deetch het volgende:

[..]

Kun je dan niet beter achter de naam een random getal genereren en daar dan de rank van bepalen? op die manier krijg je in ieder geval een random volgorde zonder duplicaten.
Het probleem is dat er teams gemaakt moet worden, random getal genereren zou kunnen maar kan het niet anders?
pi_57842649
quote:
Op vrijdag 4 april 2008 16:06 schreef Thrilled het volgende:

[..]

Rechtermuisknop op tabblad > Programmacode weergeven > dropdown selecteer ik "Worksheet" en plak ik deze code:
[ code verwijderd ]

Hij doet helemaal niks
Dat zou gewoon moeten werken Heb je macros wel toegstaan in je worksheet? Dit check je door in het menu tools, options, tabblad security, knop macro security te kiezen en dan beveiliging om medium zetten (of low, maar medium is beter)
Welke versie van excel gebruik je?
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
pi_57842663
Bijna toe aan een deeltje 5, cool zeg.
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
pi_57882978
quote:
Op zaterdag 5 april 2008 01:05 schreef Deetch het volgende:

[..]

Dat zou gewoon moeten werken Heb je macros wel toegstaan in je worksheet? Dit check je door in het menu tools, options, tabblad security, knop macro security te kiezen en dan beveiliging om medium zetten (of low, maar medium is beter)
Welke versie van excel gebruik je?
Haha mn hele excel sheet zit vol met macro's, beveiliging staat op Laag

Excel 2003 (11.81)

Waar ik net achter kom, het werkt wel, maar de Msgbox komt pas als ik weer terug op de cel kom? Dus ik kan de datum invoeren, de datum is binnen nu en 2 weken, maar de msgbox verschijnt pas als ik de cel eerst de-selecteer, en dan opnieuw selecteer

[ Bericht 12% gewijzigd door Thrilled op 07-04-2008 09:12:23 ]
pi_57883504
quote:
Op maandag 7 april 2008 08:34 schreef Thrilled het volgende:

[..]

Haha mn hele excel sheet zit vol met macro's, beveiliging staat op Laag

Excel 2003 (11.81)

Waar ik net achter kom, het werkt wel, maar de Msgbox komt pas als ik weer terug op de cel kom? Dus ik kan de datum invoeren, de datum is binnen nu en 2 weken, maar de msgbox verschijnt pas als ik de cel eerst de-selecteer, en dan opnieuw selecteer
Ik weet hier nog maar een ding op te zeggen: raaaaaaaaaaaaaaaaaaaaaaarrrrrrrrrrrrrrrrrrrrrrrrr
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
pi_57883548
Helpt het als je de msgbox code iets aanpast?

1MsgBox("Tussen nu en twee weken", VbMsgBoxSetForeground, "titel")


de vbmsgbox.... zorgt ervoor dat de msgbox altijd naar de voorgrond springt
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
pi_57883584
Haha nee, doet exact hetzelfde
pi_57883662
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then

If Range("L3").Value > Date 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
End Sub


Huidige code. Rechtsbovenaan (naast het pulldown menu "Worksheet") staat "SelectionChange", ik heb al geprobeerd daarmee een beetje te spelen maar heeft niet echt effect?
pi_57884803
quote:
Op donderdag 3 april 2008 15:14 schreef dwnick het volgende:
Ik heb een voor het oog eenvoudig vraagje. Ik heb een groep cellen een naam gegeven, deze naam zou ik graag willen verwijderen of veranderen. Op de een of andere manier lukt dit niet. Wie heeft een idee?
quote:
Op donderdag 3 april 2008 16:10 schreef Deetch het volgende:
menu insert, name, define
dan te hernoemen naam selecteren en in bovenste invulregel nieuwe naam intypen en Ok klikken.

menu insert, name, define
dan oude naam selecteren en knop delete kiezen voor verwijderen

quote:
Op donderdag 3 april 2008 15:14 schreef dwnick het volgende:Nog een puntje waar ik niet uit kom is het volgende:
Ik heb bijvoorbeeld in cel a1 'maart 2007' staan. Nu wil ik dat in cel a2 automatisch de eerste maand van het volgende jaar staat, dus in dit geval 'januari 2008'. Hoe kan ik dit oplossen?
quote:
[b
In A2 zet je: =DATE(YEAR(A1)+1,1,1)
Bedankt voor je reactie! Alleen ik zit met de case dat als er april 2007 in cel A1 staat, in cel B1 dan januari 2008 moet staan. Als er november 2007 in cel A1 staat moet er nog steeds januari 2008 staan. Pas op het moment dat er december 2008 in A1 staat moet cel B1 verspringen naar een jaar later, januari 2009. Is dit ook mogelijk?

[ Bericht 38% gewijzigd door dwnick op 07-04-2008 10:49:07 ]
pi_57887365
quote:
Op maandag 7 april 2008 09:23 schreef Deetch het volgende:
Helpt het als je de msgbox code iets aanpast?
[ code verwijderd ]

de vbmsgbox.... zorgt ervoor dat de msgbox altijd naar de voorgrond springt
Hij deed het zojuist even goed maar na een paar keer werkt het alleen als ik hem opnieuw selecteer.. what is wrong?
pi_57888729
quote:
Op maandag 7 april 2008 10:43 schreef dwnick het volgende:
Bedankt voor je reactie! Alleen ik zit met de case dat als er april 2007 in cel A1 staat, in cel B1 dan januari 2008 moet staan. Als er november 2007 in cel A1 staat moet er nog steeds januari 2008 staan. Pas op het moment dat er december 2008 in A1 staat moet cel B1 verspringen naar een jaar later, januari 2009. Is dit ook mogelijk?
heb je de code wel geprobeerd? Want hij doet bij mij precies wat ie zou moeten doen.
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
pi_57888811
quote:
Op maandag 7 april 2008 12:52 schreef Thrilled het volgende:

[..]

Hij deed het zojuist even goed maar na een paar keer werkt het alleen als ik hem opnieuw selecteer.. what is wrong?
Volgens mij moet het zijn worksheet_change ipv worksheet_selectionchange
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
pi_57888833
[drein modus]
potver topic is nog niet vol, ik wil een deeltje vijf
[/drein modus]
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
pi_57889287
*helpt
pi_57889533
Heb ik nog wel ff vraagje:
2 sheets: sheet1 met 4 kolommen: A=code, B=bedrag_debet, C=code2, D=bedrag_credit
sheet2 met 2 kolommen: A=code3, B=bedrag

Nu wil ik dmv zoeken op het bedrag "code3" vinden, en bij het bedrag in sheet1 zetten.
Dus bedrag_debet en bedrag_debet komen overeen met bedrag uit sheet2.

Hoop dat het duidelijk is
Heb al wat geprobeerd met verticaal zoeken, maar dat lukt me niet
pi_57889562
quote:
Op maandag 7 april 2008 14:10 schreef Deetch het volgende:

[..]

Volgens mij moet het zijn worksheet_change ipv worksheet_selectionchange
Nog 8 posts
Met change werkt hij inderdaad.. maar hoe vermenigvuldig ik hem nou? Ik dacht gewoon simpel copy/paste maar dat werkt niet
pi_57909114
Je kan alleen verticaal zoeken in een andere sheet als je het bereik een naam geeft (zie [EXCEL] Het grote Excel vragen topic, #4
pi_57913331
quote:
Op maandag 7 april 2008 14:57 schreef Thrilled het volgende:

[..]

Nog 8 posts
Met change werkt hij inderdaad.. maar hoe vermenigvuldig ik hem nou? Ik dacht gewoon simpel copy/paste maar dat werkt niet
Verduidelijk je vraag eens? Wat wil je waarheen kopieren?

Wil je op dezelfde sheet meerdere cellen een (andere) melding laten genereren?
Wil je op meerdere sheets dezelfde melding laten genereren?

elaboreer waarde Thrilled.
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
pi_57913335
nog 5 dus.
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
pi_57913537
quote:
Op dinsdag 8 april 2008 16:43 schreef Deetch het volgende:

[..]

Verduidelijk je vraag eens? Wat wil je waarheen kopieren?

Wil je op dezelfde sheet meerdere cellen een (andere) melding laten genereren?
Wil je op meerdere sheets dezelfde melding laten genereren?

elaboreer waarde Thrilled.
Waarom wil je zo graag naar het volgende deel?

Ontopic:
Nou ik heb dus 10 cellen waarin een datum ingevuld kan worden, en hij moet uiteraard bij alle 10 eventueel die melding geven. Ik heb nu de code iets aangepast zodat hij pas bij het e-mailen gaat controleren (gewoon 10 keer de if/else gekopieerd ) maar het beste zou zijn dat hij ook nog gechecked wordt bij het invoeren van de data (wat met jou code wel lukte, maar ik niet voor elkaar kreeg over meerdere cellen.. als ik hem simpelweg kopieerde en de cellen aanpaste, kreeg ik een 'end if' foutmelding..)

Hopelijk is het duidelijk ?
pi_57914489
Tel je aantal If's en End If's tussen Sub en End Sub. Die moeten gelijk aan elkaar zijn
pi_57915709
Ja i know, dat stukje theorie beheers ik wel mbv html / php kennis, maar kheb gewoon try & error gedaan door de if's te sluiten maar lukte niet
pi_57919271
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.
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
pi_57919407
Als het goed is is ie nu vol
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
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')