Run-Time Error 13

[SonaKol]

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

[Paul_Hossler]

At a guess, change the XXXXXXXXXXXXX row to column A



'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

[Rob342]

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

[ashleyuk1984]

Just hack the password :) It's easy.

Under 'userform_activate' you have:

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

I guess you want this instead.

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'

[Paul_Hossler]

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