Going to a cell in column B
 

I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
RowNo = ActiveCell.Row
With Sheets("Charging")
Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
Newrow = Lastrow + 1
End With
Sheets("Charging").Range("B" & Newrow).Value = _
Sheets("Post").Range("B" & RowNo)
Sheets("Charging").Range("C" & Newrow).Value = _
Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock

Going to a cell in column B
 

Application.Goto Reference:=Worksheets("Charging").Range("B" & Newrow)
--
Gary''s Student - gsnu200823


"Jock" wrote:

I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
RowNo = ActiveCell.Row
With Sheets("Charging")
Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
Newrow = Lastrow + 1
End With
Sheets("Charging").Range("B" & Newrow).Value = _
Sheets("Post").Range("B" & RowNo)
Sheets("Charging").Range("C" & Newrow).Value = _
Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock

Going to a cell in column B
 

Nice one, thanks.
--
Traa Dy Liooar

Jock


"Gary''s Student" wrote:

Application.Goto Reference:=Worksheets("Charging").Range("B" & Newrow)
--
Gary''s Student - gsnu200823


"Jock" wrote:

I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
RowNo = ActiveCell.Row
With Sheets("Charging")
Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
Newrow = Lastrow + 1
End With
Sheets("Charging").Range("B" & Newrow).Value = _
Sheets("Post").Range("B" & RowNo)
Sheets("Charging").Range("C" & Newrow).Value = _
Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock

Going to a cell in column B
 

On Jan 5, 4:11*pm, Gary''s Student
wrote:
Application.Goto Reference:=Worksheets("Charging").Range("B" & Newrow)
--
Gary''s Student - gsnu200823



"Jock" wrote:
I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
* *RowNo = ActiveCell.Row
* *With Sheets("Charging")
* * * Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
* * * Newrow = Lastrow + 1
* *End With
* *Sheets("Charging").Range("B" & Newrow).Value = _
* * * Sheets("Post").Range("B" & RowNo)
* *Sheets("Charging").Range("C" & Newrow).Value = _
* * * Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock- Hide quoted text -

- Show quoted text -

Or try
Worksheets("Charging").Range("B" & Newrow).activate

Going to a cell in column B
 

Many way to skin a cat etc, but what are the pitfalls/advantages?
--
Traa Dy Liooar

Jock


" wrote:

On Jan 5, 4:11 pm, Gary''s Student
wrote:
Application.Goto Reference:=Worksheets("Charging").Range("B" & Newrow)
--
Gary''s Student - gsnu200823



"Jock" wrote:
I use VBA to copy data from a row on 'Post' to the next blank row on
'Charging'.
What can I add to my code to:
A) open 'Charging' on screen and then
B) get cell B on the row which has just been copied to 'Charging' to have
focus?

Code below:
Sub Charge()

If ActiveCell.Value = "CH" Then
RowNo = ActiveCell.Row
With Sheets("Charging")
Lastrow = .Range("B" & Rows.Count).End(xlUp).Row
Newrow = Lastrow + 1
End With
Sheets("Charging").Range("B" & Newrow).Value = _
Sheets("Post").Range("B" & RowNo)
Sheets("Charging").Range("C" & Newrow).Value = _
Sheets("Post").Range("E" & RowNo)
etc. etc.
End If
End Sub
--
Traa Dy Liooar

Jock- Hide quoted text -

- Show quoted text -

Or try
Worksheets("Charging").Range("B" & Newrow).activate