Hi

I have a spreadsheet where I need to loop through a colomn and say say for example compare a string in cell f2 with a string in f3. If the string remains the same the numeric value in cell e2 remains the same but if the string changes, I need to add 5 to the numeric value in e2


Cheers
Tony

__________________
Cheers
Tony

What do you mean with 'remains the same' and 'changes'? You don't mention anything about changing the cellvalues in f2/f3, you're asking how to compare those cells and from that maybe change the value in e2

for instance:
  E F
P2_1000 DEMAND DEPOSITS
P2_1000 DEMAND DEPOSITS
P2_1005 DEMAND DEPOSITS
P2_1010 INSTANT SAVER PLUSP2_1005


Every time the string value of col F changes I need to add 5
to the value in the cell opposite in col e


Cheers
Tony

You don't say anything about how you determine whether a cell value has changed or if it matters what it has been changed to and from. Do you compare with another value?

If it doesn't matter, try to place this code in the sheet (not in a module):

Option Explicit
Dim o As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String

    If ActiveCell.Column = 6 Then
        Cells(o, 5).Select
        s = Int(Right(ActiveCell.Value, 4)) + 5
        Cells(o, 5).Value = "P2_" & s
    End If

End Sub


' Don't place this code in the _Change event
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    o = ActiveCell.Row
End Sub

Let me know if you can't use this!

thats great...thanks a lot Birger

Cheers
Tony

Tony –

Did you try this?

        Set I to the row where you start the comparison


    Do until I > Num_Of_Rows_for_Comparison
           If .Cells(I, 6).Value <> .cells(I + 1, 6).Value Then
          .Cells(I, 5).value = .Cells(I, 5).Value + 5
           End If
           I = I + 1
        Loop

Kathy