A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » Worksheet Functions
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

The 4th column D to be filler.



 
 
Thread Tools Display Modes
  #21  
Old August 7th, 2007, 06:13 PM posted to microsoft.public.excel.worksheet.functions
T. Valko
external usenet poster
 
Posts: 15,759
Default The 4th column D to be filler.



"David Biddulph" groups [at] biddulph.org.uk wrote in message
...
"T. Valko" wrote in message
...
...
Yeah, that's true.

For those that might not understand what Harlan's talking about, consider
these 2 line entries:

100...15:30
1001...5:30

Those 2 lines are not equal but when concatenated they a

10015:30
10015:30


But of course if the 15:30 and 5:30 are times, rather than text strings,
the concatenated values will be different:
1000.645833333333333
10010.229166666666667
--
David Biddulph


Yeah, that wasn't the best data to use for an example but I think people
will understand the concept.

--
Biff
Microsoft Excel MVP


  #22  
Old August 8th, 2007, 04:56 PM posted to microsoft.public.excel.worksheet.functions
ryguy7272
external usenet poster
 
Posts: 1,593
Default The 4th column D to be filler.

I found these subs on this DG a while back. Try either; try both.

Sub Uniques()
Dim i As Integer
i = 1
Do Until Cells(i, 1).Value = "" '(as long as your data is in column 1)
If Cells(i, 1) = Cells(i + 1, 1) Then
Else
Cells(i, 1).Copy
Cells(i, 5).PasteSpecial xlValues '(this pastes into column E)
End If
i = i + 1

Loop
Range("E5:E1000").Sort Key1:=Range("E5"), Order1:=xlAscending

Columns("E:E").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending
Range("A1").Select

End Sub


Sub ExtractUnique()
Sheets("Find Dupes").Range("A1:A20").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("C1"), _
Unique:=True
End Sub

Hope this helps.
Regards,
Ryan--




"Steved" wrote:

Hello from Steved


Below I've Columns A,B,C, What I would like please is a formula the would
find the Duplicates, if none found the put the number 1 in Column D, If
Dupicates found then goto the first put in 1 then the second Duplicate put in
2, if a third found then put in 3, if a fourth is found then put in 4 and so
on. for example if There is 8 duplicates found then I will see
1,2,3,4,5,6,7,8 in D1, I will see 1 D2, I will see 2 in D3 I will see 3 and
so on.

30/07/2007 1004 15:30
31/07/2007 1004 15:30
1/08/2007 1004 15:30
2/08/2007 1004 15:30
30/07/2007 1005 15:30
31/07/2007 1005 15:30
2/08/2007 1005 15:30
3/08/2007 1005 15:30
30/07/2007 1007 15:20
30/07/2007 1007 15:20
31/07/2007 1007 15:20
31/07/2007 1007 15:20
1/08/2007 1007 15:20
2/08/2007 1007 15:20
2/08/2007 1007 15:20
3/08/2007 1007 15:20

Thankyou.

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 03:54 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.