Monday, November 23, 2015

Updated Userform

Updated Advanced Userform Example

            I made some changes in the UserForm codes that  I've done it before :

-  Copying the filtered data into Page 2
While entering data if there are duplicate values in a column ,can be warning with msgbox.
- The listbox  has got 12 columns.

It's other features :

- Data Adding

- Data Delition

- Data Update

- Searching with The Userform

- Progress Bar Feature

- Scrolling the Listbox with Spin Buttons

- Next ,Previous ,First ,Last Recording Buttons


29 comments:

  1. How to edit above sample file. i need to update my own record with new project

    ReplyDelete
    Replies
    1. You can easily apply to your own projects. If the quantity of column is different ,some changes may need to make .

      Delete
    2. Sir Can you give a sample of that Template. please sir i want that Template to my Internship Task..

      Delete
  2. i am not able to download duo to Link Expired
    can you mail me

    ReplyDelete
    Replies
    1. Links are correct.
      http://adf.ly/1SDAdD or https://adf.ly/1SDAdD

      Delete
    2. Private Sub ListBox1_Click()
      Dim say As Long, a As Byte

      For a = 0 To 11
      Controls("textbox" & a + 1) = ListBox1.column(a)
      Next

      Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
      say = ActiveCell.row
      Sheets("Data").Range("A" & say & ":L" & say).Select
      TextBox15 = ListBox1.ListIndex + 1
      End Sub


      Hi, I want to add "combobox" and "dtpicker" in control box along with "textbox". How to do this?

      Delete
  3. Private Sub ListBox1_Click()
    Dim say As Long, a As Byte

    For a = 0 To 11
    Controls("textbox" & a + 1) = ListBox1.column(a)
    Next

    Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
    say = ActiveCell.row
    Sheets("Data").Range("A" & say & ":L" & say).Select
    TextBox15 = ListBox1.ListIndex + 1
    End Sub


    Hi, I want to add "combobox" and "dtpicker" in control box along with "textbox". How to do this?

    ReplyDelete
  4. After Adding ComboBox It gives me error on this line:

    Controls("textbox" & a + 1) = ListBox1.column(a)

    please help me

    ReplyDelete
    Replies
    1. I have been getting an error on that line for 2 days now and i cant figure out what i need to change for that controls to work what is "textbox" & a + 1 ????

      Delete
    2. can you please email me at jeanesky@yahoo.com or call me 347-481-1146 I need help please

      Delete
  5. Hi,
    This is a great project...I am creating something similar and I want to bring in data from Multiple worksheet into Listbox1. How do i go about doing this? I could combine data into new sheet and have the listbox1 get data from there but, I want to avoid having additional sheet.
    Thanks for your help.

    ReplyDelete
  6. Hi,
    Can you please help, I like the advanced userform, however when Searching with The Userform it only finds first word in a column and ignors the rest, I want to search all word in row across column, can this be done, Thank you

    ReplyDelete
  7. Hi,
    first of all thanks you very much,
    i dont understand whats its means --> [a2].select

    Private Sub CommandButton1_Click()
    Dim LastRow As Long
    [a2].Select
    LastRow = ActiveCell.End(xlDown).row
    Sheets("SelectedData").Range("A2:L" & LastRow).Clear
    End Sub

    [a2].select -->> SelectedData.select????????

    ReplyDelete
    Replies
    1. A2 cell are selected with this code : [a2].select
      Or , it can be by this way: Range("A2").Select

      Delete
    2. Hi Mr kadir,

      Appreciate if you could explain me what does "End(3).row" from this code ->Sheets("Data").Range("a2:l" & [a65536].End(3).row).Value ?

      Delete
    3. Hi,
      It is to find the last filled cell in column.

      Delete
  8. Jacquelyn (Canada)August 4, 2016 at 2:59 AM

    Hello,

    Your file has been so helpful. Thank you very much for sharing!

    I have the same question as Akshay above. How can I have several text boxes AND combo boxes to this and make it work?

    Private Sub ListBox1_Click()
    Dim say As Long, a As Byte

    For a = 0 To 11
    Controls("textbox" & a + 1) = ListBox1.column(a)
    Next

    Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
    say = ActiveCell.row
    Sheets("Data").Range("A" & say & ":L" & say).Select
    TextBox15 = ListBox1.ListIndex + 1
    End Sub


    After Adding ComboBoxes, I get an error on this line too:

    Controls("textbox" & a + 1) = ListBox1.column(a)


    Thank you very, very much for your help.

    ReplyDelete
    Replies
    1. For a = 0 To 11
      Controls("textbox" & a + 1) = ListBox1.column(a)
      Next

      The above codes is for data transferr (to fill text boxes) to the text boxes when clicked on the listbox.
      which will be filled the added combobox with items ? You need add to codes.

      Delete
  9. HI,
    Id it possible to use this new function youi created "Searching A Value Across An Entire Workbook With Userform" in this Userform? I need to create multiple Sheets and send data to them but, I can not update the entry later.

    Thank you very much for your help!

    ReplyDelete
    Replies
    1. I have 33 division that i get paper work for and need to send to multiple people for review and sometimes i have revisions of the same documents (101.1r. 101.2r...). Just need to keep them all separate. Hope this helps!

      Thanks You.

      Delete
  10. my quantity of column is 15. I had added accordingly.

    But Change, Delete, Scrolling the Listbox with Spin Buttons are not working. I can't figure out why.

    When I click on the listbox, the listbox item are not displaying in textboxes. Selected Data also cannot copy to next page.

    This userform is absolute match for my project.
    Hope I could trouble shoot and pass to my colleague.

    Thank you and appreciate very much for your help.

    ReplyDelete
    Replies
    1. This comment has been removed by the author.

      Delete
    2. I made a template you wanted .
      Take a look at here :
      New Updated Userform : 15 Column & More Faster Search Method

      https://merkez-ihayat.blogspot.com/2016/11/new-updated-userform-15-column-more.html

      Delete
  11. Very nice Userform, very nicely done.
    I am using it already but I am trying to change 2 textboxes in exchange for comboboxes and I want to select a value in combobox1 and populate combobox2 based on the combobox1 selection, I have another userform that already does that but I haven't been able to figure out what parts of the code are needed to get this userform to do the same.
    I don't know how to put codes together I am just a copy and paste type of guy :)
    all help will be appreciated.

    ReplyDelete
  12. Hi I'm Trying to use this Code
    Private Sub ListBox1_Click()
    Dim say As Long, a As Byte

    For a = 0 To 11
    Controls("textbox" & a + 1) = ListBox1.column(a)
    Next

    Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
    say = ActiveCell.row
    Sheets("Data").Range("A" & say & ":L" & say).Select
    TextBox15 = ListBox1.ListIndex + 1
    End Sub

    To let my ListBox selection also select the Sheet row like the sample on this UserForm, However I keep getting an error from Excel on this line

    Controls("textbox" & a + 1) = ListBox1.column(a)

    what is "textbox" and why cant I find anything that relates to it, can anyone tell me how to fix this.

    ReplyDelete
    Replies
    1. For a = 0 To 11
      Controls("textbox" & a + 1) = ListBox1.column(a)
      Next

      The above codes(loop) are for to fill text boxes (TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox5,TextBox6,TextBox7,TextBox8,TextBox9,TextBox10,TextBox11) when clicked on the listbox.
      What are the names of the text boxes in your example? (TextBox1,TextBox2,TextBox3 etc.)

      Delete
  13. My listbox shows cells from Sheet2 previously submitted A2:F2 first row and shows every row after, I don't want the Form To populate my Texboxes because I have new info on them waiting to be submitted, I only want to be able to see the info for reference, now the only thing I want to do is if I select a row in list for it to select the row on the sheet and only populate the text from column G into another listbox, like I said I can see A:F on first listbox that holds all small entries, but the info on G is comments, so to big to fit I want it to select the row that I click on ex: Row 5 is selected on Listbox1 it selects A5:F5 on Sheet2 and Sends Comments From G5 to ListBox2

    ReplyDelete