freeze or blurs if I move it the userfrom....

[drinkmaster]

Hi All,

I try hide worksheet with macro (visible=xlverryHidden)


If I hide the "fields" worksheet or at the moment not active this is
worksheet and userfrom is runnig then the userform is frozen or,
meantime of move blurs....

I try resolve this problem with nex line:
Sheets("fields").Activate
Worksheets("fields").Select

My opinion the below macro's which can be found causes it problem:

First:
Private Sub userform_initialize()
Sheets("Fields").Range("O18:S18").Select
Selection.ClearContents
***************************************
Second:
Private Sub ComboBox1_Change()
Sheets("Fields").Activate
Sheets("Fields").Range("O18:S18").Select
Selection.ClearContents
*********************************************
Third:
'Data Fields Filter of Selected Eq.
Private Sub ComboBox3_Change()
Worksheets("Fields").Range("O17") = ComboBox3
Dim FindString As String
Dim Rng As Range
FindString = Sheets("Fields").Range("O17").Value
If Trim(FindString) <> "" Then
With Sheets("Fields").Range("B:B")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.GoTo Rng, True
Else
MsgBox "Nothing found data for selected equipment"
End If
End With
End If
With ActiveCell
Range(Cells(.Row, "B"), Cells(.Row, "F")).Select
Selection.Copy
Range("O18").Select
ActiveSheet.PasteSpecial
End With
End Sub

 

[Doug Robbins - Word MVP]

You should ask this question in the microsoft.public.excel.programming
newsgroup. This one is dedicated the the use of VBA in Word.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com