abonnement Unibet Coolblue
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?
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
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')