H
harpscardiff
Code:
--------------------
Public Sub HotTPassword()
Dim irow As Long
Dim mydate As Date
Dim mytime
Dim mycell
mydate = Date
mytime = Time
Application.ScreenUpdating = False
If Range("B4").Value = "" Then
Range("B$").Select
Else
Range("B" & Row.Count).End(xlUp).Offset(1, 0).Select ' problem line????
End If
mycell = ActiveWorkbook.ActiveCell
If mycell <> "" Then
ActiveCell.Value = mydate 'Column B
ActiveCell.Offset(0, 1).Value = mytime 'Column C
ActiveCell.Offset(0, 3).Value = "User" 'Column F
ActiveCell.Offset(0, 6).Value = "Password" 'Column L
ActiveCell.Offset(0, 1).Value = "Credit Apps" 'Column M
ActiveCell.Offset(0, 1).Value = "Password Expired, need to be reset" 'Column N
ActiveCell.Offset(0, 4).Value = "Verified Closed" 'Column R
ActiveCell.Offset(0, 1).Value = "Medium" 'Column S
ActiveCell.Offset(0, 1).Value = "IT Support" 'Column T
ActiveCell.Offset(0, 2).Value = "Password Reset and Informed user." 'Column V
ActiveCell.Offset(0, 1).Value = "IT Support" 'Column W
ActiveCell.Offset(0, 1).Value = mydate 'Column X
ActiveCell.Offset(0, 1).Value = mytime 'Column Y
Application.ScreenUpdating = True
End If
End Sub
--------------------
Public Sub HotTPassword()
Dim irow As Long
Dim mydate As Date
Dim mytime
Dim mycell
mydate = Date
mytime = Time
Application.ScreenUpdating = False
If Range("B4").Value = "" Then
Range("B$").Select
Else
Range("B" & Row.Count).End(xlUp).Offset(1, 0).Select ' problem line????
End If
mycell = ActiveWorkbook.ActiveCell
If mycell <> "" Then
ActiveCell.Value = mydate 'Column B
ActiveCell.Offset(0, 1).Value = mytime 'Column C
ActiveCell.Offset(0, 3).Value = "User" 'Column F
ActiveCell.Offset(0, 6).Value = "Password" 'Column L
ActiveCell.Offset(0, 1).Value = "Credit Apps" 'Column M
ActiveCell.Offset(0, 1).Value = "Password Expired, need to be reset" 'Column N
ActiveCell.Offset(0, 4).Value = "Verified Closed" 'Column R
ActiveCell.Offset(0, 1).Value = "Medium" 'Column S
ActiveCell.Offset(0, 1).Value = "IT Support" 'Column T
ActiveCell.Offset(0, 2).Value = "Password Reset and Informed user." 'Column V
ActiveCell.Offset(0, 1).Value = "IT Support" 'Column W
ActiveCell.Offset(0, 1).Value = mydate 'Column X
ActiveCell.Offset(0, 1).Value = mytime 'Column Y
Application.ScreenUpdating = True
End If
End Sub