View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
JoeJoe JoeJoe is offline
external usenet poster
 
Posts: 8
Default Pulling data from one worksheet to another


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