VBA DateSerial

VBA DateSerial
di Raffaele_53 (utente non iscritto) data: 18/06/2013 12:20:13
Salve, dovrei trovare un modo per fare una procedura piuttosto insolito per me.
In C5 ho una data 17/05/2013
In K5 ho una convalida_dati/elenco 1;2;3;4 ecc ecc;12
In L5 ho una convalida_dati/elenco 1;2;3;4 ecc ecc;12
In M5 In ho una convalida_dati/elenco 0;-1;-2;-3;-4;-5
Si tratta di ripartire delle spese in una tabella intestata come data = 1/5/2013, 1/672013; 1/7/2013

Se scrivo in O5=1000, due convalide vuote K5 = 1, la macro prende la data in C5 e inserisce 1000 alla colonna 1/5/2013
Se scrivo in O5=1000, due convalide vuote K5 = 2, la macro prende la data in C5 e inserisce 500 alla colonna 1/5/2013 e 500 in colonna 1/6/2013. Se metto K5 = 4, avrebbe ripartito 250 a 1/5/2013, 1/672013; 1/7/2013; 1/8/2013

data = DateSerial(Year(F1.Cells(x, 3)), Month(F1.Cells(x, 3)), 0) + 1 riesco ad avere il valore 1/5/2013
Ps. devo proprio fare un ciclo For, Find non ci riesco (forse perchè è una data?)

Causa ex certi pagamenti post datati.
Altro esempio: K5 = 4; L5 = 2 (signifa il mese iniziale) e M5 vuota
Tramite DateSerial, posso trovare la data 1/2/2013?

Altro esempio: K5 = 4; L5 = 2; M5 = -1 (signifa anno iniziale)
Tramite DateSerial, posso trovare la data 1/2/2012?
Se desiderate sposto il files, però è confusionario.
di Raffaele_53 (utente non iscritto) data: 18/06/2013 12:24:22
Edit
>>>posso trovare la data
Dovrei trovare la data nei due ultimi esempi