W
Wart
A very helpful person gave me the following code last night on this forum:
Sub CopyRow()
Dim Msg As String
If ActiveSheet.Name = "Status" Then
Msg = "You must first select a cell in the row you want to copy on the
other sheet. "
MsgBox Msg, vbExclamation, "Alert"
Exit Sub
Else
Application.ScreenUpdating = False
Cells(ActiveCell.Row, 1) = Now
ActiveCell.EntireRow.Copy
Worksheets("Status").Rows(5).Insert
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
It puts a time/date stamp in the first column of the row with the active
cell, copies the whole row to the clipboard, inserts a fresh row at row 5 of
the sheet called "Status," and then pastes the row in to the newly-inserted
row. It works really, really well on my PC at home, but I've discovered it
doesn't on the Macs one of our departments at work uses. The code runs--it
doesn't error out--but nothing is pasted in at the end. Nothing in the code
or workbook is at all different from last night.
Does anyone have any ideas?
Sub CopyRow()
Dim Msg As String
If ActiveSheet.Name = "Status" Then
Msg = "You must first select a cell in the row you want to copy on the
other sheet. "
MsgBox Msg, vbExclamation, "Alert"
Exit Sub
Else
Application.ScreenUpdating = False
Cells(ActiveCell.Row, 1) = Now
ActiveCell.EntireRow.Copy
Worksheets("Status").Rows(5).Insert
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
It puts a time/date stamp in the first column of the row with the active
cell, copies the whole row to the clipboard, inserts a fresh row at row 5 of
the sheet called "Status," and then pastes the row in to the newly-inserted
row. It works really, really well on my PC at home, but I've discovered it
doesn't on the Macs one of our departments at work uses. The code runs--it
doesn't error out--but nothing is pasted in at the end. Nothing in the code
or workbook is at all different from last night.
Does anyone have any ideas?