same workbook name in one folder

[freezefiz]

hey guyz..

Pls advise me on this.

Is it possible to have saved the same workbook name and that to have a prompt asking whether you want to replace or update the workbook??

eg. If update, it'll scan through the existed workbook & compare with the other workbook which you want to save, & add rows according or sum up the total for one of the cols.

Pls pls let me know if this can be done..

 

[jindon]

Isn't overwrite good enough ?

 

[freezefiz]

or rather another way to look at it,

how do i search through the "PRODUCTION" folder to identify the same name, and then do the rest..

pls advise.
Thanks

 

[freezefiz]

hey jindon thanks for the reply..

This is the output..

18_Jun_2008.xls
	A	B	C	D
1	PrepareDate:	6/18/2008
2	Day:	Wednesday
3	DeliverDate:
4	ProductID	Product	Uom	Qty
5	TDG-**002	TunaCheesePizzaBar	KG	30
6	RFG-**588	ThaiChickenFriedRice	KG	30
7	RFG-**502	ClubSandwich	PKT	6
8	RFG-**501	RoastMexicanChicken	PKT	30
9	RFG-**501	RoastMexicanChicken	pcs	24
10	TDG-**002	TunaCheesePizzaBar	pcs	30
11	RFG-**501	RoastMexicanChicken	KG	10
Sheet1

The reason why i didn't want to overwrite is because there may be new different products(colB) & qty(colD) on the other workbooks.

And so, it'll be great if i could compile all the data together & sum up the qty.

 

[jindon]

When you compare the sheet (old with new), you need to find out it there are any change first, but how would you find it out ?

Can you tell us how you mannually "update" ?

 

[freezefiz]

Currently i have :

qty = "=SUMPRODUCT(--(db!R2C1:R[" & nDb & "]C1=R1C2),--(db!R2C6:R[" & nDb & "]C6=RC1),--(db!R2C7:R[" & nDb & "]C7=RC2),--(db!R2C10:R[" & nDb & "]C10=RC3),db!R2C9:R[" & nDb & "]C9)"

which helps to retrieve all the values from yet, another worksheet.


And this is used to eliminate the duplicated orders.

Dim lngTMP As Long, iRows As Long
    On Error GoTo Fin
    Application.ScreenUpdating = False
    iRows = Cells(Cells.Rows.Count, 2).End(xlUp).Row
    For lngTMP = iRows To 6 Step -1
        If WorksheetFunction.CountIf(Columns(2), Cells(lngTMP, 2)) > 1 Then
            Rows(lngTMP).Delete
        End If
    Next lngTMP
Fin:
    Application.ScreenUpdating = True

The situation is that there are few sets of these workbooks used by many users.

And at the end of the day, all the data would have to be combined together & saved in the "PRODUCTION" folder.

 

[ExcelPr0]

freezefiz: It would help if you can answer his questions.
like what Jindon said, what are you going to do to find the change?
how do you update?

 

[jindon]

freezefiz: It would help if you can answer his questions.
like what Jindon said, what are you going to do to find the change?
how do you update?

Like he said, how could we know what you want to do from your code ?

 

[freezefiz]

perhaps do a search based on colA & colB?

If it could compare both columns, then i suppose if its not found then, it'll just update both the new cols alongside with cold C & colD.

pls pls correct me if im wrong with that.

 

[ExcelPr0]

jindon, i'll leave this thread to you...
maybe it's my english, i got really a hard time understanding what she's trying to mean.

No offense