Automatically Change Cell Value Via Code

[elsg]

Hi.
I need to have the result in VBA.


If the value of the cell in column "A" is equal to the same cell in Column "B" then in column "C" is written "OK"

A9=3 B9=3 then C9=OK

Value1	Value2	Result
104	87
402	402	OK
245	1
38	15
257	357
367	367	OK
400	401
831	31
648	64
783	78
183	183	OK
243	311
869	66
886	886	OK
1000	8

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[JoeMo]

This assumes your data for Value1 begin in A2.

Sub MarkMatchAsOK()
Dim lR As Long, vA As Variant, R As Range
lR = Range("A" & Rows.Count).End(xlUp).Row
Set R = Range("A2", "B" & lR)
vA = R.Value
Application.ScreenUpdating = False
For i = LBound(vA, 1) To UBound(vA, 1)
    If vA(i, 1) = vA(i, 2) Then R.Cells(i, 1).Offset(0, 2).Value = "OK"
Next i
End Sub

 

[elsg]

Hi.
thanks for replying!
how do I start with the data on B7?

	Column-B	Column-C		Column-E
	Value1	Value2		Result
Row-B7	104	87
Row-B8	402	402		KO
Row-B9	245	1
Row-B10	38	38		OK
Row-B11	257	357
Row-B12	367	367		OK
Row-B13	400	401
Row-B14	831	31
Row-B15	648	64
Row-B16	783	78
Row-B17	183	183		OK
Row-B18	243	311
Row-B19	869	66
Row-B20	886	886		OK
Row-B21	1000	8

<colgroup><col><col span="2"><col><col></colgroup><tbody>
</tbody>

<tbody>
</tbody>

I try...

Sub MarkMatchAsOK()Dim lR As Long, vA As Variant, R As Range
lR = Range("B" & Rows.Count).End(xlUp).Row
Set R = Range("B7", "C" & lR)
vA = R.Value
Application.ScreenUpdating = False
For i = LBound(vA, 2) To UBound(vA, 2)
    If vA(i, 2) = vA(i, 3) Then R.Cells(i, 2).Offset(0, 4).Value = "Liberada"
Next i
End Sub

Thank you!!

 

[elsg]

Hi.

Any idea?

Thks

 

[JoeMo]

Sub MarkMatchAsOK()
Dim lR As Long, vA As Variant, R As Range, oRw As Long
lR = Range("B" & Rows.Count).End(xlUp).Row
Set R = Range("B7", "C" & lR)
vA = R.Value
Application.ScreenUpdating = False
For i = LBound(vA, 1) To UBound(vA, 1)
    If vA(i, 1) = vA(i, 2) Then R.Cells(i, 1).Offset(0, 2).Value = "OK"
Next i
End Sub

 

[northwolves]

Try:

Sub MarkMatchAsOK()
With [e7].Resize([b7].End(4).Row - 6)
.Formula = "=if(rc2=rc3,""Liberada"","""")"
.Value = .Value
End With
End Sub

Hope it helps.

 

[elsg]

Hi.

I am very grateful for both helping me, thank you very much!!!!