Find copy data from a cell in Personal workbook and copy it to a cell in current workbook

Giganews Newsgroups
Subject: Find copy data from a cell in Personal workbook and copy it to a cell in current workbook
Posted by:  ezduzit…@gmail.com
Date: Thu, 20 Jun 2013

To all,

I had this working at one time, but messed it up somehow :( . I would like =
to find specific data from the Personal workbook and paste it to a cell in =
the current workbook. This data changes all the time so I keep adding as ne=
w "Surface Roughness" values come along. Your help is greatly appreciated.

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Sub SURFACEROUGHNESS()
  =20
'SURFACE ROUGHNESS
  =20
    Cells.Find(What:=3D"Surface Roughness: <=3D 4 uin", After:=3DActiveCell=
, _
        LookIn:=3DxlFormulas, LookAt:=3DxlPart, SearchOrder:=3DxlByRows, _
        SearchDirection:=3DxlNext, MatchCase:=3DFalse, SearchFormat:=3DFals=
e).Activate
    Selection.ClearContents
    Windows("PERSONAL.XLSB").Activate
    Range("B4").Select
    Selection.Copy
    Windows("test.xls").Activate
    ActiveSheet.Paste

    Cells.Find(What:=3D"Surface Roughness: <=3D 6 uin", After:=3DActiveCell=
, _
        LookIn:=3DxlFormulas, LookAt:=3DxlPart, SearchOrder:=3DxlByRows, _
        SearchDirection:=3DxlNext, MatchCase:=3DFalse, SearchFormat:=3DFals=
e).Activate
    Selection.ClearContents
    Windows("PERSONAL.XLSB").Activate
    Range("B6").Select
    Selection.Copy
    Windows("test.xls").Activate
    ActiveSheet.Paste

    Cells.Find(What:=3D"Surface Roughness: <=3D 20 uin", After:=3DActiveCel=
l, _
        LookIn:=3DxlFormulas, LookAt:=3DxlPart, SearchOrder:=3DxlByRows, _
        SearchDirection:=3DxlNext, MatchCase:=3DFalse, SearchFormat:=3DFals=
e).Activate
    Selection.ClearContents
    Windows("PERSONAL.XLSB").Activate
    Range("B20").Select
    Selection.Copy
    Windows("test.xls").Activate
    ActiveSheet.Paste
  =20
End Sub
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Replies