can't move UserForm with the mouse

A

Axel

I have a userform with comcobox, two textbox and some buttons.
If I run this macro (from button in userform) shown below, and then try
to move the UserForm with the mouse, the UserForm getting spread all
over the screen(Following the mouse).Looks like it's copying itself for
every movment.
Any Suggestion why? Everything works fine, but is not possible to look
at the cells behind the userform, by moving it.


Private Sub CommandButton3_Click()
ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False

Dim c As range
Set c = ActiveCell
For Each c In ActiveSheet.range("B4:B53")
If Not IsEmpty(c) Then GoTo line1 Else GoTo line2
line1:
Next c
line2:
ComboBox1.Value = c.Offset(0, -1).Value
ComboBox1.SetFocus

ActiveSheet.Protect Password:="", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub


*** Sent via Developersdex http://www.developersdex.com ***
 
G

Greg Wilson

This is normally what happens when screen updating is set to false. Your code
sets screen updating to false and does not reset it back to true. Suggested
rewrite:

Private Sub CommandButton3_Click()
Dim c As Range
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For Each c In Range("B4:B53")
If IsEmpty(c) Then Exit For
Next c
ComboBox1.Value = c.Offset(0, -1).Value
ComboBox1.SetFocus
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top