VBA code Question If statemanet

[Jhagg]

Hi i have a Problem with som coding in VBA I am new to this and would be verry grateful if you could help me with this.

I am trying to copy value form a range in one sheet and then paste it in another worksheet based on a ID value

so if i have ID value 1 I would like the Data to be copied and pased in the other worksheet.

This is my code so far but it do not work.

Sub CopyIf()

If ActiveSheet.Range("C12").Value = Sheets("Input").Range("C13:C100").Value Then

ActiveSheet.Range("A12:CC12").Select

Selection.Copy
Sheets("Input").Select
Sheets("Input").Range("C13").PasteSpecial Paste:=xlPasteValues

End If


End Sub

Pleas help me with this.

 

[Micron]

Value in C12 would be 1from your example? You can't compare one cell value against a range of some 88 cells that way. Use the vba Find method.
You don't need to select ranges to copy from or paste to, you can do so directly.

 

[Michael M]

Maybe something like

Sub MM1()
Dim str As String, srchRng As Range
With ActiveSheet
    str = .Cells(12, 3).Value
    Set srchRng = Sheets("Input").Range("C13:C100").Find(what:=str)
    If srchRng Is Nothing Then
        MsgBox "Not found"
        Exit Sub
    End If
    .Range("A12:CC12").Copy
    Sheets("Input").Range("C13").PasteSpecial Paste:=xlPasteValues
End With
End Sub