Collection Data and pasting it as a value.

[brumby]

hiya......

I have a sheet in which data is constantly being added down the page.

Its a pallet log, which it contains key items like, date / pallet number / product type etc. There are some cells whihc have formula's in in the same row as the rest of the data.

I would like if possible that when all of the correct data is entered in column Q a star appears and that row is pasted as a value.

I know how to get the "*" there no problems, but dont know the code to fix everything in that row as a value.


Is it possible?


Many Thanks,

 

[brumby]

i had to bump it sorry!!!!!

 

[jindon]

try something like this

Sub test()
Dim r As Range
For Each r In Intersect(Range("q:q"), ActiveSheet.UsedRange)
   If r.Value = Chr(45) Then r.EntireRow.Value = r.EntireRow.Value
Next
End Sub

 

[brumby]

it dont work