How i can encode a textbox on my userform to locate and bring all the data in the same row to the respective fields in the userform. I am working in excel 2003 vba. If you need more imformation reply me.
How i can encode a textbox on my userform to locate and bring all the data in the same row to the respective fields in the userform. I am working in excel 2003 vba. If you need more imformation reply me.
You need to use the VBA .Find function to find the row, then the rest is simple.
look at the Databaseform example here
http://www.excel-it.com/vba_examples.htm
Hope that helps.
RoyUK
--------
For Excel Tips & Solutions, free examples and tutorials why not check out my web site
Free DataBaseForm example
hi i have some question of how to adapt this to my form here is the code and image so , you that understand better can help me please, only left find by administer personel:
first button = CommandButton1
Previous button = CommandButton2
Next button = CommandButton3
Last button = CommandButton4
save button = CommandButton5
cancel button = CommandButton6
add = CommandButton7
Please Login or Register to view this content.
Last edited by castellano; 06-02-2009 at 01:31 PM.
To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.
If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.
Doing this will ensure you get the result you need!
Sorry but what is dummy workbook .i post the worksheet, i try the database form example but i receive error and highligth
Set rng = rng.Cells.SpecialCells(xlCellTypeVisible) and .List(.ListCount - 1, 10) = c.Offset(0, 10).Text, this in Sub FindAll(). Sorry for my english.
Last edited by castellano; 06-02-2009 at 05:05 PM.
closing................
Last edited by castellano; 06-15-2009 at 01:35 PM.
When you find a name your code moves the entries on the form, so the name is not displayed in ADM_PERSONNEL as expected.
Rn Debug and you will find an unnecessary End If
i correct the end if . but the lisbox is clear when i try to use the find button and again moves the entries on the form. Receive an error message, using the debug button send me to the line 152, col 60 "Set rng = rng.Cells.SpecialCells(xlCellTypeVisible)". What can be the solution to put the userform functional
Can you view my project again and help me create a link between the find button and the listbox so that i can chose what record of the adm personnel to updated.
Last edited by castellano; 06-15-2009 at 01:33 PM.
......................
Last edited by castellano; 06-15-2009 at 01:33 PM.
....................
Last edited by castellano; 06-12-2009 at 03:10 PM.
Thank that example that you give me save my live all this is closing...........
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks