Hi there,
I created a working userform but I can't figure out why the inserted information ends up underneath the table instead of ending up in the highest free row like I meant to.
I included the workbook for a better view of things.
Hope you can help
Opzet administratie (versie 1).xlsm
I'm not sure if I understood correctly, however, I believe that this linewill take you to the first free row below the table. Try this instead:
Please Login or Register to view this content.where 'LastRow' should correspond to the first free row in your table.Please Login or Register to view this content.
You can say "THANK YOU" for help received by clicking the Star symbol at the bottom left of the helper's post.
Practice makes perfect. I'm very far from perfect so I'm still practising.
It doesn't really work. Now it gives another error. 'With isn't set'.
Here is what I did.
Private Sub cmdVoegToe_Click()
Dim ws As Worksheet
Dim addto As Range
Dim LastRow As Long
Set ws = Blad2
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
BobdeB,
The problem with your original code is that the cells with the table in them don't get recognized as blank. Im not sure exactly what is wrong with Mumps1 code, since i don't know what range of cells are being searched, but possibly column A. Since there are no populated cells in that column, it returns an error. Leaving all your dim as it is, and leaving the ws = Blad2, try these 2 lines:
That includes the header in column B for the search, and then takes the next line after the last line with data. Will this work? Veel Geluk!Please Login or Register to view this content.
Please help by:
Marking threads as closed once your issue is resolved. How? The Thread Tools at the top
Any reputation (*) points appreciated. Not just by me, but by all those helping, so if you found someone's input useful, please take a second to click the * at the bottom left to let them know
There are 10 kinds of people in this world... those who understand binary, and those who don't.
Why do you have all those blank rows in the table?
If you didn't you could add directly to the table.
If posting code please use code tags, see here.
Opzet administratie (versie 1).xlsm
Thank you guys for your help so far. The last solution brought up another problem. Error 91. I included the file for you guys to look at. I have the feeling i'm so close to a working form but I am really new at this, so it's hard to figure out on my own. Therefor, in advance, you guys rock.
Can anyone help me with this?
Last edited by BobdeB; 03-25-2014 at 07:25 AM.
BobdeB, This line of code:
does not specify the worksheet. add "ws." before Range, like this:Please Login or Register to view this content.
Please Login or Register to view this content.
I guess this issue is resolved??
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks