#### can this macro be adapted for 4 groups?

```Hi,
Below is a code from Jim Cone which provides a way of drawing arbitrary
names from a bag.
I need to adopt this code such that it can be used to establish 4 groups
(A,B,C and D each having 4 teams) out of 16 team. The only problem is that I
need to select 4 teams out of the 16 team before I start drawing. Can you
suggest solutions?
TIA
==============================
'July 06, 2004 - Jim Cone
Sub DisplayRandomNames()
Dim RS                As Long
Dim objRangeA   As Range
Dim objRangeB   As Range
Dim objRangeC   As Range
Dim blnNotThere As Boolean

' Establish where everything goes or comes from.
Set objRangeA = Worksheets(1).Range("A1:A35")
Set objRangeB = Worksheets(2).Range("B1:B35")
Set objRangeC = Worksheets(2).Range("C1:C35")

' Is there anything to work with?
If WorksheetFunction.CountA(objRangeA) < 35 Then
MsgBox "Kaynak listenin eksik oldu�u sayfa " & objRangeA.Parent.Name &
"  ", _
vbExclamation, " Maksimum 35 olmal�yd�"
GoTo DontCallMe
End If

Worksheets(2).Select
StartOver:
' If objRangeC range is blank then fill
' with names, clear Columns 1 and 2 and exit.
If WorksheetFunction.CountA(objRangeC) = 0 Then
objRangeC.Value = objRangeA.Value
objRangeC.Columns.AutoFit
objRangeB.ClearContents
objRangeB.ColumnWidth = objRangeC.ColumnWidth
'Range("A1").ClearContents
Range("A1").ColumnWidth = objRangeC.ColumnWidth
GoTo DontCallMe
End If

' Keep looking until random name is found in objRangeC.
Do While blnNotThere = False
Randomize
RS = Int(Rnd * 35 + 1)
'Find RS position within objRangeC.
If Not IsError(Application.Match(objRangeC(RS), objRangeC, 0)) Then
blnNotThere = True
Range("A1").Value = objRangeC(RS)
objRangeB(WorksheetFunction.CountA(objRangeB) + 1).Value =
objRangeC(RS)
objRangeC(Application.Match(objRangeC(RS), objRangeC, 0)).Delete
shift:=xlUp
End If
Loop

' Are you bored yet?
If WorksheetFunction.CountA(objRangeC) = 0 Then
If MsgBox("��lem Tamam! .. Tekrar?  ", vbQuestion + vbYesNo, _
" Rastgele isim Kuras�") = vbYes Then GoTo StartOver
End If

DontCallMe:
Set objRangeA = Nothing
Set objRangeB = Nothing
Set objRangeC = Nothing
End Sub

```
 0
zoomer2331 (12)
8/20/2004 3:26:13 PM
excel 39879 articles. 2 followers.

5 Replies
556 Views

Similar Articles

[PageSpeed] 35

