Alert Duplicate Data

V

Vanda_a

Well-known Member
Joined
Oct 29, 2012
Messages
934
Dear all.

I have this code

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long
tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue & " at this column"
            End If
        End If
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If
rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0
Application.EnableEvents = True
End Sub
It alerts me my duplicate data. I works well for me. But now I have new case.

I would like it to alert me even though there is a few words duplicate.
Ex: A1 is I go to school. Then if A2 is I go to school. the code alert me.

Require change. A1 Buy apple SE00012. A2 SE00012 Purchase apple. I would like it to alert me too even though the date are not duplicate.

SE, SI, AE, AI, LE & LI. those are data I would like the code to check it there is a duplicate

Thank you
 
Sort by date Sort by votes
I think I'm close but can't quite get it. Can't figure out how to specify a variable number of characters in the mid function despite looking for a long while. Maybe someone else can fill in the missing piece?

Here's new version of your code with comments to specify where I'm stuck now. The code successfully identifies when substring SE is present in the full text string. It then determines the location of SE within the full text string....... but then I can't get it to grab the rest for the EntValue variable. Tried with fixed length of 7 (SE00012 = seven characters) it didn't work. And if it needs to be a variable length then I don't know. Hopefully someone can help!

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            




''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then
            EntValue = "SE"
            Position = InStr(myCell, EntValue)
        



            
''''''''''''''''''''Here is where I am stuck, can't get either one of these options to work''''''''''''''
        EntValue2 = Mid(EntValue, Position, Variable_NumChars) 'need a function here to get the variable number of characters integer
        'EntValue2 = Mid(EntValue, Position, 7) 'EntValue2 displays "", when it should be "SE00012" at this point, 7 total characters from starting position of EntValue



            End If
''''''''''''''''''' repeat this for SI, AE, AI, LE, & LI
            
''''''''''''''''' my addition ends here

''''''''Repeat the same for lower part of code....

            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here

            If EntValue Like "*" & "SE" & "*" Then EntValue = "*" & "SE" & "*"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "*" & "SI" & "*"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "*" & "AE" & "*"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "*" & "AI" & "*"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "*" & "LE" & "*"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "*" & "LI" & "*"
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If
rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0
Application.EnableEvents = True
End Sub
 
Upvote 0

Excel Facts

Waterfall charts in Excel?
Office 365 customers have access to Waterfall charts since late 2016. They were added to Excel 2019.
Vanda-A, not sure if this is completely what you want but I got a lot closer. The below code finds the key values SE, SI, etc... and then counts 7 characters out from wherever it finds the key value the text. If your key words are always 7 characters long it should always work. If they are of variable length or if not sure then this may not work all the time. I'm continuing to search for a way for this to work no matter what the key word length is. I've commented out in the below where I could use some help on that if anyone is interested or can point me at a good thread on it. Learning a lot either way though, thank you!

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            
''''''''''''''''' my addition begins here
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"


''''''''''''''''''''No longer stuck, as long as the key word is always 7 characters long. However I still have not figured out how to do this with variable length key words
            Position = InStr(myCell, EntValue) 'determines starting position of EntValue within full text string of myCell
            EntValue2 = Mid(myCell & EntValue, Position, 7) ' counts 7 characters from Position and captures text string characters between
