cell.value comply with cell.value before and cell.value after
On 24 feb, 16:55, Paul Robinson wrote:
Hi Try this. It's a bit rough & the first if line is one long line. Select the single column of info you want to parse & run the sub. Sub assumes there are at least 3 rows in the column. Sub tester() Dim rng As Range Dim i As Long Set rng = Selection With rng For i = 2 To .Count - 1 * * If Trim(.Cells(i, 1).Value) < Trim(.Cells(i - 1, 1).Value) And Trim(.Cells(i, 1).Value) < Trim(.Cells(i + 1, 1).Value) Then * * * * If Trim(.Cells(i - 1, 1).Value) = Trim(.Cells(i + 1, 1)..Value) Then * * * * .Cells(i, 1).Value = Trim(.Cells(i - 1, 1).Value) * * * * End If * * End If Next i End With Set rng = Nothing End Sub regards Paul On Feb 24, wrote: Hi Expert, In column C which is sorted based on column D, *groups of words emerge. Occasionally a deviant word occurs within such a group of uniform words, eg.: row column C 1 * * Word 2 * * Word 3 * * Word 4 * * ord 5 * * Word 6 * * Word 7 * * From 8 * * From etc. etc. Is there some way I can make 'ord' like 'Word' and loop through the whole of Column C to fix similar situations. The condition is that ord lies between two similar words, 'Word'. When row 7 starts with a new group of Words, eg From, this From word will be left untouched. Would be happy if you could share some knowledge ppeer- Tekst uit oorspronkelijk bericht niet weergeven - - Tekst uit oorspronkelijk bericht weergeven - Works 100% and speed is fast! best regards Peter |
All times are GMT +1. The time now is 12:02 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com