Macro Query

[rajivsoni]

hi..
i have recorded a macro wherein i need to copy paste some data in my database everyday.
now the problem is tht the macro doesnot catch the last row.
for instance if i paste data today in A2:A10
tomorrow it should automatically paste data starting from A11.
the range of data tht i copy is not fixed.
This is a part of macro...
Range("A1").Select
Selection.End(xlDown).Select (This takes me to the last record on that row)
is there anyway i can copy the data in next column?

'Range("A11").Select (This will work only for the first time when i run the macro)

but if i use the same one tomorrow
Range("A1").Select
Selection.End(xlDown).Select This will take me to the last record but..
it will again go to
'Range("A11").Select
and then paste records there
can somebody help me with this ??
very very urgent for me...
Thanks in advance.

rajiv.

 

[Guanjin Peter]

I suggest use countA formula to 'catch' the number of rows.
then assign a variable to countA(A:A)

use a empty cell ("Z1")?
say countA is 20,
count= range("Z1")

then change
'Range("A11").Select

 

[rajivsoni]

i dint get you
Can you explain me the code...?
what would be the VBA Code?

 

[Guanjin Peter]

sorry I was busy.
Change
range("A11").select to
range("a" & count).select

 

[rajivsoni]

but i will have to define Count...?
or it will work if i just copy paste tht????

 

[Guanjin Peter]

Sorry for posting so many times, I was busy in and out.
assuming you are not using cell Z1.

range("z1") = "=CountA(A:A)" '>>>>> change to a empty cell you don't use
count=range("Z1") '
Range("A1:A" & Count & " ").Select
range("z1")="" 'remove

 

[rajivsoni]

Doesnt help

This is the command i use

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Sales.xls").Activate
Sheets("Sales").Select
Range("A2").Select
Selection.End(xlDown).Select
I want to Paste the data after the LAST ROW.
if the Last row ends at A11, it should paste the data from A12 till A20 or whatever amount of data ive copied.
Somebody pleeeeeeeeez help meeeeeeeeeeeeee...

 

[VoG]

Does this do what you want? Select the range then run the macro:

Sub test()
Dim NR As Long
NR = Workbooks("Sales").Sheets("Sales").Range("A" & Rows.Count).End(xlUp).Row + 1
Selection.Copy Destination:=Workbooks("Sales").Sheets("Sales").Range("A" & NR)
Application.CutCopyMode = False
End Sub

 

[Guanjin Peter]

sorry I mis-understood what you're trying to say, So just ignore my coding.

 

[rajivsoni]

Dint help...

But this line of code... did the trick...!
Workbooks("Daily Sales").Sheets("Sales").Range("A" & Rows.Count).End(xlUp).Row + 1

Thank you very much!!!
Life saver!!