abonnement Unibet Coolblue Bitvavo
pi_64041166
Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf

Voorgaande deeltjes met veel informatie:

[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
[EXCEL] Het grote Excel vragen topic, #8
  maandag 15 december 2008 @ 21:18:41 #2
62215 qu63
..de tijd drinkt..
pi_64041233
Nog bedankt DaFan
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64041339
Np. Ik vergeet trouwens ook altijd Ctrl-Shift-Enter te doen

Als je trouwens nog wat achtergrond wil qua array-formules:
http://www.mrexcel.com/tip011.shtml

Kan je mooie dingen mee doen hoor
  maandag 15 december 2008 @ 21:37:24 #4
62215 qu63
..de tijd drinkt..
pi_64041919
quote:
Op maandag 15 december 2008 21:21 schreef DaFan het volgende:
Np. Ik vergeet trouwens ook altijd Ctrl-Shift-Enter te doen

Als je trouwens nog wat achtergrond wil qua array-formules:
http://www.mrexcel.com/tip011.shtml

Kan je mooie dingen mee doen hoor
Handig stukje
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64042068
tvp
  dinsdag 16 december 2008 @ 07:11:28 #6
15967 Frollo
You know I am a righteous man
pi_64048986
quote:
Op maandag 15 december 2008 21:21 schreef DaFan het volgende:
Np. Ik vergeet trouwens ook altijd Ctrl-Shift-Enter te doen

Als je trouwens nog wat achtergrond wil qua array-formules:
http://www.mrexcel.com/tip011.shtml

Kan je mooie dingen mee doen hoor
Interessant!
pi_64049207
[Excel 2007 - Nederlands]
Ok, even een repost van gisteren.

Vraag:
Is het mogelijk om door middel van een macro een afbeelding te verwijderen of anders te verplaatsen?

Ik heb dus geprobeerd een macro op te nemen en dan die handeling uit te voeren, maar dit werkt niet. Ik denk dat het komt omdat bij het opnemen van een macro een alleen gekeken wordt naar handelingen die verricht worden bij cellen...


Nu heb ik dus (aan de hand van een antwoord van DaFan) het volgende gedaan:
Het plaatje door middel van de Section Pane een naam gegeven en vervolgens een macro aangemaakt met:
11 Shapes("Pic1").Delete


Helaas werkt dit niet en krijg ik bij het uitvoeren de foutmelding:
"Sub of Function is niet gedefineerd".
pi_64052531
Je moet hem wel in een macro plaatsen natuurlijk.

Kies Alt-F11, dubbelklik links op Werkblad (zo heette je sheet toch?), en voeg rechts in het witte kader dit in:

1
2
3
4
5
Sub Verwijder_plaatje()

Shapes("Pic1").Delete

End Sub


Nu kan je naar Developer -> Macro's, en dan heet de macro Verwijder_plaatje en die kan je uitvoeren waarna je plaatje wordt verwijderd.
pi_64054029
Nouja, ik had het precies gedaan zoals je eerder al zei en toen werkte het niet.
Nu echter wel (dus zal ik het toch wel niet gedaan hebben zoals je eerder al zei )

Maakt me ook niet uit, hardstikke bedankt!
  donderdag 18 december 2008 @ 10:23:34 #10
152215 ManAtWork
Maar nu even niet,...
pi_64111983
Omdat hier ook veel met macro's wordt gestoeid, plaats ik de vraag hier ook even. (Ook al is het een macro in Word2007. Mijn eerste post staat hier.)

Onderstaande regel is opgenomen in een UserForm-code waarbij Verzekering een CheckBox is.
quote:
If Verzekering.Value = True Then
ActiveDocument.bookmarks("Verzekering").Range.InsertAfter Chr(13) & "Klant behoort het voertuig deugdelijk (All-Risk) te verzekeren en een kopie polis ter inzage aan te bieden."
End If
Met als resultaat:
quote:
Klant behoort het voertuig deugdelijk (All-Risk) te verzekeren en een kopie polis ter inzage aan te bieden.
Nu moet als resultaat het volgende naar voren komen:
quote:
Klant behoort het voertuig deugdelijk (All-Risk) te verzekeren en een kopie polis ter inzage aan te bieden.
De regel moet dus worden opgeknipt en worden voorzien van bold. Maar met welke code zorg ik ervoor dat alleen deugdelijk en kopie vet worden weergegeven?
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
  vrijdag 19 december 2008 @ 23:06:19 #11
219075 Fortitudo
de echte vedett
pi_64166043
een goedenavond ik heb een vraag over excel 2007
ik ben bezig met een hele grote simulatie, waarbij ik een heleboel tabbladen heb.
nu wil ik bepaalde gegevens van de tabbladen weer in een ander tabblad zetten. deze gegevens moeten echter meeveranderen dus er moet nog een formule inzitten. hoe kan ik in een keer 500 getallen incl. formule kopieren
alvast bedankt
later
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
  vrijdag 19 december 2008 @ 23:08:26 #12
62215 qu63
..de tijd drinkt..
pi_64166114
=naamtablad!A1 etc.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 19 december 2008 @ 23:13:14 #13
219075 Fortitudo
de echte vedett
pi_64166312
quote:
Op vrijdag 19 december 2008 23:08 schreef qu63 het volgende:
=naamtablad!A1 etc.
nee, dan moet ik alles een voor een kopieren en het zijn zo'n 30.000 gegevens. als ik op het + druk herhaalt hij alleen de reeds gekopieerde waarden.
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
  vrijdag 19 december 2008 @ 23:19:23 #14
62215 qu63
..de tijd drinkt..
pi_64166572
quote:
Op vrijdag 19 december 2008 23:13 schreef Fortitudo het volgende:

[..]

nee, dan moet ik alles een voor een kopieren en het zijn zo'n 30.000 gegevens. als ik op het + druk herhaalt hij alleen de reeds gekopieerde waarden.
Alle cellen kopiëren en dan kiezen voor "(rechtermuisknop) plakken speciaal" en dan formules?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 19 december 2008 @ 23:26:05 #15
219075 Fortitudo
de echte vedett
pi_64166844
quote:
Op vrijdag 19 december 2008 23:19 schreef qu63 het volgende:

[..]

Alle cellen kopiëren en dan kiezen voor "(rechtermuisknop) plakken speciaal" en dan formules?
nee ook al geprobeerd dan kopieert hij alleen bijv: =AVERAGE(B4:B135). het tabblad staat echter niet in de formule.
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
pi_64167027
Kan je niet gewoon het werkblad kopiëren? Rechtermuisknop op het werkblad, Copy en zo verder?
  vrijdag 19 december 2008 @ 23:36:11 #17
219075 Fortitudo
de echte vedett
pi_64167258
nee, want dan houdt ik niet de juiste waarden die ik wil over als ik de waarden die ik niet nodig heb delete
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
  zaterdag 20 december 2008 @ 23:01:19 #18
219075 Fortitudo
de echte vedett
pi_64191762
kick
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
pi_64202539
ik zit er nog steeds over te denken.
  zondag 21 december 2008 @ 12:15:44 #20
152215 ManAtWork
Maar nu even niet,...
pi_64203243
Heb ik dan eindelijk een vraag weten te stellen waar de experts geen antwoord op hebben.
Ik kan het me niet voorstellen,...
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_64246593
[Excel 2007 - Nederlands]
Is het mogelijk om door middel van een formule cellen te verbergen/te laten zien?
Ik wil dus dat als uit de formule blijkt dat er het antwoord 0 is dat dan de hele rij verborgen wordt...
pi_64249418
Ik zit met het volgende probleem. Ik heb twee cellen A1 en A2. A1 heeft de waarde 5 en A2 heeft de waarde 2.

A1 = 5
A2 = 2
Wanneer ik nu de waarde van A1 verander in bijvoorbeeld 2. Dan veranderd de waarde van A2 in 4 (A1*A2 = 2*2 = 4)

A1 = 2
A2 = 4
Wanneer ik nu de waarde van A2 verander in bijvoorbeeld 3. Dan veranderd de waarde van A1 in 6 (A1*A2 = 2*3 = 6)

Nu kan ik dit probleem wel oplossen in visual basic. Maar ik wou graag weten of dit ook mogelijk is m.b.v. excel functies? En wanneer het mogelijk is misschien een paar tips in de goeie richting.
  maandag 22 december 2008 @ 18:07:58 #23
152215 ManAtWork
Maar nu even niet,...
pi_64251894
quote:
Op maandag 22 december 2008 15:23 schreef SimonVennekens het volgende:
[Excel 2007 - Nederlands]
Is het mogelijk om door middel van een formule cellen te verbergen/te laten zien?
Ik wil dus dat als uit de formule blijkt dat er het antwoord 0 is dat dan de hele rij verborgen wordt...
Dat zul je met een macro moeten oplossen. Door middel van een formule gaat dat (volgens mij) niet werken.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
  maandag 22 december 2008 @ 18:10:48 #24
152215 ManAtWork
Maar nu even niet,...
pi_64251974
quote:
Op maandag 22 december 2008 16:50 schreef Wouser het volgende:
Ik zit met het volgende probleem. Ik heb twee cellen A1 en A2. A1 heeft de waarde 5 en A2 heeft de waarde 2.

A1 = 5
A2 = 2
Wanneer ik nu de waarde van A1 verander in bijvoorbeeld 2. Dan veranderd de waarde van A2 in 4 (A1*A2 = 2*2 = 4)

A1 = 2
A2 = 4
Wanneer ik nu de waarde van A2 verander in bijvoorbeeld 3. Dan veranderd de waarde van A1 in 6 (A1*A2 = 2*3 = 6)

Nu kan ik dit probleem wel oplossen in visual basic. Maar ik wou graag weten of dit ook mogelijk is m.b.v. excel functies? En wanneer het mogelijk is misschien een paar tips in de goeie richting.
Volgens mij gaat dit niet lukken. Immers, je vermeld een formule in een cel die je kunt overschrijven waarmee de formule niet meer actief is.
Je zou het door middel van een hulpcel kunnen oplossen. Maar dat had je waarschijnlijk zelf ook al bedacht.
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_64256019
quote:
Op maandag 22 december 2008 18:10 schreef ManAtWork het volgende:

[..]

Volgens mij gaat dit niet lukken. Immers, je vermeld een formule in een cel die je kunt overschrijven waarmee de formule niet meer actief is.
Je zou het door middel van een hulpcel kunnen oplossen. Maar dat had je waarschijnlijk zelf ook al bedacht.
Ja dan zou het wel kunnen maar jammer. Dacht zelf ook niet dat het kon. Maja maakt niet uit moet me collega het maar met VB doen
pi_64275182
Hmmmm merk trouwens net dat het toch ook niet zo makkelijk is m.b.v. van visual basic...

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
Option Explicit

Public infinity As Boolean
Public address As String

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim oSheet As Worksheet
    Dim iTemp As Integer

    Set oSheet = Sh
    address = Target.address
    
    If infinity = False Then
        infinity = True
        
        If address = "$A$1" Then
            oSheet.Range("$A$2").Value = oSheet.Range("$A$1").Value * oSheet.Range("$A$2").Value
        ElseIf address = "$A$2" Then
            oSheet.Range("$A$1").Value = oSheet.Range("$A$1").Value * oSheet.Range("$A$2").Value
        End If
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    infinity = False
End Sub


Dit komt namelijk in een infinity loop. Aangezien de event naar de allereerste berekening steeds weer wordt aangeroepen omdat de waarde steeds veranderd. Nu heb ik het als volgt gedaan door een extra variabele die detecteerd of de functie al 1x eerder is aangeroepen. Echter vind ik me manier niet zo ' netjes' en ik vroeg of iemand misschien een betere oplossing weet?

[ Bericht 0% gewijzigd door Wouser op 24-12-2008 00:12:55 ]
pi_64305238
Ik hou me boekhouding bij in een excelsheet, en tik altijd me facturen uit in word. Nu kan ik dit volgens mij doen allebei doen in excel, alleen ik loop vast. Mega-lastig om dit duidelijk uit te leggen, maar ik zal mijn best doen, hoop dat iemand mij kan helpen.

Hier mijn excelsheet. (excel 2007, NL versie)

Ik heb 2 werkbladen, geleverde diensten en automatische factuur. In het eerste werkblad hou ik al me geleverde diensten bij, en in het tweede tabblad wil ik een automatische factuur laten genereren.

Met hele simpele verwijzingen naar het eerste tabblad, lukt de eerste factuur prima. Nu wil ik de tweede ook automatisch laten genereren, dus mijn idee was om te filteren op één factuurnummer, zodat ik alleen de diensten voor de tweede factuur in mijn automatische factuur te zien zou krijgen.

Helaas is dit niet de manier. Als ik in het eerste werkblad alleen de tweede factuur aanklik, dan wordt de nummering anders, en is cel 2, niet meer C2 maar C5.

Weet iemand een oplossing?
pi_64309496
Ik snap er geen hol van wat je bedoelt maarrr je wilt van iedere factuur een eigen (geautomatiseerde) nieuwe werkblad laten creëren? Uiteraard moeten meerdere facturen die van 1 klant zijn op hetzelfde blad...? Zo ja dan zou ik hier niet al te moeilijk doen maar gewoon een VB code voor maken. Kun je er ook nog een mooi formpje bij maken etc...

Ps weet niet of je weet maar je facturen zijn wel te breed voor een A4...? Iig bij mij is ie te breed.

En dit is btw wel om te huilen werkblad 2 F32...
=(F31*1.19)-F31

oh en waarom mogen we eurotool niet bekijken
pi_64309956
quote:
Op woensdag 24 december 2008 00:19 schreef Wouser het volgende:
Ik snap er geen hol van wat je bedoelt maarrr je wilt van iedere factuur een eigen (geautomatiseerde) nieuwe werkblad laten creëren? Uiteraard moeten meerdere facturen die van 1 klant zijn op hetzelfde blad...? Zo ja dan zou ik hier niet al te moeilijk doen maar gewoon een VB code voor maken. Kun je er ook nog een mooi formpje bij maken etc...

Ps weet niet of je weet maar je facturen zijn wel te breed voor een A4...? Iig bij mij is ie te breed.

En dit is btw wel om te huilen werkblad 2 F32...
=(F31*1.19)-F31

oh en waarom mogen we eurotool niet bekijken

Ik dacht al, het is ook geen doen om dit uit te leggen

Ik zag inderdaad ook dat hij te groot was, heb hem even aangepast. Dit is een eerste probeersel van mij, ik dacht zoiets is vast heel goed te doen in Excel.

Ik ben dus niet echt thuis in VB code, maar als ik het goed begrijp is dit niet echt op te lossen zonder VB code?
  woensdag 24 december 2008 @ 00:40:59 #30
62215 qu63
..de tijd drinkt..
pi_64310277
Volgens mij wel hoor, maar dan moet je handmatig het factuurnummer invullen, en dan excel laten zoeken naar alle bijbehorende gegevens.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 24 december 2008 @ 12:00:27 #31
93214 DeTolk
Elk puntje telt.
pi_64319985
Goedemiddag,

We zitten op het werk met het volgende:

We hebben een lijst van 73 bedragen met bijbehorend klantnummer per bedrag.

Nu komen we op het totaalbedrag een bedrag van 477,33 tekort.
De details van de bedragen zijn helaas niet volledig zodat je alles makkelijk kan filteren.
Het enige dat we weten is dat die 477,33 bestaat uit 3 losse bedragen

Bestaat er in Excel een functie/formule om uit te rekenen hoeveel mogelijke combinaties er zijn om 3 bedragen op 1 bedrag uit te laten komen?


We gebruiken trouwens Excel 2003 NL

[ Bericht 1% gewijzigd door DeTolk op 24-12-2008 12:10:15 ]
pi_64329335
quote:
Op woensdag 24 december 2008 00:32 schreef hardcorekabouter het volgende:

[..]

Ik dacht al, het is ook geen doen om dit uit te leggen

Ik zag inderdaad ook dat hij te groot was, heb hem even aangepast. Dit is een eerste probeersel van mij, ik dacht zoiets is vast heel goed te doen in Excel.

Ik ben dus niet echt thuis in VB code, maar als ik het goed begrijp is dit niet echt op te lossen zonder VB code?
Even eerst een vraag maar was mijn gedachte, dat ik dacht dat je facturen in een nieuw werkblad wilt maken etc... dus correct? Zo ja dan zou dit ook wel misschien mogelijk zijn m.b.v. excel code zelf... Alleen zou ikzelf niet weten hoe. Ikzelf ga namelijk als het een beetje gecompliceerd wordt al snel over naar vb code omdat het simpeler is en je geen héél lange formules krijgt in een cel.
pi_64329455
quote:
Op woensdag 24 december 2008 12:00 schreef DeTolk het volgende:
Goedemiddag,

We zitten op het werk met het volgende:

We hebben een lijst van 73 bedragen met bijbehorend klantnummer per bedrag.

Nu komen we op het totaalbedrag een bedrag van 477,33 tekort.
De details van de bedragen zijn helaas niet volledig zodat je alles makkelijk kan filteren.
Het enige dat we weten is dat die 477,33 bestaat uit 3 losse bedragen

Bestaat er in Excel een functie/formule om uit te rekenen hoeveel mogelijke combinaties er zijn om 3 bedragen op 1 bedrag uit te laten komen?


We gebruiken trouwens Excel 2003 NL
Ik weet niet of daarvoor een functie is maar als er zo'n functie zou bestaan zou die denk ik je computer al snel dan op hol zou slaan wanneer je die zou gebruiken... Omdat hij dan natuurlijk alle combinaties gaat uitrekenen waarbij de 3 getallen samen op 477.33 komt... Dus 477.31 + 0.01 + 0.01 is al een combinatie, 477.30 + 0.01 + 0.02 is weer een combinatie etc...
pi_64329628
is het mogelijk om verschillende aan elkaar gelinkte Excel files te mailen zonder dat de links verloren gaan ?
zonnig Brasil
  woensdag 24 december 2008 @ 16:51:21 #35
62215 qu63
..de tijd drinkt..
pi_64329975
quote:
Op woensdag 24 december 2008 16:41 schreef qwerty_x het volgende:
is het mogelijk om verschillende aan elkaar gelinkte Excel files te mailen zonder dat de links verloren gaan ?
ligt er aan hoe alles gelinkt is. Als de link alleen \map\bestandsnaam.xls is is er niks aan de hand (mits de bestanden in dezelfde mappen worden gezet), maar is de link iets als c:\users and documents\bla\bla\bla dan werkt het niet
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64330062
quote:
Op woensdag 24 december 2008 16:51 schreef qu63 het volgende:

[..]

ligt er aan hoe alles gelinkt is. Als de link alleen \map\bestandsnaam.xls is is er niks aan de hand (mits de bestanden in dezelfde mappen worden gezet), maar is de link iets als c:\users and documents\bla\bla\bla dan werkt het niet
maar als je die eerstgenoemde link legt, voegt Excel er dan niet automatisch die hele riedel aan toe ?
zonnig Brasil
  woensdag 24 december 2008 @ 16:55:17 #37
62215 qu63
..de tijd drinkt..
pi_64330109
quote:
Op woensdag 24 december 2008 16:54 schreef qwerty_x het volgende:

[..]

maar als je die eerstgenoemde link legt, voegt Excel er dan niet automatisch die hele riedel aan toe ?
kan, maar dat is ook te wijzigen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64330308
ok, bedankt

ik ga het proberen
zonnig Brasil
  woensdag 24 december 2008 @ 18:49:26 #39
85514 ralfie
!Yvan eht nioj
pi_64333557
quote:
Op dinsdag 23 december 2008 10:06 schreef Wouser het volgende:
Hmmmm merk trouwens net dat het toch ook niet zo makkelijk is m.b.v. van visual basic...
[ code verwijderd ]

Dit komt namelijk in een infinity loop. Aangezien de event naar de allereerste berekening steeds weer wordt aangeroepen omdat de waarde steeds veranderd. Nu heb ik het als volgt gedaan door een extra variabele die detecteerd of de functie al 1x eerder is aangeroepen. Echter vind ik me manier niet zo ' netjes' en ik vroeg of iemand misschien een betere oplossing weet?
aan het begin van je functie workbook (of sheet, vergeet ik altijd).enableEvents op false zetten, dan aan het eind van je functie weer op true
  woensdag 24 december 2008 @ 21:20:01 #40
219075 Fortitudo
de echte vedett
pi_64339177
quote:
Op zondag 21 december 2008 11:45 schreef DaFan het volgende:
ik zit er nog steeds over te denken.
het is me gelukt. copy --> past links
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
pi_64344465
quote:
Op woensdag 24 december 2008 21:20 schreef Fortitudo het volgende:

[..]

het is me gelukt. copy --> past links
Ghe sorry, ik heb vandeweek nog ff naar dit topic gekeken maar ik kon nergens goed uitkomen (ff snel, zo deze week is iedereen vrij druk neem ik aan?).

Blij dat je eruitgekomen bent.
pi_64346678
quote:
Op woensdag 24 december 2008 18:49 schreef ralfie het volgende:

[..]

aan het begin van je functie workbook (of sheet, vergeet ik altijd).enableEvents op false zetten, dan aan het eind van je functie weer op true
Thanks als ik weer op het werk ben zal ik het eens proberen vind ik iig een nettere oplossing.
pi_64349468
Moet je wel mee opletten als je gaat 'proberen'. Als je tijdens je macro tegen een problem loopt en deze afbreekt, blijft events UITSTAAN. En dan werken je macro's niet meer, erg vervelend. Als je hier tegenaan loopt en je blijft debuggen, moet je ff een knopje maken, daar een macro aanhangen met Application.EnableEvents = True.
pi_64349476
Oh het is dus

1Application.EnableEvents = False

En aan het einde van je macro weer True.
  donderdag 25 december 2008 @ 16:47:05 #45
62215 qu63
..de tijd drinkt..
pi_64357559
Ik wil weten in welke weken een bepaalde datumreeks valt.
Ik heb in kolom A de datum staan, en in kolom B de duur van de perdiode
In welke week kolom A valt is niet moeilijk, dat is gewoon WEEKNUMMER(cel)
Maar als die periode 30 dagen duurt, wil ik weten welke weken daar bij horen.

Iemand enig idee?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64357760
Ik heb (Engels)

=WEEKNUM(A2) & " - " & WEEKNUM(A2+B2)

Vandaag in A2 geeft als resultaat
52 - 4
pi_64357821
Hardcorekabouter volgens mij kan je beter Access gebruiken.
  donderdag 25 december 2008 @ 17:17:11 #48
62215 qu63
..de tijd drinkt..
pi_64357931
quote:
Op donderdag 25 december 2008 17:04 schreef DaFan het volgende:
Ik heb (Engels)

=WEEKNUM(A2) & " - " & WEEKNUM(A2+B2)

Vandaag in A2 geeft als resultaat
52 - 4
En hoe reken ik daar dan het aantal weken uit?

In dit geval is het antwoord dus 5 (makkelijk zelf uit te rekenen), maar hoe kan ik het excel laten doen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64358114
Hm ik heb nu dit, misschien beetje omslachtig maar het werkt:
1=WEEKNUM(DATE(YEAR(A2),12,31))-WEEKNUM(A2)+WEEKNUM(B2+A2)


Dit werkt alleen als het over de jaarwisseling heengaat. Ik kom er nu niet uit hoe ik het moet doen en we gaan eten, morgen weer :*
  donderdag 25 december 2008 @ 17:44:31 #50
62215 qu63
..de tijd drinkt..
pi_64358290
quote:
Op donderdag 25 december 2008 17:29 schreef DaFan het volgende:
Hm ik heb nu dit, misschien beetje omslachtig maar het werkt:
[ code verwijderd ]

Dit werkt alleen als het over de jaarwisseling heengaat. Ik kom er nu niet uit hoe ik het moet doen en we gaan eten, morgen weer
Ik zal er even mee stoeien, thanks!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64360303
In een weekrapportage die ik maak moet ik bepaalde datapoints (bepaalde weken dus) highlighten. De weken die gehighlight dienen te worden zijn bij mij bekend. Deze datapoints moeten in de volgende rapportages ook gehighlight zijn, zónder zelf iets te moeten veranderen.

De grafiek heeft zo'n 200 rijen als source, enkel de laatste 52 weken zijn zichtbaar in de grafiek (de overige rijen zijn verborgen). Doordat iedere week een week een datapoint opschuift is het niet mogelijk om de datapoints eenmalig zelf te highlighten.

Volgend jaar ga ik maar eens een vba-macro'tje schrijven om dit voor elkaar te krijgen. Of heeft iemand een beter idee?
pi_64364408
Hoe vergelijk ik een waarde uit cel A1: 400 met een waarde in een andere cel, waarop ik een bereik baseer?

Ik wil een soort functie hebben die het volgende doet met twee (absolute) getallen
if(A1between 395 and 405)
'then' waar
else 'onwaar'

Maar ik wil het niet absoluut maar relatief een andere waarde vergelijken die ongeveer een bereik van 4% heeft (lees ongeveer).

Dit komt dus ongeveer op hetzelfde neer als ik dit met een variabele wil doen.
De te vergelijken waarde staat in dit voorbeeld in cel A2.
ALS(A1= (>=som(A2*0.98)) OF (<A2*1.02));'waar';'onwaar').
Alleen pakt excel dit niet!!!
Iemand een suggestie?
Btw: every-one a happy xmass
pi_64366757
Sylvesterr; ik snap er geen bal van, voorbeeldje?

