Solved

Accumulate data at cell

Posted on 2010-11-15
5
707 Views
Last Modified: 2012-05-10
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(, 1) = Environ("username")
        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

Open in new window

DataCopy.xls
0
Comment
Question by:Theva
  • 3
  • 2
5 Comments
 
LVL 16

Accepted Solution

by:
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

by:Theva
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

by:Peter Kwan
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

by:Theva
ID: 34143201
Hi,

Thanks a lot for the superb solution
0
 

Author Comment

by:Theva
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

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

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…
Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question