| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Maddening Dilemma - Compare each cell within column a to each cell in column b and find unique matches | Excel Worksheet Functions | |||
| Sum Cell Values of one column based on Another Cell Value in a different column | Excel Worksheet Functions | |||
| compare cells in column to criteria, then average next column cell | Excel Worksheet Functions | |||
| how to select a single column when this column cross a merged cell | Excel Programming | |||
| Format cell in column B based on value in the next cell (column c) | Excel Discussion (Misc queries) | |||
Hybrid Mode