Bertuzz ff uit mn hoofd want je voorbeeld is ook niet geheel duidelijk;

=ALS(EN(A1=>(A2*0.98);A1<=(A2*1.02));"waar";"onwaar")

Je verwart OF met EN (denk ik want het moet tussen 98% en 102% vallen?), en je opbouw van de formule is verkeerd.

Hoop dat dit je op weg helpt, anders zie ik het morgen wel

Jij ook een fijne kerst nog.
pi_64367221
DaFan, je hebt geljk, ik bedoelde EN.
Nee ik kom er niet uit, ben er al een tijdje mee bezig geweest. Hij zeurt over het = teken. De vraag is dus wat doe ik verkeerd. Ik zie je oplossing graag tegemoet .
pi_64367262
Welk = teken?
Geef dus even je huidige formule en waar het probleem zich voordoet
  vrijdag 26 december 2008 @ 01:18:23 #56
62215 qu63
..de tijd drinkt..
pi_64367791
quote:
Op vrijdag 26 december 2008 00:56 schreef BertuzZz het volgende:
DaFan, je hebt geljk, ik bedoelde EN.
Nee ik kom er niet uit, ben er al een tijdje mee bezig geweest. Hij zeurt over het = teken. De vraag is dus wat doe ik verkeerd. Ik zie je oplossing graag tegemoet .
=ALS(EN(A1>=(A2*0,98);A1<=(A2*1,02));"waar";"onwaar")

