Hi Frank....
This does a litlle bit more than just transfer the dates...but I pasted
it all in here so you can see....pretty much whats going on.
============================================
Public Sub Status1_Copy()
Dim Nextrow As Integer, RfsRow As Integer, X As Integer
Dim RfsInfo(40) As String
Dim RfsNum As Integer
Sheets("StatusH1 2004").Select
Nextrow = 1
Do
If Cells(Nextrow, 1) < "" Then
Nextrow = Nextrow + 1
'MsgBox Cells(Nextrow, 1)
End If
Loop Until Cells(Nextrow, 1) = ""
'Cells(Nextrow, 1).Select
Worksheets("StatusH1 2004").Range("Status1").Copy
Sheets("StatusH1 2004").Select
Cells(Nextrow, 1).Select
ActiveCell.PasteSpecial
Application.ScreenUpdating = False
Sheets("StatusH2 2004").Select
Nextrow = 1
Do
If Cells(Nextrow, 1) < "" Then
Nextrow = Nextrow + 1
'MsgBox Cells(Nextrow, 1)
End If
Loop Until Cells(Nextrow, 1) = ""
'Cells(Nextrow, 1).Select
Worksheets("StatusH2 2004").Range("Status").Copy
Sheets("StatusH2 2004").Select
Cells(Nextrow, 1).Select
ActiveCell.PasteSpecial
Application.ScreenUpdating = False
Sheets("RFS").Select
RfsRow = 2
Do
If Cells(RfsRow, 1) < "" Then
RfsRow = RfsRow + 1
End If
Loop Until Cells(RfsRow, 1) = ""
Cells(RfsRow, 2) = Now
RfsNum = Right(Cells(RfsRow - 1, 1), 3)
Cells(RfsRow, 1) = "UK-04-" & (RfsNum + 1)
For X = 0 To 40
RfsInfo(X) = Cells(RfsRow, X + 1)
Next X
Sheets("StatusH1 2004").Select
Application.ScreenUpdating = True
Nextrow = Nextrow - 1
Cells(Nextrow, 1).Select
'RFS ref
ActiveCell.Offset(2, 3) = RfsInfo(0)
'Cost
ActiveCell.Offset(3, 3) = RfsInfo(39)
'Start Date
ActiveCell.Offset(4, 3) = RfsInfo(37)
'End Date
ActiveCell.Offset(5, 3) = RfsInfo(38)
'Nortime Code
ActiveCell.Offset(8, 3) = RfsInfo(19)
'Customer
ActiveCell.Offset(1, 6) = RfsInfo(9)
'Project
ActiveCell.Offset(2, 6) = RfsInfo(16)
'start force
Cells(Nextrow + 4, 4).Select
ActiveCell = RfsInfo(37)
'end force
Cells(Nextrow + 5, 4).Select
ActiveCell = RfsInfo(38)
Application.CutCopyMode = False
End Sub
============================================
...thx for looking at it;)
M.A.J.O.R DOH! lmao...I can see it......LOL..."RSinfo as STRING"
Thx mate...told u it was simple...sometimes I cant see the wood for the
trees
---
Message posted from
http://www.ExcelForum.com/