```Martyn,

I never knew I was bilingual. <g>
I decided the code you are trying to use wasn't very adaptable, so I started to write a _
new routine and it just kept growing.
I assume you use five columns on your worksheet:
the master team list and the four individual teams.
The code will only work if you use the same ranges I use or if you change the code.
Regards,
Jim Cone
San Francisco, CA

'-----------------------------------------------
Sub CreateRandomTeams()
'Jim Cone - San Francisco, CA - August 20, 2004
Dim objTeamOne As Range
Dim objTeamTwo As Range
'Dim objTeamThree As Range - Not required in code
Dim objTeamFour As Range
Dim objAllTeams As Range
Dim strName As String
Dim arrOne(1 To 16) As Long
Dim colNames As Collection
Dim i As Long
Dim j As Long
Dim N As Long
Dim M As Long

'User fills this range with the names of all 16 teams
Set objAllTeams = Range("B5:B20")

'User fills this range with names of the first team
Set objTeamOne = Range("D5:D8")

'The next three ranges are filled at random 'from the remaining 12 team names.
Set objTeamTwo = Range("E5:E8")
'   objTeamThree = Range("F5:F8") ' not required in code
Set objTeamFour = Range("G5:G8")

'Check if properly set up
If WorksheetFunction.CountA(objAllTeams) <> 16 Or _
WorksheetFunction.CountA(objTeamOne) <> 4 Then
MsgBox "Teams names are missing.  ", vbOKOnly + vbExclamation, " Select Teams Program"
GoTo NoTeamWork

Else

'  Check if duplicate names exist
Set colNames = New Collection
On Error Resume Next
For N = 1 To 4
colNames.Add vbNullString, objTeamOne(N)
Next 'N
On Error GoTo 0

If colNames.Count <> 4 Then
strName = "Duplicate names exist in the first team.  "
Else
For N = 4 To 1 Step -1
colNames.Remove N
Next 'N

On Error Resume Next
For N = 1 To 16
colNames.Add vbNullString, objAllTeams(N)
Next 'N
On Error GoTo 0
If colNames.Count <> 16 Then _
strName = "Duplicate names exist in the master list.  "
End If

If Len(strName) Then
MsgBox strName, vbExclamation, " Select Teams Program"
GoTo NoTeamWork
End If
Set colNames = Nothing
End If

'Assign the team names at random.
For N = objTeamTwo.Column To objTeamFour.Column
j = objTeamTwo(1).Row
M = j + 4
Do While j < M
Randomize (Right(Timer, 2) * j)
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
i = Int(Rnd * 16 + 1)
If arrOne(i) <> i Then
arrOne(i) = i
strName = objAllTeams(i).Value
If IsError(Application.Match(strName, objTeamOne, 0)) Then
Cells(j, N).Value = strName
j = j + 1
End If
End If
Loop
Next 'N

NoTeamWork:
Set objAllTeams = Nothing
Set objTeamOne = Nothing
Set objTeamTwo = Nothing
Set objTeamFour = Nothing
Set colNames = Nothing
End Sub
'-----------------------------------

"Martyn" <zoomer@hotmail.com> wrote in message news:uG4LVoshEHA.3076@tk2msftngp13.phx.gbl...
> Hi,
> Below is a code from Jim Cone which provides a way of drawing arbitrary
> names from a bag.
> I need to adopt this code such that it can be used to establish 4 groups
> (A,B,C and D each having 4 teams) out of 16 team. The only problem is that I
> need to select 4 teams out of the 16 team before I start drawing. Can you
> suggest solutions?
> TIA
- snip -
```
 0
jim.coneXXX (771)
8/21/2004 2:26:46 AM
```Martyn,

You are welcome.

Re "bilingual"...I was making a joke.
The text in the message boxes is not English.

Regards,
Jim Cone
San Francisco, CA

"Martyn" <zoomer@hotmail.com> wrote in message news:u%2370n4zhEHA.1392@TK2MSFTNGP11.phx.gbl...
> Hi Jim,
> I didn't thought of the original code writer will reply back to me on this.
> Your code works like a charm.
> Thanks a million.
> What I couldn't figure out from your post is not the code but your comment
> on bilingualizm...:)
> Regards
> Martyn

> "Jim Cone" <jim.coneXXX@rcn.comXXX> wrote in message
> news:#T60VZyhEHA.556@tk2msftngp13.phx.gbl...
> > Martyn,
> >
> > I never knew I was bilingual. <g>
> > I decided the code you are trying to use wasn't very adaptable, so I
> started to write a _
> >   new routine and it just kept growing.
> > I assume you use five columns on your worksheet:
> >   the master team list and the four individual teams.
> > The code will only work if you use the same ranges I use or if you change
> the code.
> > Regards,
> > Jim Cone
> > San Francisco, CA

- snip -
```
 0
