Find text and cut/paste that row.

[BreatGritain]

Hello.

I wondered if anyone could help, I'm having trouble figuring out how I could get this to work.
I have a little experience with Macro's and a tiny, tiny amount of experience with VB, so please go easy on me.

I've got an excel database to track my stock. I'm wanting a macro/VB to be able to help find a particular row easily.

The details of my stock is stored on a sheet called "Stock List".

On a sheet called "Modify Stock" I want to be able to type an item's barcode into cell D8. I then want to press the Macro button, and I need the macro to search column B on "Stock List" for an exact match.

When a match is found I then need the Macro to cut the data from that entire row from "Stock List" to row 30 of "Modify Stock" (from column B onwards)

Does that make any sense? Is it possible?

Thank you very much for any help.

Tom.

[stnkynts]

This part got confusing

When a match is found I then need the Macro to cut the data from that entire row from "Stock List" to row 30 of "Modify Stock" (from column B onwards)

How about this:

Please Login or Register  to view this content.

[BreatGritain]

Sorry about the confusion, but I think you got the idea, because the code you've written works well, thank you!

The only tweak I need is for the Macro to either Cut the data from the worksheet rahter than Copy it, or (even better) to delete the empty row - if you have any suggestions I would be really greatful.

Thanks again for the brilliant help.

[BreatGritain]

I have worked it out using your code,

Sub BreatGritain()
Dim ws1 As Worksheet: Set ws1 = Sheets("Modify Stock")
Dim ws2 As Worksheet: Set ws2 = Sheets("Stock List")
Dim rFind As Range

Set rFind = ws2.Range("B1:B" & ws2.Range("B" & Rows.Count).End(xlUp).Row).Find(What:=ws1.Range("D8").Value, LookIn:=xlValues, LOokat:=xlWhole)
If Not rFind Is Nothing Then
rFind.EntireRow.Copy Destination:=ws1.Range("A30")
rFind.EntireRow.Delete

Else
MsgBox ("Could not find the stock")
End If

End Sub

Thank you so, so much for your help.