''''''''''''EntValue2 = Mid(EntValue, Position, insert function I don't know how to make here, called Var_Num_Chars) ' don't know how to get this alternate to work yet. But it would be great to have a version that can capture key words of variable number of characters.

''''''''''''''''' my addition ends here
            
            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue2 & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            
            Position = InStr(myCell, EntValue)
            EntValue2 = Mid(myCell & EntValue, Position, 7)
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue & "*")
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If
rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0
Application.EnableEvents = True
End Sub
 
Upvote 0
Slight revision to this line in 2nd part of code: myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
Changed to this: myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue &"*")

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            
''''''''''''''''' my addition begins here
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"


''''''''''''''''''''No longer stuck, as long as the key word is always 7 characters long. However I still have not figured out how to do this with variable length key words
            Position = InStr(myCell, EntValue) 'determines starting position of EntValue within full text string of myCell
            EntValue2 = Mid(myCell & EntValue, Position, 7) ' counts 7 characters from Position and captures text string characters between
''''''''''''EntValue2 = Mid(EntValue, Position, insert function I don't know how to make here, called Var_Num_Chars) ' don't know how to get this alternate to work yet. But it would be great to have a version that can capture key words of variable number of characters.

''''''''''''''''' my addition ends here
            
            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue2 & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            
            Position = InStr(myCell, EntValue)
            EntValue2 = Mid(myCell & EntValue, Position, 7)
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If
rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0
Application.EnableEvents = True
End Sub
 
Upvote 0
Sayre said:
Slight revision to this line in 2nd part of code: myValueCount = Application.WorksheetFunction.CountIf(myRange, EntValue)
Changed to this: myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue &"*")

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            
''''''''''''''''' my addition begins here
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"


''''''''''''''''''''No longer stuck, as long as the key word is always 7 characters long. However I still have not figured out how to do this with variable length key words
            Position = InStr(myCell, EntValue) 'determines starting position of EntValue within full text string of myCell
            EntValue2 = Mid(myCell & EntValue, Position, 7) ' counts 7 characters from Position and captures text string characters between
''''''''''''EntValue2 = Mid(EntValue, Position, insert function I don't know how to make here, called Var_Num_Chars) ' don't know how to get this alternate to work yet. But it would be great to have a version that can capture key words of variable number of characters.

''''''''''''''''' my addition ends here
            
            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue2 & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            
            Position = InStr(myCell, EntValue)
            EntValue2 = Mid(myCell & EntValue, Position, 7)
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If
rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0
Application.EnableEvents = True
End Sub
Click to expand...

Hi Sayre. Thank so much for your help.

I find out a little problem. Whenever I erase the duplicate data, there will be a debug pop up window (Run-Time Error '5')
 
Upvote 0
OK I entered this line of code, If EntValue = Empty Then GoTo Skip in a couple of spots to handle this. Here's the new code:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            
''''''''''''''''' my addition begins here
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            If EntValue = Empty Then GoTo Skip 'to handle when user deletes cell contents

''''''''''''''''''''No longer stuck, as long as the key word is always 7 characters long. However I still have not figured out how to do this with variable length key words
            Position = InStr(myCell, EntValue) 'determines starting position of EntValue within full text string of myCell
            EntValue2 = Mid(myCell & EntValue, Position, 7) ' counts 7 characters from Position and captures text string characters between
''''''''''''EntValue2 = Mid(EntValue, Position, insert function I don't know how to make here, called Var_Num_Chars) ' don't know how to get this alternate to work yet. But it would be great to have a version that can capture key words of variable number of characters.

''''''''''''''''' my addition ends here
            
            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue2 & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            If EntValue = Empty Then GoTo Skip 'to handle when user deletes cell contents
            
            Position = InStr(myCell, EntValue)
            EntValue2 = Mid(myCell & EntValue, Position, 7)
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If


rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0

Skip:
Application.EnableEvents = True
End Sub
 
Upvote 0
Sayre said:
OK I entered this line of code, If EntValue = Empty Then GoTo Skip in a couple of spots to handle this. Here's the new code:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim myRange As Range, myCell As Range
Dim EntValue, EntValue2
Dim NewValue As Double, iMult As Double
Dim rCount As Long, iCount As Long, tCol As Long, myValueCount As Long

tCol = Target.Column
iCount = Empty
On Error Resume Next
iCount = Selection.Count
On Error GoTo 0
If iCount = 1 Then
If tCol = 1 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value
            
''''''''''''''''' my addition begins here
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            If EntValue = Empty Then GoTo Skip 'to handle when user deletes cell contents

''''''''''''''''''''No longer stuck, as long as the key word is always 7 characters long. However I still have not figured out how to do this with variable length key words
            Position = InStr(myCell, EntValue) 'determines starting position of EntValue within full text string of myCell
            EntValue2 = Mid(myCell & EntValue, Position, 7) ' counts 7 characters from Position and captures text string characters between
''''''''''''EntValue2 = Mid(EntValue, Position, insert function I don't know how to make here, called Var_Num_Chars) ' don't know how to get this alternate to work yet. But it would be great to have a version that can capture key words of variable number of characters.

''''''''''''''''' my addition ends here
            
            
            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                MsgBox "you have already enter " & EntValue2 & " at this column"
        End If
    End If
    
    
    
    
    
         ElseIf tCol = 2 Then
         Set myRange = Columns(Target.Column)
        If Not Application.Intersect(myRange, Range(Target.Address)) Is Nothing Then
            Set myCell = Range(Target.Address)
            EntValue = myCell.Value

''''''''''''''''' my addition begins here
            
            If EntValue Like "*" & "SE" & "*" Then EntValue = "SE"
            If EntValue Like "*" & "SI" & "*" Then EntValue = "SI"
            If EntValue Like "*" & "AE" & "*" Then EntValue = "AE"
            If EntValue Like "*" & "AI" & "*" Then EntValue = "AI"
            If EntValue Like "*" & "LE" & "*" Then EntValue = "LE"
            If EntValue Like "*" & "LI" & "*" Then EntValue = "LI"

            If EntValue = Empty Then GoTo Skip 'to handle when user deletes cell contents
            
            Position = InStr(myCell, EntValue)
            EntValue2 = Mid(myCell & EntValue, Position, 7)
            
''''''''''''''''' my addition ends here

            myValueCount = Application.WorksheetFunction.CountIf(myRange, "*" & EntValue2 & "*")
            If myValueCount > 1 Then
                myCell.Interior.ColorIndex = 3
            End If
        End If
End If
End If


rCount = Application.WorksheetFunction.CountA(Range(Target.Address))
If rCount = 0 Then Range(Target.Address).Interior.ColorIndex = 0

Skip:
Application.EnableEvents = True
End Sub
Click to expand...

It works so well now. Thank you so much

Really appreciate
 
Last edited:
Upvote 0
Hmm I could not recreate these false alerts. Those words don't conform to the rules of the script. Can yu tell me what else is in the cell contents with those words?
 
Upvote 0
Sayre said:
Hmm I could not recreate these false alerts. Those words don't conform to the rules of the script. Can yu tell me what else is in the cell contents with those words?
Click to expand...

Sorry for lack of detail.

in the cell contents anything. I mean daily activities. Like buy or expenses on operation, there is no SE or SI..
Ex: Buy apple(no SE). Pay to ABC SE00002.(got SE)

In conclusion. In the cell are the description on my expenses
 
Upvote 0
Hi Vanda_a. I guess I don't understand fully. Are you saying you want to find a match on any word at all?
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Solved
Need to have Worksheet_Change event include value from another column using structured reference
Replies
4
Views
303
Alex Blakenburg
A
S
  • Solved
Need value to be the Table Column Header in lieu of Cell Address
Replies
1
Views
276
sspatriots
S
A
  • Question
Moving Rows Up (Scroll) To Defined Row Number for Viewing
Replies
6
Views
194
Ark68
A
A
  • Question
After User Enters A Value (Validation List), Not Automatically Advancing To Next Cell As Per "Select"
Replies
1
Views
178
Ark68
A
I
  • Question
Modify VBA script to count rows with data in multiple sheets
Replies
0
Views
94
irishjsk
I

Forum statistics

Threads
1,214,998
Messages
6,122,639
Members
449,093
Latest member
Ahmad123098

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top