jim.coneXXX (771)
8/21/2004 9:44:46 AM
```Hi Jim,
I didn't thought of the original code writer will reply back to me on this.
Your code works like a charm.
Thanks a million.
What I couldn't figure out from your post is not the code but your comment
on bilingualizm...:)
Regards
Martyn

"Jim Cone" <jim.coneXXX@rcn.comXXX> wrote in message
news:#T60VZyhEHA.556@tk2msftngp13.phx.gbl...
> Martyn,
>
> I never knew I was bilingual. <g>
> I decided the code you are trying to use wasn't very adaptable, so I
started to write a _
>   new routine and it just kept growing.
> I assume you use five columns on your worksheet:
>   the master team list and the four individual teams.
> The code will only work if you use the same ranges I use or if you change
the code.
> Regards,
> Jim Cone
> San Francisco, CA
>
> '-----------------------------------------------
> Sub CreateRandomTeams()
> 'Jim Cone - San Francisco, CA - August 20, 2004
> Dim objTeamOne As Range
> Dim objTeamTwo As Range
> 'Dim objTeamThree As Range - Not required in code
> Dim objTeamFour As Range
> Dim objAllTeams As Range
> Dim strName As String
> Dim arrOne(1 To 16) As Long
> Dim colNames As Collection
> Dim i As Long
> Dim j As Long
> Dim N As Long
> Dim M As Long
>
> 'User fills this range with the names of all 16 teams
> Set objAllTeams = Range("B5:B20")
>
> 'User fills this range with names of the first team
> Set objTeamOne = Range("D5:D8")
>
> 'The next three ranges are filled at random 'from the remaining 12 team
names.
> Set objTeamTwo = Range("E5:E8")
> '   objTeamThree = Range("F5:F8") ' not required in code
> Set objTeamFour = Range("G5:G8")
>
> 'Check if properly set up
> If WorksheetFunction.CountA(objAllTeams) <> 16 Or _
>    WorksheetFunction.CountA(objTeamOne) <> 4 Then
>    MsgBox "Teams names are missing.  ", vbOKOnly + vbExclamation, " Select
Teams Program"
>    GoTo NoTeamWork
>
> Else
>
> '  Check if duplicate names exist
>    Set colNames = New Collection
>    On Error Resume Next
>    For N = 1 To 4
>        colNames.Add vbNullString, objTeamOne(N)
>    Next 'N
>    On Error GoTo 0
>
>    If colNames.Count <> 4 Then
>       strName = "Duplicate names exist in the first team.  "
>    Else
>       For N = 4 To 1 Step -1
>           colNames.Remove N
>       Next 'N
>
>       On Error Resume Next
>       For N = 1 To 16
>          colNames.Add vbNullString, objAllTeams(N)
>       Next 'N
>       On Error GoTo 0
>       If colNames.Count <> 16 Then _
>          strName = "Duplicate names exist in the master list.  "
>    End If
>
>    If Len(strName) Then
>       MsgBox strName, vbExclamation, " Select Teams Program"
>       GoTo NoTeamWork
>    End If
>    Set colNames = Nothing
> End If
>
> 'Assign the team names at random.
> For N = objTeamTwo.Column To objTeamFour.Column
>     j = objTeamTwo(1).Row
>     M = j + 4
>     Do While j < M
>        Randomize (Right(Timer, 2) * j)
>       'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
>        i = Int(Rnd * 16 + 1)
>        If arrOne(i) <> i Then
>           arrOne(i) = i
>           strName = objAllTeams(i).Value
>           If IsError(Application.Match(strName, objTeamOne, 0)) Then
>              Cells(j, N).Value = strName
>              j = j + 1
>           End If
>        End If
>     Loop
> Next 'N
>
>
> NoTeamWork:
> Set objAllTeams = Nothing
> Set objTeamOne = Nothing
> Set objTeamTwo = Nothing
> Set objTeamFour = Nothing
> Set colNames = Nothing
> End Sub
> '-----------------------------------
>
> "Martyn" <zoomer@hotmail.com> wrote in message
news:uG4LVoshEHA.3076@tk2msftngp13.phx.gbl...
> > Hi,
> > Below is a code from Jim Cone which provides a way of drawing arbitrary
> > names from a bag.
> > I need to adopt this code such that it can be used to establish 4 groups
> > (A,B,C and D each having 4 teams) out of 16 team. The only problem is
that I
> > need to select 4 teams out of the 16 team before I start drawing. Can
you
> > suggest solutions?
> > TIA
>  - snip -

```
 0
zoomer2331 (12)
8/21/2004 8:15:34 PM
```Thanks for the reply Jim,
Thats because I had to use someone elses PC for a while...:)

"Jim Cone" <jim.coneXXX@rcn.comXXX> wrote in message
news:#lPjFO2hEHA.356@tk2msftngp13.phx.gbl...
> Martyn,
>
> You are welcome.
>
> Re "bilingual"...I was making a joke.
> The text in the message boxes is not English.
>
> Regards,
> Jim Cone
> San Francisco, CA
>
> "Martyn" <zoomer@hotmail.com> wrote in message
news:u%2370n4zhEHA.1392@TK2MSFTNGP11.phx.gbl...
> > Hi Jim,
> > I didn't thought of the original code writer will reply back to me on
this.
> > Your code works like a charm.
> > Thanks a million.
> > What I couldn't figure out from your post is not the code but your
comment
> > on bilingualizm...:)
> > Regards
> > Martyn
>
> > "Jim Cone" <jim.coneXXX@rcn.comXXX> wrote in message
> > news:#T60VZyhEHA.556@tk2msftngp13.phx.gbl...
> > > Martyn,
> > >
> > > I never knew I was bilingual. <g>
> > > I decided the code you are trying to use wasn't very adaptable, so I
> > started to write a _
> > >   new routine and it just kept growing.
> > > I assume you use five columns on your worksheet:
> > >   the master team list and the four individual teams.
> > > The code will only work if you use the same ranges I use or if you
change
> > the code.
> > > Regards,
> > > Jim Cone
> > > San Francisco, CA
>
> - snip -

```
 0
zoomer2331 (12)
8/22/2004 7:38:21 PM
```"Martyn" <zoomer@hotmail.com> wrote in message
news:uG4LVoshEHA.3076@tk2msftngp13.phx.gbl...
> Hi,
> Below is a code from Jim Cone which provides a way of drawing arbitrary
> names from a bag.
> I need to adopt this code such that it can be used to establish 4 groups
> (A,B,C and D each having 4 teams) out of 16 team. The only problem is that
I
> need to select 4 teams out of the 16 team before I start drawing. Can you
> suggest solutions?
> TIA
> ==============================
> 'July 06, 2004 - Jim Cone
> Sub DisplayRandomNames()
>   Dim RS                As Long
>   Dim objRangeA   As Range
>   Dim objRangeB   As Range
>   Dim objRangeC   As Range
>   Dim blnNotThere As Boolean
>
> ' Establish where everything goes or comes from.
>   Set objRangeA = Worksheets(1).Range("A1:A35")
>   Set objRangeB = Worksheets(2).Range("B1:B35")
>   Set objRangeC = Worksheets(2).Range("C1:C35")
>
> ' Is there anything to work with?
>   If WorksheetFunction.CountA(objRangeA) < 35 Then
>      MsgBox "Kaynak listenin eksik oldu�u sayfa " & objRangeA.Parent.Name
&
> "  ", _
>      vbExclamation, " Maksimum 35 olmal�yd�"
>      GoTo DontCallMe
>   End If
>
>   Worksheets(2).Select
> StartOver:
> ' If objRangeC range is blank then fill
> ' with names, clear Columns 1 and 2 and exit.
>   If WorksheetFunction.CountA(objRangeC) = 0 Then
>      objRangeC.Value = objRangeA.Value
>      objRangeC.Columns.AutoFit
>      objRangeB.ClearContents
>      objRangeB.ColumnWidth = objRangeC.ColumnWidth
>      'Range("A1").ClearContents
>      Range("A1").ColumnWidth = objRangeC.ColumnWidth
>      GoTo DontCallMe
>   End If
>
> ' Keep looking until random name is found in objRangeC.
>   Do While blnNotThere = False
>      Randomize
>      RS = Int(Rnd * 35 + 1)
>     'Find RS position within objRangeC.
>      If Not IsError(Application.Match(objRangeC(RS), objRangeC, 0)) Then
>         blnNotThere = True
>         Range("A1").Value = objRangeC(RS)
>         objRangeB(WorksheetFunction.CountA(objRangeB) + 1).Value =
> objRangeC(RS)
>         objRangeC(Application.Match(objRangeC(RS), objRangeC, 0)).Delete
> shift:=xlUp
>      End If
>   Loop
>
> ' Are you bored yet?
>   If WorksheetFunction.CountA(objRangeC) = 0 Then
>      If MsgBox("��lem Tamam! .. Tekrar?  ", vbQuestion + vbYesNo, _
>         " Rastgele isim Kuras�") = vbYes Then GoTo StartOver
>   End If
>
> DontCallMe:
>   Set objRangeA = Nothing
>   Set objRangeB = Nothing
>   Set objRangeC = Nothing
> End Sub
>
>
>
>
>
>

```
 0
