Solved

# Accumulate data at cell

Posted on 2010-11-15
700 Views
Hi Experts,

I would like to request Experts help to add additional feature in the attached script. Need to copy and accumulate date value from Column_C at Send sheet to Status sheet at Column B and Column_C at Return sheet to Status sheet at Column C and update column D with the latest location sheet of the number. I have attached the sample data at Status sheet for Experts to get better view. Hope Experts will help me to add this feature.

``````Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(1, 0).Select
End If
If Target.Row < 3 Then Exit Sub
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Target.Offset(, 2) = Now()

With Worksheets("Status")
Set r = .Columns(1).Find(Target.Offset(, 0), LookIn:=xlValues)
If r Is Nothing Then
rn = .UsedRange.Rows.Count + 1
.Cells(rn - 1, 1).Copy .Cells(rn, 1)
.Cells(rn, 1).Value = Target.Offset(, 0)
End If
End With
End If
End Sub
``````
DataCopy.xls
0
Question by:Theva
• 3
• 2

LVL 16

Accepted Solution

Peter Kwan earned 500 total points
ID: 34142554
Please try. But one point to note, if you add two rows of the same CNumber in the same day (e.g. 16-Nov), then there will be "16-Nov;16-Nov" in the same cell.
DataCopy.xls
0

Author Comment

ID: 34142905
Hi,

Thanks for the code. I noticed at Status sheet when we update the C-number its always copying the row 2 cell format (color and font type) how to prevent this?
0

LVL 16

Expert Comment

ID: 34142923
Just remove the two lines:

.Cells(rn - 1, 1).Copy .Cells(rn, 1)
.Cells(rn - 1, 3).Copy .Cells(rn, 3)
0

Author Closing Comment

ID: 34143201
Hi,

Thanks a lot for the superb solution
0

Author Comment

ID: 34163592
Hi,

Hope you will consider this request. Intent to integrate new feature  with your solution.

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26623691.html
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.