Disabling a macro from automatically clearing a cell

[davidhall]

This the beginning part of my code. In cell E4, I have a time stamp generated by another form control button.

The code below references cell E4 but always clears out the cell and I cant figure out why.





Dim Entered_User_Password As String
Dim Current_User_Password As String
Dim Current_Password_Date As Object
Dim Administrator_Password As String
Dim Date_Difference As Long
Dim New_User_Password As String
Range("E4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Set Current_Password_Date = ThisWorkbook.Sheets("Sheet2").Range("E4")
Current_Password_Date.NumberFormat = "mm/dd/yy hh:mm"

Current_User_Password = ThisWorkbook.Sheets("PasswordSheet").Range("A65536").End(xlUp)
Current_Password_Date = ThisWorkbook.Sheets("PasswordSheet").Range("A65536").End(xlUp).Offset(0, 1)
Administrator_Password = "pswd"
Date_Difference = DateDiff("h", Now(), Current_Password_Date)

 

[njimack]

Try stepping through it using F8 to see where it clears the cell.

By the way, you could reduce the following lines of code:
Range("E4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

to:
With Range("E4")
.Formula = .Value
End With

 

[davidhall]

As soon as this is initiated, it clears. Don't know why.



Administrator_Password = "pswd"

 

[njimack]

Do you have any events in the same workbook? Try setting EnableEvents to False at the start of your code, then back to true at the end.

 

[doofusboy]

Range("E4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Uhhh, doesn't this select cell E4, copy it and then paste on to itself ?