Search a sheet, find a cell, cut entire row, delete row & paste to a new sheet VBA

[Johnny3Gloves]

Hi All !

Using MS Office Professional 2019 - but I'm very much self taught with VBA & Excel in general !

I know this is really clumsy vba......

In words - I find a random value from either of two ranges in FARMDATA or FARMDATAPLY, depending on a userform radio button - then select the next 2 rows and return all three values to the Sheet VISITS.

I now want to cut those entire rows and copy them to a new worksheet (not created yet - but to be called VISITSCONFIRMED) this means that the random selections cannot be repeated. (Because they wont be in the range)

Here's my vba below - plus a Sanitised Version of the workbook attached.

Any help gratefully appreciated ...........

Please Login or Register  to view this content.

So i need to add a line that cuts and deletes the entry in FARMDATA so that it cannot be selected again elsewhere.............. and any tips to improve the coding for an ExcelIdiot would be really great too .............................

[davesexcel]

You can practice not to use selects.

This snip-it will work with out having to be on the sheet ("Data")

Please Login or Register  to view this content.

If you wanted to find something in column G Sheets("FARMDATA") you don't have to select the sheet in order to find it.

This snippet I just use the word "SomeThing" to find. If the item is found do what you want with it.

Please Login or Register  to view this content.

[Johnny3Gloves]

davesexcel !

davesExcellent ! thankyou !

I'm just trying to work out the code for what I want to do with the found cell - but that really was a great help !

Cheers !


Johnny3Gloves.

[Richard Buttrey]

That's great. And if that takes care of your question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.