Run-Time Error 13

Hi All,

I am getting "Run-Time error 13" error when i click on "Open Form" button. Any one can help me how to resolve the issue

At a guess, change the XXXXXXXXXXXXX row to column A

Code:

---

'find last data row from database
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row      ' Column A

'    iRow = ws.Cells(Rows.Count, 3).End(xlUp).Row XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


---

Cannot see vba code Whats the password ?????
If we can't see the code how do you expect it to get solved ?

Just hack the password :) It's easy.

Under 'userform_activate' you have:

Code:

---

Me.txtSlNo2.Value = ws.Cells(iRow, 1).Value + 1

---

I guess you want this instead.

Code:

---

Me.txtSlNo2.Value = ws.Cells(iRow, 1 + 1).Value

---

Changing this value allows the userform to open, and doesn't result in 'Run-Time Error 13'

Quote:

---

Originally Posted by ashleyuk1984

Just hack the password :) It's easy.

---

We don't talk about hacking and cracking passwords here

http://www.vbaexpress.com/forum/faq.php?faq=psting_faq_item#faq_hack_faq_item