strange Unspecified Error on userform when run 2007 version

[Abdo]

Hi Guys,
I'm not sure why shows Unspecified Error when try run the form on 2007 version and when close the file and run gain the error doesn't show , but shows from time another time !
when debug the error will stop on UserForm1.Show and try use F8 it keep in this line UserForm1.Show
I'm not sure what's the problem!
here is the code

Private Sub CommandButton1_Click()
Dim LR As Long
Dim ws As Worksheet

Set ws = Sheets("GOODS")
With ws
    ' determine last used cell in column B
    LR = .Range("B" & .Rows.Count).End(xlUp).Row
[B]    
    .[/B]Rows(LR - 1).Insert xlShiftDown, xlFormatFromLeftOrAbove
    .Rows(LR - 1).Value = .Rows(LR).Value
    ' copy UserForm values to last row
    .Range("B" & LR) = Date
    .Range("C" & LR) = TextBox1.Text
    .Range("D" & LR) = TextBox2.Text
    .Range("E" & LR) = TextBox3.Text
    .Range("F" & LR) = TextBox4.Text
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""

End Sub

any opinions guys?

 

[rabsofty]

based on what i see you have a and in your code

line should be

.Rows(LR - 1).Insert xlShiftDown, xlFormatFromLeftOrAbove

 

[rabsofty]

i dont kn what happened in previous message but it should be the square bracket B and square bracket /B removed

 

[NdNoviceHlp]

#rabsofty I think the B etc has to do with formatting posts on the forum. #Abdo, I don't see any Userform1>show lines of code in your post? I would suggest that you specify your textboxes (ie. Userform1.TextBox1.Text) but I'm guessing your real problem for the crash is in either the activation and/or initialization userform event code(s). HTH. Dave

 

[Abdo]

i dont kn what happened in previous message but it should be the square bracket B and square bracket /B removed

no no ! & sorry about it , I no know how add the square bracket B and square bracket /B when I use vba icon !
it's not existed in my code .

 

[Abdo]

I don't see any Userform1>show lines of code in your post?

because the button is inside the sheet when show the userfrom .I thought is not important to post it to , sorry !

but I'm guessing your real problem for the crash is in either the activation and/or initialization userform event code(s).

me too, but the debug keep in UserForm1.Show
but what confuse me why sometimes work without any error and why work in the others versions without any error ?!!!

 

[NdNoviceHlp]

XL is a funny thing and trying to get VBA to work across versions is often challenging. When there is a problem in the Userform activation or initializiation event codes, XL will debug the error to the Userform.Show line of code. If there is any Userform activation and/or initialize code, post it and maybe we can identify the problem. Dave

 

[Abdo]

If there is any Userform activation and/or initialize code, post it and maybe we can identify the problem. Dave

no, just this I don't post it .

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

 

[NdNoviceHlp]

No initialize or activate code. What controls do you have on the userform (ie. textboxes, etc.)? Do they have their row source(s) set? Dave

 

[Abdo]

just four textboxes as in code and commandbutton1 . there is no totally any code initialize or activate for userform.