VBA activate Sheet in Excel

[McM_]

Hello
I know this is a beginner problem, but is there anyone who can help me with the information below?
How to activate VBA that launches a formula from the Sheet, and that formula to run C3:C100, without the need to launch with F5?
In the end, I managed to display the date under certain conditions, without needing to activate it with F5.
I can't find how to activate the formulas without F5.
Please excuse the technical terms.
Thank you !

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 SubPrivate Sub worksheet_Change(ByVal Target As Range)Dim ws As WorksheetIf Target.Column = 8 ThenRange("I" & Target.Row) = NowEnd IfIf Target.Column = 14 ThenRange("M2:M" & Target.Row) = Range("L2")End IfEnd Sub

 

[rlv01]

You have posted two macros:

Sub Macrocomand5()
    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

Can you explain what you are trying to make them do?

 

[McM_]

True, I posted 2 macros. What I'm looking for is to transpose formulas in VBA to be activated without F5. What helps me is to receive a code that automatically activates the formulas in the sheet when a condition is met. In the first macro I took a simple example of the formula and I need the code to activate the formula in the sheet, after which I will apply the example in the future to all my projects. I am not interested in the formula but in the way of its activation.
If I was not understood, I will come back with explanations. At the same time, today I redid the post in which I also attached the table.

 

[McM_]

In Macros two it is like an example. The formulas are automatically activated when the conditions are met. That's what I want in the first macro as well

 

[McM_]

I am also attaching the table

VBA.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Example 1							Example 2				Example 3
2	it only works with F5 activation							it works without activating F5				it works without activating F5		write here
3	1	2	3	it only works with F5 activation				abc	27.10.2023 10:14			test	test	yyt
4	3	4		didn't work				cda	27.10.2023 10:14				test	gghfh
5	5	9		didn't work				bac	27.10.2023 10:14				test	ghgh
6	4			didn't work				abd	27.10.2023 10:15				test	yuyu
7									28.10.2023 05:39
8
9
10
11
12
13
14
15
16
17						t
18
19
20
21
22
Foaie1

Cell Formulas
Range	Formula
C3,C16:C22	C3	=IF(A3>0,(A3+B3),"")

 

[rlv01]

I don't understand what you mean when you say you use F5 to "activate" the formula. On my copy of Excel, pressing F5 brings up the "Go To" dialog.

 

[McM_]

Hello!
This code only runs by clicking on Run Macros (F5). But I want more.
I want the formulas to run when a condition is met. Colleagues who work on the table will not have access to click on Run Macros.
I have attached the picture

 

[Alex Blakenburg]

What you are doing doesn't really make sense since you are populating the same or at least overlapping range of rows each time.
But see if this gives you any ideas.

Private Sub worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    
    Application.EnableEvents = False
    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

    If Target.Column = 1 Or Target.Column = 2 Then
        Range("C2:C" & Target.Row).FormulaR1C1 = "=IF(RC[-2]>0,(RC[-2]+RC[-1]),"""")"
        
        ' Not sure why you would want these 2 lines but I kept them in
        Range("C2:C" & Target.Row).Select
        Range("C3").Activate
    End If
    Application.EnableEvents = True
End Sub

 

[McM_]

It is my fault that I complicated the table, to give an example of how I want the ending to be.
I redo the table with what I need.
At this moment, if B3 is a number, automatically minus B3-A3.
If B4 fulfills the condition (isnumber), it does not decrease B4-A4 and so on every row.....
ThanK for your time!

Sub Macrocomandã4()

    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[-1]),RC[-1]-RC[-2],"""")"
    Range("D3").Select
End Sub

VBA.xlsm
	A	B	C	D	E
2
3	1	2	1
4	3	4		didn't work
5	5	9		didn't work
6				didn't work
7
8
9
10
11
12
13
14
Foaie1

Cell Formulas
Range	Formula
C3,D11,C8:C9	C3	=IF(ISNUMBER(B3),B3-A3,"")

 

[NoSparks]

Is the actual question here maybe being lost in a language translation and is
How to trigger a macro from cells containing a formula ?