> en = omgedraait en de punten vervangen door een komma en hij doet het wel

althans.. in excel 2007 NL
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64367842
Meh bij mij (Office 2007) draait ie ze zelf om, niet op gelet.
Bertuzzz gaf trouwens zelf een voorbeeldformule mét puntkomma's. Nederlandse versie heb je weer 2 verschillende van, met komma's en puntkomma's en wanneer je welke nodig hebt weet ik ook niet.

Engels ftw?

Hoop dat je met qu's aanwijzingen erbij bent uitgekomen
  vrijdag 26 december 2008 @ 01:27:39 #58
62215 qu63
..de tijd drinkt..
pi_64368018
ik denk dat het getikt is met het nummerieke toetsenbord, dat geeft overal een punt, behalve in excel

En ik heb de punten in 0,98 en 1,02 vervangen door komma's, de puntkomma's ( ; ) heb ik gewoon zo gelaten
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64368060
Op die fiets. We horen het wel
pi_64368295
dank u. Ook met puntkomma's werkt hij! ik vind die volgorde echt irri bij excel.
Geef mij maar SQL, die geeft fatsoenlijke meldingen en daar kom ik uit
pi_64375105
quote:
Op vrijdag 26 december 2008 00:39 schreef DaFan het volgende:
Sylvesterr; ik snap er geen bal van, voorbeeldje?
Is het zó onduidelijk?

