Creating a timestamp from another cell without using If statment

[Parkerpen13]

I currently have a workbook that when data is entered in column A it will return a time stamp in column I with the help of the if statement. This works great however it makes my workbook very slowwwww. Is there another way or a VBA code that could do this same thing that could improve my workbook?

Current formula

=IF(A1<>"",IF(I201<>"",I1,NOW()),"")

 

[Fluff]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

Whose code are you using?

 

[Joe4]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

The way you have written the code

    If Not Intersect(Target, Range("G1:G1000")) Is Nothing Then
        Target.Offset(0, -2) = Now
    End

It is looking for a change in column G, and putting the timestamp in column E.

 

[Parkerpen13]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

I am putting data into A column and want to return timestamp to G column. Here is my current code. Thanks for all of your help I am new to this VBA codes.

Private Sub Worksheet_Change(ByVal Target As Range)
'    On Error Resume Next
    If Not Intersect(Range("A3:A1000"), Target) Is Nothing Then
      Target.Worksheet.Unprotect Password:="RCFD"
      Target.Locked = True
      Target.Worksheet.Protect Password:="RCFD"
   ElseIf Not Intersect(Target, Range("G1:G1000")) Is Nothing Then
      Target.Worksheet.Unprotect Password:="RCFD"
      Target.Offset(0, -2) = Now
      Target.Worksheet.Protect Password:="RCFD"
   End If
 End Sub

 

[Fluff]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

In that case try

Private Sub Worksheet_Change(ByVal Target As Range)
'    On Error Resume Next
    If Not Intersect(Range("A3:A1000"), Target) Is Nothing Then
      Target.Worksheet.Unprotect Password:="RCFD"
      Target.Locked = True
      Target.Offset(, 6) = Now
      Target.Worksheet.Protect Password:="RCFD"
   End If
 End Sub

 

[Parkerpen13]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

YES Thanks so much it made my workbook sooooo much faster. Thanks for your help.

 

[Fluff]

Re: Combining two Private Sub Worksheet_Change VBA Codes help

Glad we could help & thanks for the feedback