Wow. Merci beaucoup... Thanks a lot!! This is great and it will save m
loads of time!! I have another issue with VBA but I won't abuse fro
you... I'll give it a shot!

Thanks again! :) :) :

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387

Come on, I've got plenty of time...

Cheers
--
AP

"bambinos83" a
écrit dans le message de
...

Wow. Merci beaucoup... Thanks a lot!! This is great and it will save me
loads of time!! I have another issue with VBA but I won't abuse from
you... I'll give it a shot!

Thanks again! :) :) :)


--
bambinos83
------------------------------------------------------------------------
bambinos83's Profile:
http://www.excelforum.com/member.php...o&userid=32589
View this thread: http://www.excelforum.com/showthread...hreadid=523875

Well, don't worry about that second problem... It's not usefull anymore
I have a question about the previous macro though. In the DB that i
produced by running the code, is there a way to sort the results in a
ascending order by column and to delete any values that is there mor
than once in each column.

By doing this, I want to have some sort of clean timetable.

I attached the resulting table to this reply

+-------------------------------------------------------------------
|Filename: ex2.zip
|Download: http://www.excelforum.com/attachment.php?postid=4477
+-------------------------------------------------------------------

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387

Here's the code.

Yours,
--
AP

'---------------------------------------------
Sub SortResults()
' Sort result columns in ascendig order, elimitating dupes
Dim rngHeader As Range
Dim rngdata As Range
Dim rngVal As Range
Dim iRow As Long
Worksheets("Horaires").Activate

For Each rngHeader In Range( _
Range("B2"), _
Range("B2").End(xlToRight))

Set rngdata = rngHeader.Offset(1, 0) 'First row of data
If rngdata.Value < "" Then 'Non-Empty column
Set rngdata = Range( _
rngdata, _
Cells(Rows.Count, rngdata.Column).End(xlUp))
If rngdata.Count 1 Then 'More than 1 row
rngdata.Sort rngdata.Cells(1), xlAscending 'Sort data
For iRow = rngdata.Count To 2 Step -1
If rngdata.Cells(iRow).Value = _
rngdata.Cells(iRow - 1).Value _
Then rngdata.Cells(iRow).Delete xlUp 'dupe
Next iRow
End If
End If
Next rngHeader
End Sub
'--------------------------------------------
"bambinos83" a
écrit dans le message de
...

Well, don't worry about that second problem... It's not usefull anymore.
I have a question about the previous macro though. In the DB that is
produced by running the code, is there a way to sort the results in an
ascending order by column and to delete any values that is there more
than once in each column.

By doing this, I want to have some sort of clean timetable.

I attached the resulting table to this reply.


+-------------------------------------------------------------------+
|Filename: ex2.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4477 |
+-------------------------------------------------------------------+

--
bambinos83
------------------------------------------------------------------------
bambinos83's Profile:
http://www.excelforum.com/member.php...o&userid=32589
View this thread: http://www.excelforum.com/showthread...hreadid=523875

once again, many thanks. You just saved me a LOT of time!!

thank

--
bambinos8
-----------------------------------------------------------------------
bambinos83's Profile: http://www.excelforum.com/member.php...fo&userid=3258
View this thread: http://www.excelforum.com/showthread.php?threadid=52387