Voorbeeld Excel-bestandje. Zoals je ziet zijn enkel de laatste 52 weken zichtbaar in de grafiek. Volgende week wordt rij 53 onzichtbaar en rij 105 zichtbaar. Helaas schuiven de ingekleurde datapoints in de grafiek daarmee ook een weekje op...

Ik hoop dat het nu iets duidelijker is.
pi_64376250
Doe je die rijen handmatig veranderen, dan de Serie aanpassen in je grafiek? En hoe gaat het als je aan het einde vna je data bent, of kan dat niet?

Je kan een macro schrijven om een variable name te maken die telkens de xste hoeveelheid weken erin zet en die plot als grafiek, waarbij je dan nog later kan aangeven welke gehighlight moeten worden. Maar dat is een hoop werk en ik weet niet 100% zeker hoe het moet.
pi_64377011
De rijen worden op dit moment met behulp van een macro zichtbaar en onzichtbaar gemaakt. De data kan inderdaad niet 'op'. De 'events' die gehighlight worden vinden niet om de X weken plaats, maar in wilekeurige weken (die bij mij bekend zijn!).

De Serie hoef ik niet aan te passen in de grafiek, want de source is "alles". Zodra je een rij zichtbaar danwel onzichtbaar maakt is dat meteen terug te zien in de grafiek.

