Hi all...
I have a macro to archive some daily sales. What i want to do for th
procedure below is send the info to a closed workbook rather than th
active one. The reason for this is just to keep the active workboo
faster.
So if i wanted say, to append to Workbook "Archive", "Sheet1" which i
held in a folder called "Folder" in the C drive, how would i write th
reference?
Answers on a postcard.....
Thanks for help inadvance,
Chris
Dim SourceRange As Range, TargetRange As Range
Dim SearchRange As Range, LastWrittenCell As Range
Dim i, n As Integer, k As Integer, j As Integer, ItemToSearchFor
'--------------------------------------
' User definitions
n = 6 ' number of columns to append
Set SourceRange = [N2]
Set TargetRange = Range("BD!A1")
'--------------------------------------
Set SearchRange = Range(SourceRange, SourceRange.End(xlDown))
If IsEmpty(TargetRange) Then
Set LastWrittenCell = TargetRange
k = 0
Else
k =
--
chris10
-----------------------------------------------------------------------
chris100's Profile:
http://www.excelforum.com/member.php...fo&userid=2516
View this thread:
http://www.excelforum.com/showthread.php?threadid=50490