I have responded to your previous post...

The macro will get data to the activesheet row2 with matching values from
colD and comments (if any). Everytime you run the macro it will clear row2
data and comments if any and redo the whole thing again..

If this post helps click Yes
---------------
Jacob Skaria


"Seeker" wrote:

Dear Volunteers,
I posted a similar thread on yesterday and Jacob Skaria was so kind in
providing an UDF to me.
(http://www.microsoft.com/office/comm...e-df9aa8cf680c)
Since my VBA knowledge was only from macro recorder (this is my first
encounter to UDF) and still waiting for Jacobs reply, thus I havent try his
UDF yet.
I went on my sheet and twisted in setting and macro arrangement, now the
macro is done and able to capture one set of data. However, this code is too
lengthy and I also need it not only capture one set of data, but may be two
or four data at a time, any idea please?

Data in Sht DataInput has three ranges of input areas,
Area one produce 4 sets data
Area two produce 2 sets data
Area three produce 1 set data
I have done subA() capture 4 sets data, subB() capture 2 set data and subC()
capture 1 set data, all data are appended to Sht Data in
ColA= today()
ColB= another Date €˜<---when capture 4 sets data, produce two different dates
ColC= curreny symbol €˜<----- has 10 different currencies
ColD= amount
ColE= comment
ColF= client €˜<----------- 17 different names

Now I need to pick data from Sht Data and show them from row 30 onward in
Sht DataInput, so users will know immediately if they have any incorrect data
input or not. In Sht DataInput, Row 28 is the heading line from ColA to ColQ,
each cell contains combination of Sht Data ColC+space+ColF.
The Criteria are :
1) Sht Data ColB = today() and ColC = USD or HKD
2) Sht Data ColB = Tom €˜=(IF(WEEKDAY((Date+1),2)=6,Date+3,Date+1)) and
ColC<USD or HKD
If meet above then
Append data from Sht Data ColD to the correct Column in Sht DataInput base
on Sht DataInput Col*'s heading = Sht Data ColC & ColF, then capture contents
in Sht Data ColE as comment on the same cell.

Expected result on Sht Data as follow (with each amount has a comment box
attached):
Col A Col B Col C €¦ Col R
row 29 aa bb cc rr
row 30 1,000 500 30
row 31 800
Tks in advance.
Rgds