Hi,
Can any one have a look at the following and see if I am missing anything obvious
When i run the user form I get no errors but no text is entered to relevant cells
Also could the same
Please Login or Register to view this content.be used for a combo box?Please Login or Register to view this content.
Many Thanks
have you tried adding to the uf qualifier?
the code works fine for me:Please Login or Register to view this content.
Are you sure your column A is empty below the last entered data?
Because otherwise you are entering data somewhere down your worksheet.
Also Range("A65536") is oldskool, use Range("A" & wks.Rows.Count) instead.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
Just tried that and still no joy
I have just checked and Column A is empty and I have amended the code but still not working
If you're not getting an error, then the data is going somewhere. Are you sure you're looking at the correct sheet? Sheet1 is a codename and is not necessarily the sheet with Sheet1 as its tab caption.
Everyone who confuses correlation and causation ends up dead.
Thank you for your help all solved
I ran it with SHEET1 and I had another word as the caption. apparently that matters not.Originally Posted by rorya
Me again!
I need to stop users entering duplicate information
How can I change the code so that the User Form checks if the Value already exists in each Column and if it does display a msg box and not allow them to enter a duplicate?
here is my existing code:
Many ThanksPlease Login or Register to view this content.
Do you mean it should check all the columns and not allow the entry at all if any of them are duplicated, or check each column and only disallow each column if it's a duplicate?
It should check all columns please and not allow entry if any are duplicated
Thanks
Just FYI the code you posted would never run, as you have put several subroutines inside another one.
Try this:
You might want to add a message in an Else clause for each If just to let the user know why the data isn't being added!Please Login or Register to view this content.
Could you please give an example of the position of the else clause?
You would have one before each End If line, so that you can specify which value is a duplicate.
Hi,
Just tried that but it only returns the last msg box regardless of the duplicate
Any ideas?Please Login or Register to view this content.
How about this.
Please Login or Register to view this content.
How about uploading your workbook ??????????
Sixteen posts and barely one step forward.
torachan.
Try this:
Private Sub cmdAddTooling_Click()
Dim AddNew As Range
Set AddNew = [Sheet1!A1].End(xlDown)
AddNew(2, 1) = "txtPartNumber"
AddNew(2, 2) = "txtTool"
AddNew(2, 3) = "txtDrawing"
AddNew(2, 4) = "txtNumber"
End Sub
I have got this working now however I didn't explain what I needed to achieve very well:
If a duplicate is found in the columns then I would like an error message as well as not being able to enter any non duplicated information into the row
Also I would like the default value in the TCNNumber input box to default to +1 of the the highest number in that column
Thanks for all your help
Did you try the code provided in Post#16?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks