Combining Codes

[wadiok]

Do I use a command button or how what can I use to execute all these codes I place them in different modules without sucession?

Private Const NO_ERROR = 0
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_NO_NET_BAD_PATH = 1203&
 
Function WinUsername() As String
Dim strBuf As String, IngUser As Long, strUn As String
strBuf = Space$(255)
IngUser = WNetGetUSer("", strBuf, 255)
If IngUser = NO_ERROR Then
strUn = Left(strBuf, InStr(strBuf, vbNullChar) - 1)
WinUsename = strUn
Else
WinUsername = "error:" & IngUser
End If
End Function
 
Sub CheckUserRights()
Dim UserName As String
UserName = WinUsername
Select Case UserName
Case "Adminstrator"
MsgBox "Full Rights"
Case "Guest"
MsgBox "You Cannot Make Changes"
Case Else
MsgBox "Limited Rights:"
End Select
End Sub

'Show date and time when last saved
 
Function LastSaved(FullPath As String) As Date
LastSaved = FileDateTime(FullPath)
End Function
 
Function DateTime()
DateTime = Now
End Function

'Workbook Name
 
Function MyFullName() As String
MyFullName = ThisWorkbook.FullName
End Function

 

[Joe4]

Not really sure what you are asking here.

I only see one Sub Procedure, and the rest are Functions. The only one you would call with a Command Button is your Sub Procedure. Functions are called from within Sub Procedures, or referenced directly on your worksheet like native Excel functions.

 

[jc.021286]

Copy and paste into the same module. One after another. You'll see clear breaks for them with the Sub ___()

at the end of a code, simply use the call function

sub a()
...
Call b
end sub

sub b()
...
Call c
End sub
Sub c()
...
End sub

that or once you do that, change everything to private subs and create a simple consolidated Macro

Sub Consolidated_Macro()
Call Macro1
Call Macro2
if cells("B50") > 0 then call Macro 4
etc.
etc.

This would essentially loop through all macros and also allow you to make decision based events, such as the if statement to see if you want/need a macro to run.

jc

 

[jc.021286]

woops, did not realize that you only have 1 sub and you created 2 functions...

Sorry, I'm with the other poster, I don't understand what you are trying to accomplish now...

jc