Simon Lloyd wrote:
Try modifying this zip file i sent you, it has code and formula to
achieve what you want!
Regards,
Simon
+-------------------------------------------------------------------+
|Filename: Job Status.zip |
|Download: http://www.excelforum.com/attachment.php?postid=5214 |
+-------------------------------------------------------------------+
--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=572431
Simon - this is very helpful. I am having one problem though. When I
run the Macro, it pastes the first name in the first empty cell within
the designated column. How can I adjust the macro so I can specify the
specific cell I want to start pasting at? Below is the macro I have
adjusted thus far:
Option Explicit
Sub jobs()
Dim mycell
Dim rng As Range
Dim rng1 As Range
On Error Resume Next
Set rng = Sheets("Dept_HC").Range("A1:A49")
For Each mycell In rng
If mycell.Offset(0, 8).Value = "0" Then
mycell.Copy
Sheets("Commentary").Select
With Sheets("Commentary")
Range("a2").Select
Set rng1 = Range("a:a").End(xlDown)(2)
rng1.Select
End With
ActiveSheet.Paste
End If
Next
End Sub
Thanks for your help