[EXCEL] Het grote Excel vragen topic, #4

Index

» digital corner

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
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
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[EXCEL] Het grote Excel vragen topic, #4
Index

» digital corner

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')