If x = x then copy

[Damianjay]

Hello,
I'm trying to right a macro where IF user ID (column K in master sheet) = User ID (column B in Info Sheet) then Copy Cells C,D,E (From Infor Sheet) to Cells (N, O, P in Master Sheet)

Been pulling whats left of my hair out trying to do this

Please help
Thanks
Damian

 

[Sektor]

Sub PullingWhatsLeftOfMyHairOut()
    If Sheets("Master").Range("K1") = Sheets("Info").Range("B1") Then
        Sheets("Master").Range("C1:E1").Copy Sheets("Info").Range("N1")
    End If
End Sub

 

[JackDanIce]

Something like:

Sub UnicornsDontExit ()
 
Dim wm as Worksheet, wi as worksheet
Dim i as Long
 
Set wm = Sheets("Master")
Set wi = Sheets("Info")
 
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
 
With wm
  For i = 1 to .Range("K" & Rows.Count).End(xlUp).Row
     If .Range("K" & i) = wi.Range("B" & i) Then .Range("N" & i & ":P" & i) = wi.Range("C" & i & ":E" & i)
  Next i
End With
 
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
 
End Sub

 

[VoG]

Maybe like this

Sub test()
Dim LR As Long, i As Long
With Sheets("Info")
    LR = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If .Range("B" & i).Value = Sheets("Master").Range("K" & i).Value Then
            .Range("C" & i).Resize(, 3).Copy Destination:=Sheets("Master").Range("N" & i)
        End If
    Next i
End With
End Sub