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 the same code?
Is that right? if so how can you overcome it?
I`ve asked MrExcel but no reply today
Copy from a worksheet | MrExcel Message Board
Code
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
Display More