activare formule cu VBA

[cristi_an]

Salutare
Stiu ca este o problema de incepatori, insa este cineva care poate sa ma ajute cu informatia de mai jos?
Cum se activeaza VBA care lanseaza o formula din Foaie, iar acea formula sa ruleze C3:C100, fara a fi nevoie delansare cu F5?
Intr-un final am reusit ca in urma unor conditii sa imi afiseze data, nefiind nevoie de activarea cu F5.
La formule nu gasesc cum sa fie activate fara F5.
Rog scuzati termenii tehnici.
Multumesc si o zi placuta!

Cod: Selectaţi tot

Sub Macrocomandã5()

    Range("C2:C8").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,(RC[-2]+RC[-1]),"""")"
    Range("C2:C8").Select
    Range("C3").Activate
    
End Sub

Private Sub worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet

If Target.Column = 8 Then
Range("I" & Target.Row) = Now
End If

If Target.Column = 14 Then
Range("M2:M" & Target.Row) = Range("L2")
End If

End Sub

[cristi_an]

Buna seara, intrebare:
Este posibil ca VBA sa ruleze formule fara a activa cu F5?
Daca da, rog sa-mi dati indicii pentru a rezolva problema careia nu-i dau de capat.

[cristi_an]

In caz ca cineva se va lovi de aceasi problema, acesta este codul:

Cod: Selectaţi tot

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range

    With Me
        Set rng = .Range("A3:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
    End With

    If Not Application.Intersect(rng, Target) Is Nothing Then
        With rng.Offset(0, 2).Resize(, 1)
            .FormulaR1C1 = "=IF(RC[-2]>0,(RC[-2]+RC[-1]),"""")"
        End With
    End If
End Sub