Excel formula/macro/vb question....

[Gav]

i need to set up an automatic type of function but i have no idea where to start or how to go about this. This is what i need to do.....

1. Check cell in a column

2. If the cell contains something which isnt "===", do nothing and move to the next cell and start again.

3. if the cell contains nothing, copy the contents of the previous cell into this cell and move to the next cell and start again

4. if cell contains "===" stop


Any info or ideas would be fantastic as this is something I keep having to do manually and its doing my head in

 

[Munkeh]

You could use something like this, ensuring the first cell doesn't contain blank:

Do while activecell.value <> "===" or activecell.row <>60000 
  
  if activecell.value = "" then
    activecell.value = Cells((ActiveCell.Row - 1), ActiveCell.Column).value
  end if

  Cells((ActiveCell.Row + 1), ActiveCell.Column).Select
Loop

msgbox "=== Found"

That looks ok I think...

 

[Gav]

you da man