VBA比较两个日期，然后将数据从一张纸传输到新纸和相关列

Question

I have spent the past few days to a week browsing the net, and whilst I have come close to what I am looking for, with all due respect meant - me being a novice and all that, there seems to be a lot of code around but seems somewhat of an over kill to what I need. So now, because I can't actually find what it is I am looking for, and whilst learning a few new things at the same time, I am now posting my question to see if I can find my answer.

Putting a side all in-cell If and vlookup statements - and so on, I have got pretty far in a project that I am working on, but have hit one small snag to complete it.

From initial data input to Macro's that do collect data in one sheet, then after print - harvests this data and then sorts in to a new order within a "Transfer" Sheet ready to move to the last sheet.

Bridging a gap!

After doing everything so far myself, I need to be able to get one small piece of code together that now accesses the "Transfer" sheet, finds the date ("B6" [eg June-16]) and matches it against a corresponding one in another sheet "Annual" in row("B6:M6" [Jan-16:Dec-16]); the result would be;

Sub: lookup "Transfer"("B6")="Annual"("G6"), copy content "Transfer"("B9:B128"), paste "Annual"(G9:G128"). End

However, I think some of my problem is based on the level of automation the workbook is working on, for example: Transfer (B6) and Annual (B6:K6) dates are based on differing formulas (variables) resulting in the same (values [Jun-16 // mmm-yy)

Your help would be greatly appreciated

JohnH

Answer 1

John, please try the following:

Sub copyToTransfer()

Dim rng As Range
Dim rngSource As Range
Dim rngTarget As Range

Set rngSource = ThisWorkbook.Sheets("Transfer").Range("B6")
Set rngTarget = ThisWorkbook.Sheets("Annual").Rows(6)

Set rng = rngTarget.Find(rngSource.Value, , xlValues)

If Not rng Is Nothing Then
    ThisWorkbook.Sheets(rngSource.Parent.Name).Range(rngSource.Offset(3).Address, rngSource.Offset(125).Address).Copy
    rng.Offset(3).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
Else
    MsgBox "Date " & Format(rngSource.Value, "mmm-yy") & " not found in Annual sheet!"
End If

End Sub

Answer 2

Whilst Markos answer has been of some help, and it works to a point of completing its cycle without error, it seems there could well be a issue hidden, so whilst I don't want badger him too much, I suspect it relates to one of two places;

Set rngTarget = ThisWorkbook.Sheets("Annual").Rows(6)

Set rng = rngTarget.Find(rngSource.Value, , xlValues)

Whilst I could be wrong, the reason for this understanding is, that I have created three different workbooks, 1. as 97-03 version, 2. a plain 07 version and 3. 07-macro enabled version and all tests come back as; It finds its source and recognizes the date, but when looking at its target, it is staring at a blank page! Is there anyone else that would like to contribute, or are able to identify the issue?

John