zoomer9799 (15)
10/3/2004 6:32:16 AM
 Reply:

Similar Artilces:

Can't see 401(k) contribiltion total
I've set up a 401(k)accont. I transfer contribiltions to this 401(k)account from each paycheck. When I go to the 401 (k) account view, it shows all the informations such as transections and the account vallue ect., EXCEPT the total contribiltion. I want to know not only what my 401(k) vallue is, but how much money I have contribilt total or over a period of time as well. I find no place to see it. Anybody can help? I'm using Money2002 and 2004 Trial Verstion. Thanks a lot! ...

How can I print a selection in Outlook 2003?
How can I print just a selection of an email in Outlook 2003? The printer driver window is different from the one that comes up in Outlook Express. Thank you! You can do this for HTML formatted messages. Highlight your text, File-> Print... and select to print only the selection -- Robert Sparnaaij [MVP-Outlook] www.howto-outlook.com Tips of the month: -What do the Outlook Icons Mean? -Create an Office 2003 CD slipstreamed with Service Pack 1 ----- "Murphie" <Murphie@discussions.microsoft.com> wrote in message news:92F39B50-B877-408A-AAA7-DF350B1D72ED@microsoft.com....

error: OBE-15502 Can only have 16000 per document
Hi, I tried to export data from oracle query builder to Excel sheet, got a error message: OBE-15502 Can only have 16000 per document Is there any way i can get more records(over 16000 or unlimited) in one sheet? thanks. -- JJ ...

Can different editions of Publisher be used together?
If my son uses Publisher 2003 on a school computer, downloads his work to a flash drive, brings it home to edit on Publisher 2007, will he then be able to take the edited work back to the school computer to be used, or will it not be compatible? Stateparent wrote: > If my son uses Publisher 2003 on a school computer, downloads his work to a > flash drive, brings it home to edit on Publisher 2007, will he then be able > to take the edited work back to the school computer to be used, or will it > not be compatible? Publisher 2003 and 2007 share a common file format, so the sc...

CRM 4.0
Is this a bug or am I doing something wrong? I'm not able to translate all labels with the “export labels for translation” function and Microsoft Excel. a. When exporting translations and adding translations in the language specific column (1033 / English in my situation) not all labels get translated. Most labels get translated, but for example the following did not: i. ‘Beheer’ --> ‘Administration’ (Name of a tab on the Task entity ii. ‘Interne gegevens’ à ‘Internal Information’ (Name of a section on many different enti...

Can't send/receive
anyone have a situation where all of sudden they can't send new messages or receive anything? I get a message when I click on "accounts" that says 'fatal error in outlook unable to complete operation" ...

Can not Customize Leads View
Hi I have tried to customize the Leads view, I tried to add a view and add some columns to it. The view is shown however I see only the name column. When I go back to the View customization, I see the columns I added. Published your customizations??? -- ---------------------- regards, Ilya Milshtein MBS Master, MBSCP, MCP Softline International www.softline.ru "alsap" wrote: > Hi I have tried to customize the Leads view, I tried to add a view and add > some columns to it. > The view is shown however I see only the name column. > When I go back to the View customi...

Can I change the "Applied Task Update Requests and Errors" view?
I really like this view in PWA 2007, but I would like to replace one column with another. Is this view customizeable? Randy -- Bad news, my friend. This view is not customizable, nor is the view shown in the Task Updates customizable (which many users wish it was). Hope this help. -- Dale A. Howard [MVP] VP of Educational Services msProjectExperts http://www.msprojectexperts.com http://www.projectserverexperts.com "We write the books on Project Server" "Randy Schmid" <RandySchmid@discussions.microsoft.com> wrote in message news:72FA34B5-...

