macro con formula che scrive falso

[matzap]

ciao,
ho questa formula:
=SE(C8<>"";DATA.MESE(C8;D8);"")
vorrei inserirla tramite vba :

Codice: Seleziona tutto

ultimarig = Cells(65536, 1).End(xlUp).Row
Cells(ultimarig + 1, 1).Select
Selection.Offset(0, 4).Value = FormulaR1C1 = "=IF(RC[-2]<>"""",EDATE(RC[-2],RC[-1]),"""")"


ma invece di avere la formula nella cella E8
mi ritrovo scritto "FALSO" non come risultato ma come testo
sapete dirmi perchè?

[Marius44]

Ciao Matzap
credo che l'errore sia nella selezione.
Quando scrivi Cells(ultimarig + 1, 1).Select quel +1 ti fa selezionare una cella vuota e, di conseguenza, il risultato delle formula è FALSO.

La "traduzione" in VBA mi pare corretta tranne la selezione della cella da valutare.
Ciao,
Mario

[matzap]

ciao Mario,
mi pongo nella prima casella vuota della prima colonna, mi sposto nella colonna E con Offset(0,4) e poi inserisco la formula.
cosa vuo dire di conseguenza il risultato è falso?
inoltre non è un risultato ma mi scrive proprio falso....
ciao

[Anthony47]

La tua sintassi e' approssimata, prova con

Codice: Seleziona tutto

Selection.Offset(0, 4).FormulaR1C1 = "=IF(RC[-2]<>"""",EDATE(RC[-2],RC[-1]),"""")"

Ciao a tutti.

[matzap]

Ciao Anthony,
ho risolto in questo modo:

Codice: Seleziona tutto

Selection.Offset(0, 4).select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",EDATE(RC[-2],RC[-1]),"""")"
Cells(ultimarig + 1, 1).Select

sembra che devo proprio selezionare la cella.
domani provo con la tua sintassi.
Intanto Grazie
buona serata