Hi TipTop,

In the absence of more concrete detail, perhaps the following routine will
enable you to progress your project. In its present incarnation, the routine
is run once the requisite cells in the Online Exceptions worksheet have
been selected manually. Depending on the intracasies of your operation,
you may well be able to automate this step.Presumably the first row in the
Exceptions worksheet will constitute a header row. The routine will copy
your data to the first blank cell(s) in column A below your header.

Sub Test()
Dim WS As Worksheet
Dim sourceRng As Range, destRng As Range

Set sourceRng = Selection
Set WS = Workbooks("Processed Exceptions.xls").Sheets("Sheet1")
Set destRng = WS.Cells(Rows.Count, "A").End(xlUp)(2)

sourceRng.Copy destRng

End Sub


---
Regards,
Norman.


"tiptop " wrote in message
...
I'm a little bit lost. The 2nd case is most likely what I will need to
use. But, I can't figure out how to put it in my code. Below is kind
of where I am at...

Sub ProcessedExceptions()
ChDir "C:\Documents and Settings\Administrator\Desktop"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\Processed
Exceptions.xls"
ActiveWindow.WindowState = xlMinimized
Workbooks("Online Exceptions.xls").Activate
End Sub

Basically, for example. The info that is in (Online Exceptions.xls,
cell S13) needs to be entered in file (Processed Exceptions.xls, Cell
A1, A2....). I'm trying to make life a little easier and tree friendly
at work...I process these exceptions roughly 700-900 exceptions a day
(each on an individual sheet of paper) so this will make my life a LOT
easier if I can figure out the correct code. Thanks again for all the
help!!


---
Message posted from http://www.ExcelForum.com/