Ik denk dat ik in VBA de 52 zichtbare rijen langs ga lopen. Wanneer een bepaalde cel in die rij een andere achtergrondkleur heeft kan ik het bijbehorende datapoint in de grafiek highlighten.
pi_64377054
Lijkt mij dat dat wel werkt ja. Kijk ff hoe ver je komt (weet niet of je bekend bent met VBA). Als je ergens vast zit, hoor ik het wel.
  vrijdag 26 december 2008 @ 14:55:21 #65
62215 qu63
..de tijd drinkt..
pi_64377226
Kan je niet dmv een extra kolom een kleurcode meegeven?
0 = standaard
1 = ander kleurtje?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64377351
quote:
Op vrijdag 26 december 2008 14:55 schreef qu63 het volgende:
Kan je niet dmv een extra kolom een kleurcode meegeven?
0 = standaard
1 = ander kleurtje?
Ik kan ook naar een celwaarde kijken in plaats van de achtergrondkleur. Feit blijft dat ik die 52 rijen wel langs moet lopen.
quote:
Op vrijdag 26 december 2008 14:49 schreef DaFan het volgende:
Lijkt mij dat dat wel werkt ja. Kijk ff hoe ver je komt (weet niet of je bekend bent met VBA). Als je ergens vast zit, hoor ik het wel.
Ik ben gelukkig wel bekend met VBA. Mr. Google helpt mij vaak ook een handje wanneer ik er niet uit kom.
pi_64418113
Hoi, ik heb een vraagje m.b.t. printen. Geen idee hoe ik het in woorden uit moet leggen dus ik doe het ff met paint
Ik heb een hele lange, relatief smalle tabel, en die wil ik printen zodattie zo op papier komt:



Hoe krijg ik dat voor elkaar?

-edit-
en even voor de duidelijkheid: ik weiger het om voor 44 pagina's handmatig die hele tabel in stukken te knippen en naast elkaar te plakken

[ Bericht 22% gewijzigd door mcDavid op 28-12-2008 00:51:10 ]
pi_64419132
quote:
Op zondag 28 december 2008 00:44 schreef mcDavid het volgende:
Hoi, ik heb een vraagje m.b.t. printen. Geen idee hoe ik het in woorden uit moet leggen dus ik doe het ff met paint
Ik heb een hele lange, relatief smalle tabel, en die wil ik printen zodattie zo op papier komt:

[ afbeelding ]

Hoe krijg ik dat voor elkaar?

-edit-
en even voor de duidelijkheid: ik weiger het om voor 44 pagina's handmatig die hele tabel in stukken te knippen en naast elkaar te plakken
Dat kan zeker weten, ik heb anderhalf jaar geleden een keer een macro geschreven voor exact dezelfde vraag.
Alleen weet ik niet meer hoe ik die was. Komt ook door de grote hoeveelheid alcohol die ik nu op heb.
Als maandag je vraag nog niet beantwoord is zal ik gaan zoeken. Want ik kan de macro op mijn werk vinden.
pi_64419405
Kolommen samenvoegen op 1 pagina
Om je tijd te besparen heb ik dit gevonden. Je zal de macro nog wel moeten aanpassen.
Ik weet niet of dit is wat je zoekt, ik heb thuis geen excel, dus ik kan niet controleren of dit doet wat jij wilt.
pi_64423952
Je kan toch gewoon naar Printvoorbeeld gaan, en dan die blauwe lijnen verschuiven?
(Ik kan het nu niet beter uitleggen ik heb geen printer geïnstalleerd dus Excel weigert mij een voorbeeld te geven...nice).
  zondag 28 december 2008 @ 17:29:02 #71
62215 qu63
..de tijd drinkt..
pi_64435446
Ik ben in mijn sheet op zoek naar de eerstvolgende deadline. De deadlines die al geweest zijn worden niet verwijderd en staan er dus ook nog gewoon in (anders was een MIN() de oplossing).

En, indien mogelijk, wil ik meerdere deadlines weer laten geven (sommige deadlines hebben dezelfde datum namelijk..)

Iemand enig idee?
Excel 2007 NL
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 17:45:36 #72
62215 qu63
..de tijd drinkt..
pi_64436080
En een toevoeging daarop:
Is het ook mogelijk om alle deadlines automagisch te exporteren naar mijn Outlook Agenda? Heb zelf absoluut geen idee of het überhaupt wel mogelijk is, in tegenstelling tot mijn vorige vraag..

Eigenlijk dus gewoon een lijst met datums (kolom E, plus 2 omschrijvingen (hoofd en subdoelen, beide in Kolom B)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64436104
Ooh mooi probleem
Morgen ff kijken

Ik neem aan dat je gewoon een lijst met data hebt en daarvan eigenlijk de dichtsbijzijndste (eerstvolgende) zoekt?
  zondag 28 december 2008 @ 17:51:53 #74
62215 qu63
..de tijd drinkt..
pi_64436300
quote:
Op zondag 28 december 2008 17:46 schreef DaFan het volgende:
Ooh mooi probleem :P
Morgen ff kijken :)

Ik neem aan dat je gewoon een lijst met data hebt en daarvan eigenlijk de dichtsbijzijndste (eerstvolgende) zoekt?
Nouja.. het is een vrij uitgebreide Gantt-chart aan het worden, dus de datums staan sowieso al niet op volgorde :P

Ik zal ff kort wat copy-pasten:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
1   Portfolio 3   Map   07-12-08   03-03-09   86   26%   62   22   64   di
1.1   Plannen      07-12-08   11-01-09   36   100%   25   36   0   zo
1.2   Presenteren      07-12-08   16-01-09   41   50%   30   20   21   vr
1.3   Netwerken      07-12-08   15-02-09   71   0%   50   0   71   zo
1.4   Kernkwadranten      07-12-08   25-01-09   50   0%   35   0   50   zo
1.5   Time management      29-12-08   19-01-09   22   0%   16   0   22   ma
1.6   Mentorgesprek      03-03-09   03-03-09   1   50%   1   0   1   di
2   Portfolio 4   Map   15-12-08   26-06-09   193   19%   140   37   156   vr
2.1   Plannen      15-12-08   11-01-09   28   14%   20   4   24   zo
2.2   Big Five                     0   0   
2.3   Mindmap                     0   0   
2.4   SWOT jezelf                     0   0   
2.5   Johari Raam                     0   0   
2.6   E-scan 2                     0   0   
2.7   Verleden-heden-toekomst                     0   0   
2.8   Mentorgesprek      02-06-09   26-06-09   25   25%   19   6   19   vr


In dit geval wil ik dus zien dat de eerstvolgende deadline is:
Portfolio 3 - Plannen - 11-01-09
én
Portfolio 4 - Plannen - 11-01-09
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 17:52:21 #75
62215 qu63
..de tijd drinkt..
pi_64436314
ok, dat is best fucked up..

Ik gooi em ff online

-edit-
hier

[ Bericht 19% gewijzigd door qu63 op 28-12-2008 17:59:44 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64436507
The page cannot be found

Ik kan wel een voorbeeldje maken met gewoon data die in kolom A staan (denk dat ik er wel wat van kan bouwen), zou dat werken voor je?
  zondag 28 december 2008 @ 18:00:45 #77
62215 qu63
..de tijd drinkt..
pi_64436568
quote:
Op zondag 28 december 2008 17:58 schreef DaFan het volgende:
The page cannot be found
Nu als het goed is wel

Mn webhost kan niet met xlsx bestanden omgaan denk ik
quote:
Ik kan wel een voorbeeldje maken met gewoon data die in kolom A staan (denk dat ik er wel wat van kan bouwen), zou dat werken voor je?
Ik denk het wel, en zo niet dan meld ik het hier wel weer

[ Bericht 26% gewijzigd door qu63 op 28-12-2008 18:49:00 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 19:08:27 #78
62215 qu63
..de tijd drinkt..
pi_64438622
En als het kan iedere deadline op een aparte regel (met een maximum van 5 regels) met een link naar de desbetreffende regel (in mijn vorige voorbeeld dus naar B2 en B9)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64445073
quote:
Op zondag 28 december 2008 17:29 schreef qu63 het volgende:
Ik ben in mijn sheet op zoek naar de eerstvolgende deadline. De deadlines die al geweest zijn worden niet verwijderd en staan er dus ook nog gewoon in (anders was een MIN() de oplossing).

En, indien mogelijk, wil ik meerdere deadlines weer laten geven (sommige deadlines hebben dezelfde datum namelijk..)

Iemand enig idee?
Excel 2007 NL
Is het niet gewoon mogelijk m.b.v. een paar commando's dat je zeg maar het volgende dan doet...
- vergelijk alle kolommen met de huidige datum. Wanneer groter dan huidige datum dan sla op in een array. En die vervolgesn MIN() toepassen...
  zondag 28 december 2008 @ 22:05:30 #80
62215 qu63
..de tijd drinkt..
pi_64445196
quote:
Op zondag 28 december 2008 22:03 schreef Wouser het volgende:

[..]

Is het niet gewoon mogelijk m.b.v. een paar commando's dat je zeg maar het volgende dan doet...
- vergelijk alle kolommen met de huidige datum. Wanneer groter dan huidige datum dan sla op in een array. En die vervolgesn MIN() toepassen...
Dat zal vast mogelijk zijn, maar ik kan het niet
Ik snap niks van VB, commando's of macro's
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64469640
Ik ga er vandaag niet uitkomen en ben morgen weg voor 3 dagen, sorry.
  maandag 29 december 2008 @ 17:19:04 #82
62215 qu63
..de tijd drinkt..
pi_64469929
quote:
Op maandag 29 december 2008 17:09 schreef DaFan het volgende:
Ik ga er vandaag niet uitkomen en ben morgen weg voor 3 dagen, sorry.


IIg bedankt voor de poging
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64475038
zal morgen even kijken of het mogelijk is om de deadlines te laten exporteren. Vervolgens zou je gewoon in outlook kunnen kijken wat de eerste deadline is? Of moet dit ook in excel dat je bv... ctrl+p drukt en dat je dan automatisch naar de rij gaat waarin de eerste deadline staat?
  maandag 29 december 2008 @ 20:01:09 #84
62215 qu63
..de tijd drinkt..
pi_64475265
quote:
Op maandag 29 december 2008 19:54 schreef Wouser het volgende:
zal morgen even kijken of het mogelijk is om de deadlines te laten exporteren. Vervolgens zou je gewoon in outlook kunnen kijken wat de eerste deadline is? Of moet dit ook in excel dat je bv... ctrl+p drukt en dat je dan automatisch naar de rij gaat waarin de eerste deadline staat?
Ik wil ze in outlook krijgen, of dat agendapunten worden of taken maakt me op zich niet echt uit

En in excel wil ik alleen de eerste 5 deadlines bovenaan mijn sheet hebben (zodat het opvalt), meer hoeft niet
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64612463
hoe kan je van rechts naar links zoeken ipv van links naar rechts (zoals vind.spec doet). Ik ben op zoek naar de laatste "." in een kolom cellen.
pi_64617074
Wel in het Engels, vertalen kan je doen door de links in de OP te checken (weet niet welke versie je hebt).
Deze formule vindt de positie van de laatste "." in A1:
1=FIND(CHAR(1),SUBSTITUTE(A1,".",CHAR(1),LEN(A1)-LEN(SUBSTITUTE(A1,".",""))))
pi_64660344
Heb een aantal kolommen, heb er 2 nodig. In 1 staan gewoon namen, in de andere staat GOED of FOUT. Ik wil in een cel het aantal krijgen dat een naam gecombineerd is met GOED. Stel het ziet er nu zo uit:

Piet GOED
Karel GOED
Piet FOUT
Piet Goed
Kees Fout
Piet Goed

Dan wil ik in een cel eigenlijk aantal.als dat hij voldoet aan die 2 criteria, ik weet alleen niet hoe ik meerdere criteria kan opgeven. Aantal.als dat Piet het GOED had moet dus 2 worden.

Weet iemand hoe je dit doet?
  zondag 4 januari 2009 @ 20:30:17 #88
62215 qu63
..de tijd drinkt..
pi_64661207
een 3e kolom maken en daarin zetten =ALS(EN(A1="Piet";B1="Goed");"ok";"niet ok") en daarna alle ok's optellen met aantal.als?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64661208
Welke versie? Met 2007 kan je COUNTIFS gebruiken (je hebt Nederlands maar zie de links in de OP):

Aantal opties zijn hier:
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED")
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))

