index omgekeer werkend

[dinoshop]

ik zoek juist iets anders om dan index
heb een rij en een kolom en nu moet die daar dus een getal in vullen
blad a1 geef ik April in a2 de dag 7 en in a3 8 uur nu moet hij in de kalender dus opzoeken april en dag 7 en dan vult hij daar 8 uur in.
hoop dat jullie het begrijpen

 

[roeljongman]

ja dat begrijpen wij wel en is ook niet zo moeilijk waarschijnlijk, maar we hebben van jou een voorbeeldje nodig om de juiste formule te kunnen ophoesten.

 

[dinoshop]

bij deze bijgevoegd

heb even snel inmekaar geflanst
maar hierbij moet het werken blad 2 is dus datablad waar het in moet komen
Bekijk bijlage urerentest.xlsmBekijk bijlage urerentest.xlsm

 

[sylvester-ponte]

met zoiets moet het lukken

Sub Invullen()
[maanden].Find([maand]).Offset(0, [Invuldag]) = [uren]
End Sub

waarbij
maanden de maanden in blad1 zijn
maand is de maand op blad2
dag is de dag op blad2
uren is het urenveld op blad2

dus voor het gemaak eerst wat namen aanmaken dat werkt makkerlijker

groet

 

[dinoshop]

re dino

heb dit meteen uit geprobeerd maar krijg fout melding type komen niet overeen .
kan jij hem in excel bestand die ik mee heb gestuurd aan maken zodat wel werkt .
al vast dank
Bekijk bijlage urerentest.xlsm

 

[sylvester-ponte]

zo iets? Bekijk bijlage urereninvultest.xlsm

 

[dinoshop]

man mag ik je danken precies wat ik wil thanks

 

[dinoshop]

nog een vraagje dan

is ook mogelijk dat die meteen kijkt naar welk blad hij moet invullen.

stel gegvens moeten naar naar blad 5

 

[sylvester-ponte]

zo iets? Bekijk bijlage urereninvultest(2.xlsm

de naam "maanden" in bald1 met berijk "bald1" gedfinieerd
de naam "maanden" in bald3 met berijk "blad3" gedfinieerd

zie namen beheren

je kunt nu de bald_naam in A3 zetten (op bald2)
het macrootje ziet er nu zo uit:

Sub Invullen()
    tekst = [bladnaam]
    Sheets(tekst).[maanden].Find([maand]).Offset(0, [Invuldag]) = [uren]
End Sub

groet sylvester