Excel VBA IF statement to perfrom calculation

[simongilder]

Hi There,

Iam trying to write a simple macro using an IF statement which does the following

Looks in values in Column A, if the value is X, then multiply the corresponding value in Column Y by -,, otherwise, do nothing.

Can anybody help?

I began with

For i = 1 To 65536

If Cells(i, 1).Value = "B" Then .....


End If


Not very far at all really!

Can anybody help?

many thanks

Simon

 

[ztodd]

why not do it with a formula instead of a vba macro?
if you have headers in row 1 and data starting in row 2- put a formula like this somewhere in row 2-
=if(a2="B",y2*2,y2)

 

[OFFICE360]

try something like this. I have made the font bold for important areas.
edit it to suit your need.

Visni.

'[COLOR=#333333]Looks in values in Column A, if the value is X, then multiply the corresponding value in Column Y by -,, otherwise, do nothing.[/COLOR]

Sub editVal()
dim lastrow as long
dim i as long


lastrow = Range("A" & Rows.Count).End(xlUp).Row' get last row based on column A


For i = 1 To lastrow 


If Cells(i, "A").Value = "[B]x Value[/B]" Then'column A, x value can be replaced by your critiria.
        [U]Cells(i, [B]"Y"[/B]).Value = Cells(i, "Y").Value * Cells(i, "X").Value[/U]'edit value in column Y = x column value * column x value.
End If


next i


End Sub

 

[simongilder]

try something like this. I have made the font bold for important areas.
edit it to suit your need.

Visni.

'[COLOR=#333333]Looks in values in Column A, if the value is X, then multiply the corresponding value in Column Y by -,, otherwise, do nothing.[/COLOR]

Sub editVal()
dim lastrow as long
dim i as long


lastrow = Range("A" & Rows.Count).End(xlUp).Row' get last row based on column A


For i = 1 To lastrow 


If Cells(i, "A").Value = "[B]x Value[/B]" Then'column A, x value can be replaced by your critiria.
        [U]Cells(i, [B]"Y"[/B]).Value = Cells(i, "Y").Value * Cells(i, "X").Value[/U]'edit value in column Y = x column value * column x value.
End If


next i


End Sub

Many thanks for your responses...I am still working on this....

Kind regards

Simon