Microsoft Exchange Server #4
I need help. Everytime a send an email in Outlook, a window pops up with "Request for data from Microsoft Exchange Server". It takes 1-2 minutes for the request to run out. If I cancel the request, I have to restart outlook and it just starts over again everytime I send an email. Does anyone have suggestions on how to prevent this from occuring? Are you using an Exchange server? What version of Outlook? What SP = level is Offiice/Outlook? --=20 Milly Staples [MVP - Outlook] Post all replies to the group to keep the discussion intact. After furious head scratching, Randy a...

Should be an easy but I can not figure it out!!
I have a text box where the user enters a date and it is assigned to variable txtDate. How to I convert that to the serial number of the date? Thanks for the help IIRC, you can use DATEVAL(String) to get the serial date. -- HTH, Barb Reinhardt "VinceW" wrote: > I have a text box where the user enters a date and it is assigned to variable > txtDate. How to I convert that to the serial number of the date? > > Thanks for the help Barb, Thanks for the quick reply, however I get the error "Sub or Function not defined" when trying...

Bulk attachments
I have a very long list of Images in a single folder that I want to attach to seperate fields in a table/form. Each record contains two images, which are named like this: W:\Foldername\Micromap Run 001 A.bmp =(1st record) W:\Foldername\Micromap Run 001 B.bmp =(1st record) W:\Foldername\Micromap Run 002 A.bmp =(2nd record) W:\Foldername\Micromap Run 002 B.bmp =(2nd record) W:\Foldername\Micromap Run 003 A.bmp =(3rd record) W:\Foldername\Micromap Run 003 B.bmp =(3rd record) and so on... Image A goes to field A Image B goes to field B Is there a way of doing this au...

Naming A Grouping
Is it possible to title a grouping so people know what they are expanding and collapsing? No....but that's not a bad idea. An alternative is to put text in the cell next to the [+] or [-] button like: <-Click here to expand/collapse myGroup Does that help? *********** Regards, Ron XL2002, WinXP-Pro "Nora" wrote: > Is it possible to title a grouping so people know what they are expanding and > collapsing? ...

No Spam !!!! test 4 microsoft-news.for-um.de
Only a test fo http://microsoft-news.for-um.de thanks for your understandin admin microsoft-news.for-um.d -- admi ----------------------------------------------------------------------- admin's Profile: http://microsoft-news.for-um.de/member.php?userid= View this thread: http://microsoft-news.for-um.de/showthread.php?t=555 Powered by: http://microsoft-news.for-um.de | http://ibm-news.for-um.de | http://www.for-um.de | http://www.uzenet.or ...

can't uninstall exchange from cluster nodes
hi our client has several exchange clusters, and one of them is being retired. we have removed the exchange resources and the EVS and the server no longer appears in the organization and everything else there seems to be ok. we can't seem to uninstall exchange from either of the nodes. setup will start saying it's loading components then terminates with no error; happens on both nodes. both nodes are exchange 2003 sp1 on windows 2003. i did find the setup log; here is what it says, hope someone can shed some light on this (company info replaced with < >): [19:47:23] *...

Can't delete email #2
I'm am trying to help a friend who is using Outlook Express on W98, I cannot delete any messages from her in box. She has over 500 in there, which may be part of the problem. Any suggestions? Desperate! Mark Mark Ryan <m.ryan@earthlink.com> wrote: > I'm am trying to help a friend who is using Outlook Express > on W98, I cannot delete any messages from her in box. She > has over 500 in there, which may be part of the problem. > Any suggestions? The first suggestion is to ask in an Outlok Express newsgroup. The second suggestion is to delete Deleted Items.dbx and ...

