Send value from one sheet to another with a button, but matching some criteria

[mat3usPT]

Hey Guys how are you?
I'm looking for a VBA solution for this problem
I have a button and want it to pass a value to another sheet and store it there. So when I erase the "slotstream" sheet, the highscore value remains on the databate "slots" sheet.
I don't have any VBA knowlage, but it should do something like a Vlookup right?
Hope this visual presentation helps

Then I replicate the same for the x button.

Thanks in advance for your time.

 

[jolivanes]

On your "SlotStream" sheet, how is the name to be compared found? Do you select Range("B2") or Range("Q2")?
I assume that your picture is wrong because of the "Oulaws Inc" and "Outlaw" being highlighted. These are different values.

 

[mat3usPT]

On your "SlotStream" sheet, how is the name to be compared found? Do you select Range("B2") or Range("Q2")?
I assume that your picture is wrong because of the "Oulaws Inc" and "Outlaw" being highlighted. These are different values.

Sorry you are right, it should match the same name, i marked it wrong on the screenshot.
Answering to your question, I have a vba code that when I click on cell in column B on sheet "slotstream" it copies that value to Q2, so we have two options:

- I want the button to work with the reference from Q2 to lookup the process as I said in the post
- When I have a Highscore, I can double click the cell on column J directly and it sends that value to the "slots" sheet with the same lookup method

Thank you for your attention.

 

[jolivanes]

Try so on a copy of your original fist.
Change references if required.

Sub Maybe()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("SlotStream")
Set sh2 = Worksheets("Slots")
On Error GoTo SomethingIsWrong
    sh2.Columns(1).Find(sh1.Cells(2, 17), , , 1).Offset(, 1).Value = sh1.Cells(2, 17).Offset(, -7).Value
Exit Sub
SomethingIsWrong: MsgBox "Can't find that name. Might be different spelling!"
End Sub[code]

 

[mat3usPT]

Try so on a copy of your original fist.
Change references if required.

Sub Maybe()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("SlotStream")
Set sh2 = Worksheets("Slots")
On Error GoTo SomethingIsWrong
    sh2.Columns(1).Find(sh1.Cells(2, 17), , , 1).Offset(, 1).Value = sh1.Cells(2, 17).Offset(, -7).Value
Exit Sub
SomethingIsWrong: MsgBox "Can't find that name. Might be different spelling!"
End Sub[code]

Thank you, It's Working!

 

[jolivanes]

Thank you for letting us know and good luck.