Search/delete

[Jerry HKA]

Hello,

I need a VBA codes that can search the whole worksheet for a number that I typed into a particular cell, and delete it.

That means if I typed 1256 in S3, and activated a macro or a VBA code(function), the computer shall search worksheet for same numbers in any arrangements and delete it.

Can anybody make one, or even have an idea for it? If yes, then, please try.

Thank you.

[Jakobshavn]

Give this a try:

Please Login or Register  to view this content.

[Sa DQ]

Option Explicit 
Sub Jerry_HKA() 
 Dim Rng As Range, sRng As Range, dRg As Range 
 Dim MyAdd As String 
  
 Set Rng = ActiveSheet.UsedRange:       Set dRg = [s3] 
 Set sRng = Rng.Find(dRg.Value, , xlFormulas, xlWhole) 
 If Not sRng Is Nothing Then 
    MyAdd = sRng.Address 
    Do 
        Set dRg = Union(dRg, sRng) 
        Set sRng = Rng.FindNext(sRng) 
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd 
 End If 
 If Not dRg Is Nothing Then dRg.Value = ""  
End Sub  

[Jerry HKA]

Any code that can also delete any numbers inside it. That means if I use

Please Login or Register  to view this content.

to delete 3459, I also want it yo delete 345,349,359 and 459. If I want to delete 8883, i want it to also delete, 388 and 888. Do you understand??? Please try to. If not, then PM me. I will explain.

[Jerry HKA]

And addition to it, it won't delete the permutation of the numbers, which also means If I want to delete 1234, the computer must also delete 4321,1324,3421,4132 and so on. That means it must delete every possible arrangements of the number. Please approach the code again and configure it to perfection.

Thank you in advanced, I know you guys could do it.

[Sa DQ]

[Jerry HKA]

Thank you for your code or function, first of all, can you tell me how you did that and secondly, what does it mean by select value. Can you please explain to me, please. I am not very good at understanding these method just by looking at them. Please explain, Thank you.