Send Clipboard in VBA

[tcnt9176]

I am trying to add script where I can use find with a variable. I just need to modify this to find whatever I just copied to the clipboard.

    Selection.Find(What:=ClipBoard, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate

 

[Ruddles]

Instead of .Activate, use .Copy.

I think...

 

[tcnt9176]

Sorry. I may not have explained it very good. I don't need to copy what I find. I need to find what I copied.

 

[VoG]

Maybe like this

Range("Z1000").PasteSpecial Paste:=xlPasteValues
 Selection.Find(What:=Range("Z1000").Value, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate

 

[tcnt9176]

Works great!! Thanks!!!

 

[tcnt9176]

So what you gave me is working for the first find but then I receive run-time error '91': Object Variable or With block variable not set.

I tried resetting the macro etc and it always works on the first find but then I receive this error on all other finds in the script.

I tried googling etc but have not really found this error involving Find.

 

[VoG]

Can you post your code.

 

[tcnt9176]

Here is the code.

Do
    If ActiveCell.Value <> "" Then
    
    ActiveCell.Offset(0, -1).Range("A1:B1").Copy
    Windows("ORS Aging Report - June 2011.xlsx").Activate
    Range("I1:J1").PasteSpecial Paste:=xlPasteValues
    Columns("A:A").Select
    Selection.Find(What:=Range("I1").Value, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    Selection.Find(What:=Range("J1").Value, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    Windows("D & L Monthly Reporting.xlsm").Activate
    ActiveCell.Offset(0, 1).Range("A1:B1").Copy
    Windows("ORS Aging Report - June 2011.xlsx").Activate
    ActiveCell.Offset(0, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("D & L Monthly Reporting.xlsm").Activate
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
    
    Else
        Exit Do
    End If
Loop

 

[VoG]

That will fail if your first Find isn't found. I don't really understand what you are trying to do but try FindNext. There is a good example for that in the Help file.