How to fill a cell with formula if condition fulfilled

[ruliansyah]

Hello masters,

I need help, I need vba code to do this:
If I enter value on column C1 and D1 then I would like column E1 automatically filled with formula like "=(C1*D1)-((C1*D1)*10%)" and so with the next row but only if i enter the value on c and d, if nothing entered then the formula is not needed.
Please help me.

Thank you

[Alf]

You could try a formula like this

=IF(AND(C1<>0,D1<>0),(C1*D1)-(C1*D1)*0.1,"")

Don't know what your decimal separators are "," or "." or if you use ";" or "," but I guess the later. Test if it works.

Alf

[ruliansyah]

thank you for your reply mr. Alf, I don't want to put the formula manually on the cell I want to use vba code to insert the formula and copy the validation from row above.
would you please help me with that?

[Alf]

Well then you could try a macro like this.

Sub WriteForm()

Dim i As Integer

For i = 1 To Range("C" & Rows.Count).End(xlUp).Row

If Cells(i, 3) <> 0 And Cells(i, 4) <> 0 Then
    
    Range("E" & i).Formula = "=(C" & i & "*D" & i & ")-(C" & i & "*D" & i & ")* 0.1"
    
End If

Next
 
End Sub

Alf