Add row number in Excel
 

I have several spreadsheets that are converted in batch. The row coun
is never the same. I've tried to write some code that did no
reference a specific cell, but I'm having problems.

Here is what I have so far. The problem is the last cell is differen
in every file. I can do this with the row number in the A column, bu
I need it at the end of th spreadsheet.

- go to end row/column
- move one cell to the right
- enter row()
- copy row() from that cell to the top row in that column


ActiveCell.SpecialCells(xlLastCell).Select
Range("R4233").Select
ActiveCell.FormulaR1C1 = "=ROW()"
Range("R4233").Select
Selection.Copy
Range("R4232").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = Fals

--
swtransactio
-----------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...fo&userid=3745
View this thread: http://www.excelforum.com/showthread.php?threadid=57137

Add row number in Excel
 

here we go, this works

'add row number at the end of the file
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=ROW()"
Selection.Copy
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste


--
swtransaction
------------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...o&userid=37459
View this thread: http://www.excelforum.com/showthread...hreadid=571370

Add row number in Excel
 

I like to pick out a row/column that is always used when that row/column is
used.

For instance, if Row 1 has headers and column A always has something in it when
the row is used:

dim wks as worksheet
dim LastRow as long
dim LastCol as long

set wks = workbooks(...).worksheets(...)

with wks
lastrow = .cells(.rows.count,"A").end(xlup).row
lastcol = .cells(1,.columns.count).end(xltoleft).column

.range("A1",.cells(lastrow,lastcol)).copy _
destination:=whereeveryouwant

end with

swtransaction wrote:

I have several spreadsheets that are converted in batch. The row count
is never the same. I've tried to write some code that did not
reference a specific cell, but I'm having problems.

Here is what I have so far. The problem is the last cell is different
in every file. I can do this with the row number in the A column, but
I need it at the end of th spreadsheet.

- go to end row/column
- move one cell to the right
- enter row()
- copy row() from that cell to the top row in that column

ActiveCell.SpecialCells(xlLastCell).Select
Range("R4233").Select
ActiveCell.FormulaR1C1 = "=ROW()"
Range("R4233").Select
Selection.Copy
Range("R4232").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

--
swtransaction
------------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...o&userid=37459
View this thread: http://www.excelforum.com/showthread...hreadid=571370

--

Dave Peterson

Add row number in Excel
 

sub WriteRowforActiveCell()
cells(1,activecell.column).Value) = _
cells(rows.count,activecell.column).End(xlup)(2).R ow
End Sub

--
Regards,
Tom Ogilvy


"swtransaction" wrote:


I have several spreadsheets that are converted in batch. The row count
is never the same. I've tried to write some code that did not
reference a specific cell, but I'm having problems.

Here is what I have so far. The problem is the last cell is different
in every file. I can do this with the row number in the A column, but
I need it at the end of th spreadsheet.

- go to end row/column
- move one cell to the right
- enter row()
- copy row() from that cell to the top row in that column


ActiveCell.SpecialCells(xlLastCell).Select
Range("R4233").Select
ActiveCell.FormulaR1C1 = "=ROW()"
Range("R4233").Select
Selection.Copy
Range("R4232").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False


--
swtransaction
------------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...o&userid=37459
View this thread: http://www.excelforum.com/showthread...hreadid=571370