Copy from a worksheet

[Darren Smith]

Trying to find a value in source sheet data column then copy a range to dest sheet data & paste the range to destination worksheet offset 1 column over.
It can`t find the Value Electric in both sheets by the looks??

Sub Tippa_Electric_Wires()


Dim wsSource As Worksheet, wsDest As Worksheet
Dim QDetails As ComboBox
Dim i As Long, rng As Long
Dim Addme As Range, RngSource As Range, RngDest As Range


Set wsSource = ThisWorkbook.Worksheets("Part_Group_Items_ List")
Set wsDest = ThisWorkbook.Worksheets("Job Card Master")
Set QDetails = Body_And_Vehicle_Type_Form.Quote_Details

With wsSource.Range("D:D")
Set RngSource = .Find("ELECTRICS", , xlValues, xlPart)
End With

With wsDest
Set RngDest = .Find("ELECTRICS", , xlValues, xlPart)
Set Addme = RngDest.Offset(0, 5)
End With

For i = 0 To QDetails.ListCount - 1
If QDetails.Selected(i) Then

If QDetails_Details.List(i, 1) = ("Boxer") & "" & QDetails_Details.List(i, 4) = ("L2") & "" & QDetails_Details.List(i, 2) = ("Single") Then
wsSource.RngSource("A72:O78").Copy Destination:=Addme
End If
End If

End Sub

 

[NoSparks]

It can`t find the Value Electric in both sheets by the looks??

ELECTRICS <> Electric

 

[Darren Smith]

It does not seem to like 2 x Finds in the code how could I get over this?

 

[Darren Smith]

I also ask Ozgrid

Copy from a worksheet - OzGrid Free Excel/VBA Help Forum

Trying to find a value in source sheet data column then copy a range to dest sheet data & paste the range to destination worksheet offset 1 column over. It can`t find the Value Electric in both sheets by the looks? And it seems to not like 2 Finds in…

www.ozgrid.com

 

[NoSparks]

how do you know and/or why do you say "It does not seem to like 2 x Finds in the code" ?

You say It can`t find the Value Electric, so why does the code try finding ELECTRICS instead of Electric ?

Using the file you linked to on May 26 over at that other site:

Doing a manual Ctrl+F to find a partial match for ELECTRICS on the whole of both sheets.
There is only one... at C41 of "Job Card Master", none on "Part_Group_Items_List"

Doing a manual Ctrl+F to find a partial match for Electric (which you say is the value you're trying to find)
There are two on "Job Card Master" ... at N5 and C41
and six on "Part_Group_Items_List" ... E8, E13, E33, E38, E43, and E49