user form not work

**jay11** · 03-17-2010, 02:34 PM

hi
user form having error also not work with protected sheet how can from change from protected to unprotected automatically and once the data added user from can protect the sheet automatically pl help to code this will highly appreciated thanks.

**Richard Buttrey** · 03-17-2010, 02:55 PM

Hi,

I've not checked all your code but the first bit that crashes is the code in the click event of the Enter Data button. This refers to sheets called 'Historical Data" and "Trade Entry", neither of which are sheet names.

HTH

**jay11** · 03-17-2010, 03:41 PM

hi Richard Buttrey
i am new to VB coding so pl bear with me
i change the same as u suggested still not working it give the error msg as"run time error 91"
object variable or with block variable not set thanks for help

**Richard Buttrey** · 03-17-2010, 04:48 PM

Hi,

Can you confirm exactly what it is you have changed?
Better still upload your revised workbook so we can take a look.

Rgds

**jay11** · 03-17-2010, 04:52 PM

here is the new wb which give error msg

**BigBas** · 03-17-2010, 05:33 PM

I took a quick look at your code, and I crashed on this line:

Code:

R = IIf(RngEnd.Row < Rng.Row, Rng.Row, RngEnd.Row + 1)

Since you have defined the variable "R" as a Range, you have to precede it with Set.

The code should read

Code:

Set R = IIf(RngEnd.Row < Rng.Row, Rng.Row, RngEnd.Row + 1)

Also, the fomula in the same bit of code will return a number, not a cell range. So, there will be a mismatch. Why not walk us through what you want to do and we can try to help better.

**jay11** · 03-17-2010, 06:16 PM

hi
actual user form have to take the data from the "Brought sheet" and add the newly added from data and save in the "records"W sheet .but before adding the data to "Record "W Sheet
it must check for duplicate data in "Record" W sheet if it find the same "ticker"symbol in "Record sheet" it will give the msg."Ticker already exist in records" then if still user want to add the data .program.should allow the user to add data by giving the msg."anyway Add the Ticker to Records" Yes or No option button.
otherwise code work without the cheeking the duplicate Ticker here i am attaching the WorkBook which work.but i want to add the code to check the duplicate entry.i hope i explain the way u can get what i want to do.