[VBA] Formattazione delle celle in Excel

[Hartman]

Salve

sto muovendo i primi passi con vba per excel però ho un problema con la formattazione dei numeri. Con il seguente codice:

Private Sub Aggiungi_Click()
    Worksheets("Movimenti CC").Activate
    Rows(10).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
    Cells(10, 5).Formula = "=e11+d10"
    Cells(10, 2).Value = data
    Cells(10, 3).Value = descrizione
    Cells(10, 4).Value = importo
    Cells(10, 6).Value = note
    For i = 2 To 6
        Cells(11, i).Copy
        Cells(10, i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
    Unload Me
End Sub

il valore nella cella 10,4 non assume il formato corretto, inoltre non riesco neanche ad applicarlo manualmente all'interno di excel. Cosa sbaglio? Grazie

[gibra]

1) Cosa intendi per formato non corretto ?
2) Cosa appare?
3) TU cosa vuoi far apparire?

Possiamo saperlo, oppure è un segreto di stato?

[Hartman]

Nessun segreto di stato. Colore, font, dimensione vengono correttamente applicati copiando le proprietà dalla riga inferiore ma la formattazione dei numeri (per esempio valuta) no. La cosa strana è che anche una volta chiusa la macro, se seleziono la cella in excel e dal menu a tendina provo scegliere formato valuta o qualunque altro formato, non accade nulla.

[gibra]

Ho fatto il DEBUG del tuo codice e....
Se lo fai anche tu scoprirai che il tuo codice funziona (in parte),
perchè poi il ciclo For/Next cancella la formattazione infatti copia le celle della riga 11 sulla 10.