Hi

Pls assist me. Thank you.
My macro will move to the cell on the right when the current cell is
occupied & stop once it has been set to the new empty cell.

Sample of my data
A1 A2
C1 123

burner_cell is the cell containing 123

i have written some code to do this but i can't seems to get it to
work

my code =

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell)) Then
burner_cell = burner_cell.Offset(0, 1)
counter = counter + 1
End If
Wend

then i use burner_cell(new empty cell) to save the result of some
calculation

I'll put some questions in the code

" wrote:

Hi

Pls assist me. Thank you.
My macro will move to the cell on the right when the current cell is
occupied & stop once it has been set to the new empty cell.

Sample of my data
A1 A2
C1 123

burner_cell is the cell containing 123

i have written some code to do this but i can't seems to get it to
work

my code =

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell)) Then
burner_cell = burner_cell.Offset(0, 1) '<~~~do you want to reset the range name or reset the value in the range? THis resets the value in the range. If you want to reset the range name, you'll need to include SET before your statement
counter = counter + 1
End If
Wend

then i use burner_cell(new empty cell) to save the result of some
calculation

You never increment burner_cell, you are looking at Range("B8") for a value
forever, because if it is blank you need to increment to search another cell
--
-John Northwest11
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

Hi

Pls assist me. Thank you.
My macro will move to the cell on the right when the current cell is
occupied & stop once it has been set to the new empty cell.

Sample of my data
A1 A2
C1 123

burner_cell is the cell containing 123

i have written some code to do this but i can't seems to get it to
work

my code =

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell)) Then
burner_cell = burner_cell.Offset(0, 1)
counter = counter + 1
End If
Wend

then i use burner_cell(new empty cell) to save the result of some
calculation

You are right your code did nothing. Try this. counter never got
incremented and the code was always looking at the same cell.

Sub xyz()
Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell.Offset(0, counter))) Then
burner_cell = burner_cell.Offset(0, counter)
End If
counter = counter + 1
Wend

End Sub


" wrote:

Hi

Pls assist me. Thank you.
My macro will move to the cell on the right when the current cell is
occupied & stop once it has been set to the new empty cell.

Sample of my data
A1 A2
C1 123

burner_cell is the cell containing 123

i have written some code to do this but i can't seems to get it to
work

my code =

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell)) Then
burner_cell = burner_cell.Offset(0, 1)
counter = counter + 1
End If
Wend

then i use burner_cell(new empty cell) to save the result of some
calculation

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = ws.Range("B8") '<== qualify the location


While counter < 13
If Not (IsEmpty(burner_cell)) Then
set burner_cell = burner_cell.Offset(0, 1) '<== use SET
counter = counter + 1
End If
Wend

Another approach

set Burner_Cell = ws.Cells(8,256).End(xltoLeft)(1,2)
if Burner_Cell.Column 22 then exit sub
if Burner_Cell.Column < 8 then _
set Burner_Cell = ws.Range("B8")

--
Regards,
Tom Ogilvy


" wrote:

Hi

Pls assist me. Thank you.
My macro will move to the cell on the right when the current cell is
occupied & stop once it has been set to the new empty cell.

Sample of my data
A1 A2
C1 123

burner_cell is the cell containing 123

i have written some code to do this but i can't seems to get it to
work

my code =

Dim burner_cell As Range

Dim WS As Worksheet, WS2 As Worksheet
Dim counter As Integer

counter = 1
Set WS = Worksheets("Summary")
Set burner_cell = Range("B8")


While counter < 13
If Not (IsEmpty(burner_cell)) Then
burner_cell = burner_cell.Offset(0, 1)
counter = counter + 1
End If
Wend

then i use burner_cell(new empty cell) to save the result of some
calculation

Thanks for the tips everyone, i got my code to work as i would like it
to do.