Open userform2 and register if the user is opening the workbook for the first time.... *SOLVED*

[raghuprabhu]

I have a work book with two worksheets. One is to input data "Sheet1" and other one to hold the details of the users "Sheet2". It has two forms "Userform1" and "Userform2"

When the user opens the workbook,

If the user is not in the "Sheet2" then
Open Userform2, input the users details
Save and close and open Userform1
Else
open Userform1
End if


Ps the form "Userform1" opens automatically. Click "Close" and then go from there..

I am trying to sort this and was finding it a bit tricky.

Thank you

Kind regards

Raghu

[raghuprabhu]

I have been able to sort this one thank you

Private Sub Workbook_Open()
On Error GoTo myErrorHandler:

Dim User_Name As String
Dim myRange As Range
Dim yesNo As Variant

Set myRange = Sheet2.Range("A:A")

User_Name = Environ("username")

yesNo = Application.WorksheetFunction.VLookup(User_Name, myRange, 1, False)

myErrorHandler:
    If Err.Number = 1004 Then
        UserForm2.Show
    Else
        UserForm1.Show
    End If
End Sub

[DocAElstein]

Thanks for telling us that you have your problem Solved
Thanks for adding your solution.


( Please also remember to tell us if you post your questions in other Forums:
Cross Post: https://www.excelforum.com/excel-pro...ml#post5089599
http://www.excelfox.com/forum/showth...-Cross-Posters )