Posted to microsoft.public.excel.programming

Unknown_User[_7_] Unknown_User[_7_] is offline

external usenet poster

Posts: 1

Check a cell for duplicates.

...worked it out guys.

Private Sub CommandButton1_Click()

With Worksheets("Sheet1").Columns("A:A")
Do
rand = Rnd()
Set oCell = .Find(rand)
Loop Until oCell Is Nothing
Worksheets("Sheet1").Range("a1").Value = rand
End With

End Su

--
Message posted from http://www.ExcelForum.com

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
check for duplicates	Rod	Excel Discussion (Misc queries)	10	January 25th 10 06:50 PM
Check for duplicates?	Vass[_2_]	Excel Worksheet Functions	5	October 24th 07 11:12 PM
check for duplicates	Todd	Excel Worksheet Functions	0	November 7th 06 05:59 PM
Check for Duplicates	Carter68	Excel Worksheet Functions	3	April 15th 06 12:13 AM
Check for duplicates	Pat	Excel Worksheet Functions	8	February 17th 05 10:06 PM

All times are GMT +1. The time now is 07:45 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us