CicloFor

Hai un problema con Excel?

Nuova discussione

CicloFor
di FRED-17 (utente non iscritto) data: 04/03/2016 11:52:23
Buongiorno a tutti,

avrei bisogno di un aiuto sulla compilazione di un modulo.
Spiego la situazione:
ho un file in cui devo inserirìsco righe manualmente, però così facendo le formule vengono sfalsate.

Quindi ho pensato di fare una macro che le riaggiorni ogni qualvolta ne ho bisogno.
I problema nasce perchè riaggiornando le formule, vengono cancellati i valori che ho inserito al posto della formula (inserisco numeri manualmente sopra le formule).

questo è il codice che ignorantemente ho provato a sviluppare,
Grazie in anticipo dell'aiuto!

FRED

Sub Macro2()
'
' Macro2 Macro
'

'
    Dim UltimaRigaX As Integer
    Worksheets("Foglio1").Select
    UltimaRigaX = Range("B4").End(xlDown).Select
    Range("I5").Select
    For Index = 5 To UltimaRigaX
        UltimaRigaX = Range("B4").End(xlDown).Select
        If IsNumeric(Range("I" & Index)) Then
                ActiveCell.FormulaR1C1 = _
                "=IF(AND(R[0]C[-8]=R[1]C[-8],R[0]C[-8]<>R[-1]C[-8]),SUMIFS(R[1]C:R804C,R[1]C[-8]:R804C[-8],""=""&[@ARTICOLO]),"""")"
                End If
     Next Index
End Sub

di patel data: 04/03/2016 13:02:24
allega un file di esempio con anche spiegazioni e risultato da ottenere

Vuoi Approfondire?