find same value in a range and clearcontents

Hi, here an example workbook to make it more easy.

Someone can help me out ?

Thanks

nobody know how to do ?

I didn't mean like this, sorry, I just wanted to do a recall, cause I see nobody look anymore, I wanted to put tears, but it was not available
This is a great website, and the best for excel problems, always thank full and following the rules, only negative is the sometimes difficult moderator

ill take a look at it and see if i can find a solution to your issue

Originally Posted by incobart

nobody know how to do ?

It seems your attachment does not reflect your initial 'explanation' …
As it's very not difficult to well explain your need and to attach a before workbook and an expected result workbook (after) accordindly …

so i have to agree with marc in that the workbook doesn't match what you are saying in post #1.

please fill in the blank

Please Login or Register  to view this content.

this doesn't seem like an issue, just need to know the details.

Hi Dmcgov,
Thanks for checking, sorry for the late reply, but it was night here, ok I explain like in the example

at this moment, the api give me 3 values in range A160:A170 --> senegal cuba and Mali

I would like that the macro go to this names in B2:B155 range find them en make empty cell

so in this case he must find that Senegal is in cell B122, and empty the cell B122, then find that Cuba is in B30, empty B30 then find that Mali is in B80 and empty the cell B80 end loop check

the next hour it can be other names in range A160:170 (when api runs again) and then do the procedure again

Thank you

A demonstration according to your attachment as a beginner starter :

PHP Code: 

Sub Demo()
            Dim V, Rg As Range
            If IsEmpty([A160]) Then Beep: Exit Sub
    With Range("B2", [B1].End(xlDown))
        For Each V In Range("A160", Cells(Rows.Count, 1).End(xlUp)).Value2
                  Set Rg = .Find(V, , xlValues, xlWhole)
            While Not Rg Is Nothing
                      Rg.Clear
                  Set Rg = .FindNext(Rg)
            Wend
        Next
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Or

Please Login or Register  to view this content.

Hi jolivannes, Thanks for your Help, I started testing your code and it works ! only 1 issue, when only one value come in A160, then he debug, type mismatch, when i have more there is no problem ... any idea ?

greets
christian

Hi Marc L, Thanks for your Help, I started testing your code

it seems to debug on this line :

Please Login or Register  to view this content.

I get the message runtime error 424 object required
any idea ?
greets
Christian

Nope ! As it rocks with your attachment on my side ! But jolivanes' code is a better way …

Please Login or Register  to view this content.

Hi,
maybe because the wb I send is just a simple example, its part of a big complex macro's running file that it interfere with something " (Marc) but on itself it works ok. Thanks
The new code from Jolivanes gives exactly what I want and simple, Thans for your help also !!
have a nice day !
Christian