If Cell in row has data then do this: HELP
Code doesn't seemto be working;
At first I thought it was working, then I noticed all it was doing was
clearing the contents of the cells in column I
When I comment out these two lines nothing happens at all:
cells(rng.row,"G").Value = cell
cell.Clearcontents
Now I fI understood the code corrctly, editing out those two lines should
still allow F&G to concatanate. Which they are currently not
"Tom Ogilvy" wrote in message
...
Dim rng as Range, cell as Range
set rng = Range(Cells(1,"I"),Cells(rows.count,"I").End(xlup)
for each cell in rng
if not isempty(cell) then
cells(rng.row,"F").Value = cells(rng.row,"F").Value _
& cels(rng.row,"G").Value
cells(rng.row,"G").Value = cell
cell.Clearcontents
end if
Next
This would replace a formula if it is in one of the cells being
manipulated,
so the assumption is that the cells do not contain formulas.
--
Regards,
Tom Ogilvy
"Yogi_Bear_79" wrote in message
...
If column I has data in it I want Excel to perform the following.
1. Concatanate the data in the coresponding row column G to the end of
the
data in the coresponding row in column F
2. Move the data from column I to the coresponding cell in the same row
in
column G
|