VB Password Issue

[gmazza76]

Afternoon,

I have been having issues with loading a password into a userform. And i am wondering where below i am asking the VB to match a value in combobox1 if it can be more than 1 option.

With this i mean i have 30 managers who have 3 people working issues they have. Is there anyway i can write the following

If UserForm2.ComboBox1 = "Manager1", "Manager2", "Manager 3" etc..
If it doesnt match the first set it looks at the next set of names. I think i may need to create a loop for the 3 sets but i am unsure of how to do this.

All help appreciated
Cheers

Dim gotcha As Boolean
Dim iRow As Long
Dim ws As Worksheet
Dim lRow As Integer
Dim Pword
Dim cell As Range
Dim I As Long
Set myBook = Workbooks.Open(Filename:="C:\Users\MAZZA\Documents\Gavin\Car Park\FYvData.xls")     'Home
  
    Set ws = myBook.Worksheets("Sheet1")
    If UserForm2.ComboBox1 = "Laura Haynes" Then
        Pword = InputBox("Please enter password")
        If Pword = "ticket" Then
            ActiveWorkbook.Sheets("Sheet1").Activate
        Else
            MsgBox "Please contact your administrator for a password"
            myBook.Close True
            Exit Sub
        End If
    End If
    Unload Me

 

[Norie]

Gavin

I'm just about to shoot of but I what I think you want to do should be straightforward and require no looping.

I don't understand the bit about deleting the row, which row exactly?

Also if all you want to do is delete a row of data why do you need to populate a userform with the values from the row?

 

[gmazza76]

Afternoon,

I need to delete the line of data as follows.

It is pulled from "sheet1" to fill the userform that i complete. when it is completed via the complete button it then uses a specific cell to identify which department it should be registered under. So when the next person comes to complete complete any other problems for that manager it would re load an old enquiry if it wasnt deleted.

ie. "Sheet1" New enquiry.
When completed it would then be raised as complete and registered under another sheet within the same workbook. "Department 1", "Derpartment 2" etc..

The only way i can think of making things simple would be to delete the orginal line out of "Sheet1".

Cheers
Gavin

 

[Norie]

Could you not just add some sort of flag to the row/record to indicate it's completed?

Then when you come to populate the userform you can skip the completed records.

Anyway, I'll send you a PM later if you want me to take a look at the file(s).

 

[gmazza76]

Please i would be grateful.

The reason i want to delete the record is also as i will be running another userform telling people what is open etc..
I was thinking of running this with a listbox using data off "Sheet1" probably using countifs off the the sheet.

Gavin