kan methode of gegevenslid niet vinden
rnnde...@hotmail.com
Via vba wordt in het tabblad "UURROOSTER GO" een cel geselecteerd die
een datum bevat. Tevens wordt in het tabblad "Verlofaanvragen 2008" de
cel "A2" geselecteerd, deze cel bevat de datum "di 01/01" met in A3:
"wo 02/01" .....tot A367: "wo 31/12"
Ik wil dat excel voor de geselecteerde datum in "UURROOSTER GO"
dezelfde datum opzoekt in Kolom A van "Verlofaanvragen 2008". Om
daarna indien op dezelfde rijhoogte iets is ingevuld het aantal uren
en soort verlof te kopiëren naar de gepaste Naam (in kolom A) ondere
de gepaste datum (zelfde kolom als de eerder vernoemde geselecteerde
cel) van "UURROOSTER GO"
opbouw UURROOSTER GO:
A B C D
E F G
1 DATUM ma 07/01 di 08/01 wo 09/01 do 10/01 vr 11/01 za 12/01
2 ANN
3 LUC
4 JURGEN
5 DELPHINE
6 ANDY
opbouw Verlofaanvraag 2008
A B C D
E F
1 DATUM ANN LUC JURGEN DELPHINE ANDY
2 di 01/01
3 wo 02/01
4 do 03/01
5 vr 04/01
6 za 05/01
7 zo 06/01
8 ma 07/01
9 di 08/01
10 wo 09/01
11 do 10/01 8AV
12 vr 11/01
13 za 12/01
14 zo 13/01
Zelf dacht ik iets in de zin van
Dim UURROOSTER As Sheets
Dim VERLOFAANVRAGEN As Sheets
Set UURROOSTER = Sheets("UURROOSTER GO")
Set VERLOFAANVRAGEN = Sheets("Verlofaanvragen 2008")
Do Until VERLOFAANVRAGEN.ActiveCell = UURROOSTER.ActiveCell Or
VERLOFAANVRAGEN.ActiveCell = ""
VERLOFAANVRAGEN.ActiveCell.Offset(1, 0).Select
Loop
doch ik vind niet hoe ik ActiveCell moet dimmen want daar krijg ik de
foutmelding.
Bedankt !
Ronny
Jan B.
een verwijzing als UURROOSTER.ActiveCell is verboden.
UURROOSTER.[A1] of UURROOSTER.Range("A1") mag wel.
Dat betekent dat je de sheet eerst moet selecteren om ActiveCell te kunnen
gebruiken.
Je zult je code daarin moeten aanpassen.
--
met vriendelijke groet,
Jan B.
"rnnde...@hotmail.com" schreef: