Tuesday, July 7, 2015

New Userform Example



Really it's many 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


24 comments:

  1. I shall b very thankful to u if u make it 30 column

    ReplyDelete
  2. Hello,
    I am trying to add button with popup of list and it works but, how do i tell to insert my selection to correct text box? The list extensive to create pull down list.

    Thanks for your help in advance.
    Nimesh

    ReplyDelete
  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. Link is not work Please update again in other Side

    ReplyDelete
    Replies
    1. Links are correct :
      http://adf.ly/1S8y8n OR https://adf.ly/1S8y8n

      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
  5. 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
  6. Hi, I wanted to know if there is a way to send data from listbox after you filter to a sheet?

    ReplyDelete
    Replies
    1. You can review this userform example :
      http://merkez-ihayat.blogspot.com.tr/2015/11/updated-userform.html

      Delete
    2. Got it thank you!
      One More question, How do I get ListBox1 to show data from multiple sheets?

      Delete
  7. This comment has been removed by the author.

    ReplyDelete
  8. Hello,

    I have the same question as Akshay. Is there a way to do combo boxes and text boxes? I got the same error message as Akshay.

    Any help would be very, very much appreciated.

    Kind regards,
    Jacquie

    ReplyDelete
  9. Links are broken... Unable to download..

    ReplyDelete
    Replies
    1. No , links are valid. I using link shortening service and pop ads in links. You can download example files from Dropbox without signing.

      Delete
  10. Sir, I need the New Userform Example VBA Code. Can u please send to my email or dropbox account.
    Email : ylnvprasadrao5@gmail.com

    ReplyDelete
    Replies
    1. Example workbook and it's codes can be downloaded here : http://adf.ly/1S8y8n

      Delete
  11. Your google drive download link is down

    ReplyDelete
  12. This comment has been removed by the author.

    ReplyDelete
  13. This comment has been removed by the author.

    ReplyDelete
  14. thank you so much for adding copy to page

    i want to Reflects columns in list box to become from tight to left To fit with the Arabic language؟

    ReplyDelete
  15. Hi Akshay!

    Thanks a lot for your Template.

    I am trying to upgrade the search function as follows: i would like to find a Word (string) inside a cell. right now the codes only looks for the first word in the cell. how would you change the logic to search the word inside the whole cell ?

    thanks for your reply.

    ReplyDelete
  16. Hi I would like to incluide more text to the excel listbox, but only va read information till column L. Hoiw can I write information in Column M, N, and to see in VBA the info in the Listbox?.
    Thank you.

    ReplyDelete
  17. Hello there,
    First let me thank you for this great webpage with full of useful VBA temples.
    I have been working on my project which is pretty close to your temple, except I have added 4 search boxes, and I'm trying to narrow down my search function which included option box and check box as well. I would be greatly appreciated if you can help me out with this issue.

    ReplyDelete
  18. Excelent Userform, very nicely done.
    I'm trying to use your code but my form has more than 50 columns.
    What is the recommendation?

    Is there any code so we can increase the number of columns according to our need?

    It may even get a little slow but this will help me a lot.

    All help will be appreciated.

    ReplyDelete