Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Data at the End of a excisting Collum
I want to add data from a file of which the content changes every day, into
an other file in which a database is allready implanted. To go short, how can I insert data from a collum beneath the allready available data? For now I use this code: Windows("Bron.xls").Activate Range("A2:A109").Select Selection.Copy Windows("Kostenbeheerssysteem Vorm I 3 februari 2005.xls").Activate Range("C27:C134").Select ActiveSheet.Paste Thanks in advance! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Data at the End of a excisting Collum
use this statement
range("a2").end(xldown).offset(1,0) will take you to the cell after the last cell in column A Jasper wrote in message ... I want to add data from a file of which the content changes every day, into an other file in which a database is allready implanted. To go short, how can I insert data from a collum beneath the allready available data? For now I use this code: Windows("Bron.xls").Activate Range("A2:A109").Select Selection.Copy Windows("Kostenbeheerssysteem Vorm I 3 februari 2005.xls").Activate Range("C27:C134").Select ActiveSheet.Paste Thanks in advance! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Data at the End of a excisting Collum
Sub AppendColumn()
Dim sh as Worksheet Dim rng as Range, rng1 as Range set sh = Workbooks("Bron.xls").Activesheet set rng = sh.Range(sh.Cells(1,2),sh.Cells(1,2).End(xldown)) With Workbooks ("Kostenbeheerssysteem Vorm I 3 februari 2005.xls") _ .Activesheet set rng1 = .Cells(rows.count,3).End(xlup)(2) End with rng.copy Destination:=rng1 End Sub -- Regards, Tom Ogilvy "Jasper" wrote in message ... I want to add data from a file of which the content changes every day, into an other file in which a database is allready implanted. To go short, how can I insert data from a collum beneath the allready available data? For now I use this code: Windows("Bron.xls").Activate Range("A2:A109").Select Selection.Copy Windows("Kostenbeheerssysteem Vorm I 3 februari 2005.xls").Activate Range("C27:C134").Select ActiveSheet.Paste Thanks in advance! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
adding AND, OR to excisting INDEX formula | Excel Discussion (Misc queries) | |||
insert an extra row or collum | Excel Discussion (Misc queries) | |||
Find excisting values, make them grouped under the new value | Excel Discussion (Misc queries) | |||
Filter data from one collum by looking up from another column | New Users to Excel | |||
return a collum heading | Excel Worksheet Functions |