Tweede is de mooiste imo.

Btw: Antwoord is 3, geen 2
pi_64661434
quote:
Op zondag 4 januari 2009 20:30 schreef DaFan het volgende:
Welke versie? Met 2007 kan je COUNTIFS gebruiken (je hebt Nederlands maar zie de links in de OP):

Aantal opties zijn hier:
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED")
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))

Tweede is de mooiste imo.

Btw: Antwoord is 3, geen 2
Jaa, erg bedankt, die laatste zocht ik.

EDIT: Maar nu ga ik pas echt vervelend worden. Dit werkt nu prima, alleen wil ik nu dat hij -1 doet zodra hij Piet + FOUT vindt. Dus bij het voorbeeld hierboven, iedere keer dat er Piet en FOUT staat moet hij weer 1 van die '3' afhalen. Kan dat ook?
  zondag 4 januari 2009 @ 20:39:36 #91
62215 qu63
..de tijd drinkt..
pi_64661710
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))-SUMPRODUCT((A1:A6="Piet")*(B1:B6="Fout"))

lijkt me?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 4 januari 2009 @ 20:40:01 #92
62215 qu63
..de tijd drinkt..
pi_64661725
En heb je ook nog een oplossing voor mij DaFan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64661824
quote:
Op zondag 4 januari 2009 20:39 schreef qu63 het volgende:
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))-SUMPRODUCT((A1:A6="Piet")*(B1:B6="Fout"))

lijkt me?
Nee, probeer hem maar eens te ontleden.

Je krijgt hier de volgende matrices (voorbeeld overgenomen) met mijn formule:

{1,0,1,1,0,1}
en
{1,1,0,1,0,1}

Deze vermenigvuldig je met elkaar en worden bij elkaar opgeteld (boven naar beneden, dan links naar rechts optellen)
(1*1)
(0*1)
(1*0)
(1*1)
(0*0)
(1*1)
=
1+0+0+1+0+1
=
3
pi_64661874
quote:
Op zondag 4 januari 2009 20:40 schreef qu63 het volgende:
En heb je ook nog een oplossing voor mij DaFan?
Ik zal nog s kijken naar het bestand wat ik toen kreeg.
  zondag 4 januari 2009 @ 20:49:23 #95
62215 qu63
..de tijd drinkt..
pi_64662231
quote:
Op zondag 4 januari 2009 20:43 schreef DaFan het volgende:

[..]

Ik zal nog s kijken naar het bestand wat ik toen kreeg.
Thanks
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64663631
Ok klaar.
Ik heb hem in het Workbook_open event gezet (Alt-F11, dubbelklik links op ThisWorkbook, plak rechts) zodat ie hem uitvoert en de deadlines in Blad3 komen te staan.
Ik gebruik Blad2 als hulpblad maar je bent natuurljik vrij om die cellen te verplaatsen of w/e. Let er dan wel op dat je de With Worksheets("Blad2") moet 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
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Workbook_Open()

Dim c As Range
Dim Lastrow, j As Integer

With Worksheets("Blad2")
    Lastrow = Range("E65536").End(xlUp).Row
    .Range("A1").Value = Lastrow
    .Range("A2").Value = Date
    .Range("A4").Value = 5000
    j = 2
    
    For i = 2 To Lastrow
        If Range("E" & i).Value <> "" Then
        
        Datum = Range("E" & i).Value
        .Range("A3").Value = Datum
        If Datum > Date Then
            If (Datum - Date) < .Range("A4").Value Then
                .Range("A4").Value = Datum - Date
            End If
        End If
        
        End If
    Next i

    For i = 2 To Lastrow
        If Range("E" & i).Value <> "" Then
            If Range("E" & i).Value - Date = .Range("A4").Value Then
                Worksheets("Blad3").Range("A" & j).Value = Range("E" & i).Value
                Worksheets("Blad3").Range("B" & j).Value = Range("B" & i).Value
                j = j + 1
              End If
        End If
    Next i
    
End With

End Sub


Succes.

PS: Ik wil m ook wel mailen (je originele bestand) dan moet je ff je mailadres pmen of hier posten.
  zondag 4 januari 2009 @ 21:28:35 #97
62215 qu63
..de tijd drinkt..
pi_64664567
Op zich werkt je code wel (ik moet er alleen een xlsm bestand van maken ivm de macro), alleen krijg ik dit op Blad2:
1
2
3
4
1
4-1-2009

5000

Dat is inderdaad wel de eerste deadline, maar welke daarna komt weet ik nog niet. En ook niet welke opdracht er bij die deadline hoort. Is dat ook te doen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64664860
Dat staat toch in Blad3?
  zondag 4 januari 2009 @ 21:38:17 #99
62215 qu63
..de tijd drinkt..
pi_64665142
quote:
Op zondag 4 januari 2009 21:33 schreef DaFan het volgende:
Dat staat toch in Blad3?
Nope, Blad3 is helemaal leeg
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64665257
Hm als er 5000 staat lijkt hij niet verder te komen in de IFs. Bij mij werkt hij prima.

Kan je eens proberen om op Blad2 cellen A2 en A3 hetzelfde op te maken (qua datumnotatie) als in Blad1 en in Blad3 de hele kolom A?
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')