Raga salve a tutti,
dovrei trasfromare le seguenti formule in codice VBA in quanto immettendole in VB mi da errore memoria insufficente. Difatti ho provato con la formula che segno in rosso dandnomi l'errore.
Il codice è il seguente:

codice:
Cells(R, C) = CDate(CStr(J) & "/" & CStr(M) & "/" & CStr(A))
Cells.Formula(R, C + 1) = "=IF((R, C)<>"""",PROPER(TEXT((R, C),""gggg"")),"""")" 
'Cells.Formula(R, C + 1) = "=SE(U88<>"";MAIUSC.INIZ(TESTO(U88;"gggg"));"")"
'Cells(R, C + 7) = SE(X88<>"";((X88-TRONCA(X88))*100/60)+TRONCA(X88);"")
'Cells(R, C + 8) = SE(X88<>"";((Y88-TRONCA(Y88))*100/60)+TRONCA(Y88);"")
'Cells(R, C + 9) = SE(X88<>"";((Y88-TRONCA(Y88))*100/60)+TRONCA(Y88);"")
'Cells(R, C + 10) = SE(X88<>"";((Z88-TRONCA(Z88))*100/60)+TRONCA(Z88);"")
'Cells(R, C + 11) = SE(X88<>"";AC88-AB88-AA88-AD88;"")
'Cells(R, C + 12) = SE(X88<>"";SE(AE88> M31;M31;AE88);"")
'Cells(R, C + 13) = SE(X88<>"";SE(AE88>M31;AE88-M31;0);"")
'Cells(R, C + 14) = SE(X88<>"";SE(GIORNO.SETTIMANA(U88)=1;AE88;0);"")
'Cells(R, C + 15) = SE(X88<>"";((AA88-TRONCA(AA88))*60/100)+TRONCA(AA88);"")
'Cells(R, C + 16) = SE(X88<>"";((AE88-TRONCA(AE88))*60/100)+TRONCA(AE88);"")
'Cells(R, C + 17) = INT((GIORNO(U88)-1)/7)+1
R = R + 1
'U88 = (R, C); X88 =(R, C+3); Y88 = (R, C+4); Z88 = (R, C+5); AA88 = (R, C+6)
grazie mille