Hi All,
I stucked, i would appreciate if you could help me:
Part 1 oke, but i do not know how to continue:
If this cell is A14 than =+A13
If this cell is A5 than =+A4
..and so on
Sub Macro1()
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next cell
End Sub
I stucked, i would appreciate if you could help me:
Part 1 oke, but i do not know how to continue:
1. Find and Select the First Blank Cell in Column A
2. The cell what was found by the code, has to get a formula, always refer to the cell one above itIf this cell is A14 than =+A13
If this cell is A5 than =+A4
..and so on
Sub Macro1()
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next cell
End Sub