Select problem
with this redone;
Dim lastRow As Range
Dim A As Range
Dim rng1 As Long
Dim rng As Range
Private Sub Workbook_Open()
Set lastRow = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
lastRow.Select
WBname = " " & Format(Now() - 1, "mmddyyyy") & ".xls"
Workbooks.Open "C:\LIMS\WaterQuality_Export-daily" & WBname
Set rng = Range("A1:Q500")
rng.Copy
'code to paste data into sheet(2)
End Sub
how would i code it to paste the data into sheet(2)?
"Rick Rothstein" wrote:
The calculated value for LastRow is not a range; rather it is a number (the
..Row property reference and the +1 make that the case). You probably want
something like this...
Private Sub Workbook_Open()
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
End Sub
--
Rick (MVP - Excel)
"Mark J" wrote in message
...
here is my code;
Dim lastRow As Range
Dim A As Range
Private Sub Workbook_Open()
lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
A = lastRow
A.Select
End Sub
can someone tell me what i need to fix to make this work.thanks
|