Can Not Reply To Emails
Running Windows 7 Professional with latest version of WLM. I get email messages I can not reply to. The reply button is grayed out. For now I am forwarding them to my WinXP computer and then replying from that computer with OE6. Anybody have any ideas? -- <Bill> Brought to you from Anchorage, Alaska. The most obvious reason for not having an active Reply button is not having a mail account set up. --=20 Gary VanderMolen, Microsoft MVP (Mail) http://mvp.support.microsoft.com/default.aspx/profile/vandermolen "Bill Bradshaw" <bradshaw@gci.net>...

How can I rename a database table?
Hi I am working on a project that uses the MFC CDatabase and CRecordset classes to handle its interfacing with an Access database. It is necessary for the software to rename a table within existing user databases to ensure that they are valid for use with the new version of the software. As a result of my limited database and MFC knowledge I am having difficulty finding a way of renaming the table. I have tried using the following: try { theDataBase.ExecuteSQL( "RENAME oldTableName TO newTableName"); } catch( CDBException* e) { e->m_strError; } However, it results in th...

how can I restore unsaved changes in excel #2
...

Can (or how can) I do this
Hello, My Access application tracks an employee's progress through a process similar to hiring. There are 5 steps in the process. I track 4 of the steps by counting the number of times a value appears in a date field for that step. The count is then displayed and used in a calculation. The 5th step is more complicated. The 5th step needs to determine if the employee has verified that he can access all the applications that he should have access to. My process tracking table has the first 4 dates. The application access info comes from a different table. This process trackin...

Differentiate row based on date grouping
I created a form with data sorting by date field. Some date may have more than 1 row. Samples are as follows :- Date Event 7/22/2007 AAAA 8/22/2007 AAAA 8/22/2007 BBBB 9/22/2007 CCCC Is it possible to have the Form show alternate color for row 7/22/2007, 8/22/2007 (2 rows with same color), 9/22/2007 ? Thanks in advance for your help. ...

Can Not Connect to Exchange Server after Mailbox Move
I have 2 exchange servers. While logged into the domain, and at the location, I can log into the email system just fine. While remote VPN in, I can not access the server. I can ping the server, I can see all shares, and I can even access the printer and print from the exchange server. But I can not get to it with email. Any Ideas? Oh.. both exchange 5.5, both in the same site. Exchange Admin shows both sites just fine. is there a firewall with rules configured, in between the users vpn connection and the internal network? kmelillo@gmail.com wrote: > Oh.. both exchange 5.5, bot...

Can not archive
I get the message "Error while archiving folder "Deleted Items" in store "mailbox-user name." Some items could not be copied. They were either moved or deleted, or access was denied. This only happend recently and only occurs with the deleted items. I can archive send and the inbox without a problem. Any suggestions? Thanks ...

Deleting worksheets in a macro
I have a macro that at the end there are 2 work sheets that I delete. When the macro runs, it stops and asks if I really want to delete the worksheets. Is there something I can add so that it will not ask me if I want to delete? Here is what I have. Sheets("Sheet3").Select ActiveWindow.SelectedSheets.Delete Sheets("Sheet2").Select ActiveWindow.SelectedSheets.Delete Thanks Donna Have a look in the below link for details and I hope that you will get some idea. http://www.microsoft.com/office/community/en-us/default.mspx?&query=Ms-Exl-...

Scheduling a macro in outlook 2000
I am trying to schedule a macro to run everyday at a given time, which creates a new email, attaches an excel file and sends it via the internet to another PC, so that there is no input required from a user, i.e. it happens automatically. I can create the email, attach the file and send it, but I cannot schedule it within Outlook. Also when I run the code from Excel, where I can schedule it, only a shortcut is attached to the email. I am using Outlook 2000 (no service release). Has anyone done this before? Can you help? Regards Brian See if the information on the following page ...

can'not set or connect to an email account
This is a multi-part message in MIME format. ------=_NextPart_000_0010_01CAAC2C.BBDF6A00 Content-Type: multipart/alternative; boundary="----=_NextPart_001_0011_01CAAC2C.BBDF9110" ------=_NextPart_001_0011_01CAAC2C.BBDF9110 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable I am triying to set an email account.I am vodafone mobile customer.Some = settings bloking my access to email service.I am not a professinal = computer user,following the the instractions but no luck.Can you help = me? Thank you. ------=_Nex...