Userform Command Button - Match range/copy row

[jiveass1960]

Hello,

This is my first post. I've tried searching this out without success. Probably because my VB skills are non-existent. Anyway, what I'm trying to accomplish is, I have a userform with a command button on sheet5. When the button is executed, I would like index/match sheet5 column A against sheet 2 column O. They are unique values so there will either be no match, or a single match. When a match is made, I would like to copy the rowdata from b:f of sheet5 and paste it to the matching row on sheet2 q:u. Apologies in advance as I am a novice.

Thank you.

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub jiveass1960()
   Dim Cl As Range
   Dim Dic As Object
   
   Set Dic = CreateObject("scripting.dictionary")
   With Sheets("Sheet5")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         Dic.item(Cl.Value) = Cl.Offset(, 1).Resize(, 5)
      Next Cl
   End With
   With Sheets("Sheet2")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         Cl.Offset(, 16).Resize(, 5) = Dic.item(Cl.Value)
      Next Cl
   End With
End Sub

 

[jiveass1960]

Good morning! First off, thank you Fluff for your help. When running this, I do not get any errors, but I cannot determine if anything is actually happening. There are a few quick flashes but that is all. No data is copied from sheet 5 to sheet 2.

 

[Fluff]

Apologies, I didn't read your op properly.
Try

Sub jiveass1960()
   Dim Cl As Range
   Dim Dic As Object
   
   Set Dic = CreateObject("scripting.dictionary")
   With Sheets("Sheet5")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         Dic.item(Cl.Value) = Cl.Offset(, 1).Resize(, 5)
      Next Cl
   End With
   With Sheets("Sheet2")
      For Each Cl In .Range("O2", .Range("O" & Rows.Count).End(xlUp))
         Cl.Offset(, 2).Resize(, 5) = Dic.item(Cl.Value)
      Next Cl
   End With
End Sub

 

[jiveass1960]

This works perfectly. Thank you Fluff!

Apologies, I didn't read your op properly.
Try

Sub jiveass1960()
   Dim Cl As Range
   Dim Dic As Object
   
   Set Dic = CreateObject("scripting.dictionary")
   With Sheets("Sheet5")
      For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
         Dic.item(Cl.Value) = Cl.Offset(, 1).Resize(, 5)
      Next Cl
   End With
   With Sheets("Sheet2")
      For Each Cl In .Range("O2", .Range("O" & Rows.Count).End(xlUp))
         Cl.Offset(, 2).Resize(, 5) = Dic.item(Cl.Value)
      Next Cl
   End With
End Sub

 

[Fluff]

You're welcome & thanks for the feedback