Recent content by visible2you

Excel Formula can be deleted by user by mistake. VBA program has less probability of being deleted by accident while working on sheet.

Sheets("Sheet1").Range("A2").Formula = "=RoundUp(A1, 0)" result = Sheets("Sheet1").Range("A2").value Sheets("Sheet1").Range("A2").ClearContents

I want to extract, paste and keep only selected range having "august" month for analysis purpose.

I need some more time. I will post details about "New", "Updated" and "Attached" by tomorrow.

I hope you will not mind ... it was my error ... Existing = OLD

I want to select rectangular range which includes only "August" month. Range must start from Col A.

In Col C, Date is given like this:- 1-Jun-11 2-Jun-11 3-Jun-11 4-Jun-11 5-Jun-11 6-Jun-11 1-Aug-11 2-Aug-11 3-Aug-11 4-Aug-11 5-Aug-11 6-Aug-11 I want to select rectangular range starting from Col A which includes only "August" month. What will be modified version of this program: - Sub...

I hope you can help me know, where did I mention "existing"? I will explain about "New", "Updated" and "Attached".

This can be good expression: - =IF(AND(A2=$A$1,B2=$B$1,D2=$D$1),"duplicate","") And this code can be extended to multiple rows. But how to represent this in VBA notation so that Formula does not appear on Sheet?

Let me explain "OLD" Let a=2 Do If AND { Sheet2 (An) = Sheet1(An+a), Sheet2 (Bn) = Sheet1(Bn+a), Sheet2 (Dn) = Sheet1(Dn+a) } Then Sheet2 (Jn+a) = "Old" a = a+1 Loop until each cell in a row = "". End Here, n refers to n rows I will provide detail to other definitions shortly. I...

Let me explain "Duplicate" Let 'a' increments a row number by 1 If AND { Sheet2 (An) = Sheet2(An+a), Sheet2 (Bn) = Sheet2(Bn+a), Sheet2 (Dn) = Sheet2(Dn+a) } Then Sheet2 (Jn+a) = "Duplicate" a = a+1 Loop again "IF" aforesaid End Here, n refers to n rows

***** CORRECTION ***** If AND { Sheet1 (Col A) = Sheet2(Col A), Sheet1 (Col B) = Sheet2(Col B), Sheet1 (Col D) = Sheet2(Col D) } Then Sheet2 (Col J) = "OLD" ***** CORRECTED *****

I am sorry ... above is applicable for "OLD".

If AND { Sheet1 (Col A) = Sheet2(Col A), Sheet1 (Col B) = Sheet2(Col B), Sheet1 (Col D) = Sheet2(Col D) } Then Sheet2 (Col J) = "Duplicate"

Number Customer Name Date sold Product sold Product Feedback Date returned Defective Product Date Repaired Product Error Number Comments 111111 ABC 1 03-09-2011 Apple 1 Happy Not Applicable Not Applicable Not Applicable Not Applicable 111112 ABC 2 03-09-2011 Apple 2 Happy Not Applicable Not...