Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
show result in msg box
I created a macro which checks for duplicates entries:
I would like the macro to display a message box with the name found and then requst if wanted to be deleted. I can't seem to be able to put in the name in the msgbox. thanks, jared Sub Check_4_Dups() Dim first As String Dim Second As String Dim i As Integer Dim Response For i = 3 To 52 first = Cells(i, 4).Value If first < "Employee's Name" Then For n = i + 1 To 52 Second = Cells(n, 4).Value If Second < "Employee's Name" Then If first = Second Then Response = MsgBox("The Name " &First& "Appears Twice, Do you want to delete one entry?", vbYesNo, "Check for Duplicate names") If Response = vbYes Then Cells(n, 4) = "Employee's Name" End If Next n End If Next i End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
show result in msg box
Hi,
It looks as if your "Employee's Name" is a variable which is not defined ... HTH Carim |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
show result in msg box
"employee's name" is not a variable, "first" is the variable. Wherever a name
is not listed it doesn't show a blank space, it shows "employee's name" i hope that covers your question. jared "Carim" wrote: Hi, It looks as if your "Employee's Name" is a variable which is not defined ... HTH Carim |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
show result in msg box
Worked fine for me, but this is more efficient
Sub Check_4_Dups() Dim first As String Dim i As Long Dim Response For i = 3 To 52 first = Cells(i, 4).Value If first < "Employee's Name" Then If Application.CountIf(Range("D3", Cells(i, 4)), first) 1 Then Response = MsgBox("The Name " _ & first & " appears Twice, Do you want to delete one entry?", _ vbYesNo, "Check for Duplicate names") If Response = vbYes Then Cells(i, 4) = "Employee's Name" End If End If Next i End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jared" wrote in message ... "employee's name" is not a variable, "first" is the variable. Wherever a name is not listed it doesn't show a blank space, it shows "employee's name" i hope that covers your question. jared "Carim" wrote: Hi, It looks as if your "Employee's Name" is a variable which is not defined ... HTH Carim |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
show result in msg box
That's Right.
I did not know exactly how to make a Countif formula for this one. But Thanks "Bob Phillips" wrote: Worked fine for me, but this is more efficient Sub Check_4_Dups() Dim first As String Dim i As Long Dim Response For i = 3 To 52 first = Cells(i, 4).Value If first < "Employee's Name" Then If Application.CountIf(Range("D3", Cells(i, 4)), first) 1 Then Response = MsgBox("The Name " _ & first & " appears Twice, Do you want to delete one entry?", _ vbYesNo, "Check for Duplicate names") If Response = vbYes Then Cells(i, 4) = "Employee's Name" End If End If Next i End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jared" wrote in message ... "employee's name" is not a variable, "first" is the variable. Wherever a name is not listed it doesn't show a blank space, it shows "employee's name" i hope that covers your question. jared "Carim" wrote: Hi, It looks as if your "Employee's Name" is a variable which is not defined ... HTH Carim |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"1235" appears as "One thousand two hundred thirty five" | Excel Discussion (Misc queries) | |||
spell number | Excel Worksheet Functions | |||
Convert number into words | Excel Discussion (Misc queries) | |||
convert numbers to text | Excel Discussion (Misc queries) | |||
convert value in word. For Exampe Rs.115.00 convert into word as . | Excel Discussion (Misc queries) |