> Then it will have to be VBA. Up for that?
>
[quoted text clipped - 29 lines]
> >> >
> >> > Any help would be much appreciated
Private Sub Worksheet_Calculate()
Dim LastRow As Long
Dim cell As Range
With Me
LastRow = .Cells(.Rows.Count, "AB").End(xlUp).Row
For Each cell In .Range("AB1").Resize(LastRow)
If cell.Value = "Yes" Then
.Cells(cell.Row, "D").Value = "whatever"
.Cells(cell.Row, "G").Value = "whatever else"
End If
Next cell
End With
End Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

Signature
__________________________________
HTH
Bob
> yeh, I thought it may have to be done with VBA but my knowledge of writing
> codes isnt the best.....any suggestions?
[quoted text clipped - 37 lines]
>> >> >
>> >> > Any help would be much appreciated
Duguid1 - 31 Jul 2008 15:55 GMT
bob, that is brilliant, thankyou!
Elaborating on that...i may have to search for more than one word in Column
X and change values in columns D& G dependant on which word is present. The
way im doing it at the moment is to insert a new column to display 'yes' or
'no' for each word, I can then change the values in your code to whatever I
ant printed in D & G. Is there a quicker way of doing this? maybe using a
text box to enter the word I want to search into my formula?
> Private Sub Worksheet_Calculate()
> Dim LastRow As Long
[quoted text clipped - 60 lines]
> >> >> >
> >> >> > Any help would be much appreciated