Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 235
  • Last Modified:

Copy data from Cell

Hi Experts,

I would like to request Experts help  to add additional function in the attached script. Need to copy Column E data cell  as well automatically when column A being updated. Hope Experts will help me to add this additional feature. Attached the workbook for Experts perusal.

Sub UpdateValues(ByRef Target As Range)
Dim DateStr As String

    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
        If Target.Cells.Count = 1 Then
          Target.Offset(, 1) = Environ("username")
          Target.Offset(, 2) = Now()
          DateStr = Format(Target.Offset(, 2).Value, "dd-mmm")
          If Target.Row > 3 Then
            Target.Offset(, 3) = Target.Offset(-1, 3)
            If Target.Row > 21 Then
                If Target.Offset(-18, 3) = Target.Offset(, 3) Then
                   MsgBox "19 rows - change box number"
                End If
            End If
          End If
        End If
    End If
End Sub

Open in new window

1 Solution
What do you want to do after copying the data?

plz check the attachment
CartilloAuthor Commented:
Hi Ramanhp/Sid,

Thanks a lot for the help

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now