Results 1 to 3 of 3
  1. #1
    Join Date
    Mar 2013
    Posts
    3

    Unanswered: VBA Excel - Email verification / Registration form

    i am created a registration form
    i am very new to VBA & i cant seem to get this to validate the any emails in the cells can
    -> any1 assist or tell me what i am doing wrong?? or provide any assistance ???


    Private Sub CommandButton_SIGNIN_Click()

    Dim strEmail As String
    Dim Email As Variant
    strEmail = TextBox_Members_Email.Text

    Email = Application.VLookup(TextBox_Members_Email.Text, Worksheets("Registration").Range("H1:H500"), 2, False)

    If IsError(Email) = False Then
    If Application.VLookup(TextBox_Members_Email.Text, Worksheets("Registration").Range("H1:H500"), 2, True) Then

    MsgBox "login Successful!"
    Unload SPOTuserLOGIN
    End If

    Else
    MsgBox "incorrect"


    If Me.TextBox_Members_Email.Value = "" Then
    MsgBox "Please enter your SPOT ID.", vbExclamation, "Malvern S.P.O.T. ID Verification"
    Me.TextBox_Members_Email.SetFocus
    End If

    End If
    Exit Sub

    End Sub
    Attached Files Attached Files
    Last edited by originalmp; 03-09-13 at 01:59.

  2. #2
    Join Date
    Mar 2013
    Posts
    3
    i have made some progress on this script but still cant get it to confirm fund object

    here is my new code

    ------------------------------

    Private Sub CommandButton_SIGNIN_Click()


    Dim email As String
    Dim FoundRange As Range

    email = TextBox_Members_Email.Value
    Worksheets("Registration").Activate

    Set FoundRange = Sheets("Registration").Cells.Find(what:=email, LookIn:=xlFormulas, lookat:=xlWhole)

    If FoundRange Is Nothing Then
    TextBox_Members_Email.Text = "not found"
    MsgBox "INCORRECT.", vbExclamation, "Malvern S.P.O.T. ID Verification"
    End If


    If FoundRange Is Then
    MsgBox "login Successful!"
    Unload Me
    End If



    If Me.TextBox_Members_Email.Value = "" Then
    MsgBox "Please enter your SPOT ID.", vbExclamation, "Malvern S.P.O.T. ID Verification"
    Me.TextBox_Members_Email.SetFocus
    End If


    Exit Sub
    Last edited by originalmp; 03-09-13 at 16:30.

  3. #3
    Join Date
    Mar 2013
    Posts
    3
    SOLVED!!
    VBA Excel - Email verification / Registration form - Page 2

    file:
    http://originalmp.com/alp-Registrati...rch10-2013.zip

    Very SORRY to the Moderator i will proceed with more caution in future... New to this!!
    Last edited by originalmp; 03-10-13 at 18:14.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •