Refreshing Query with UserForm

[Yuriy B]

Hi,

I have a UserForm with text boxes. When data is typed into a textbox, it is inserted into a cell on "Cost Analysis Tab" with this code:

Private Sub TextBox4_AfterUpdate()
Worksheets("Cost Analysis").Range("A1").Value = UCase(TextBox4.Value)
End Sub

I have a Connection Name: "Query from RBIT_vmfg" That looks at A1 on "Cost Analysis" tab.

The query refreshes as soon as I close the UserForm, but i would like it to refresh after the information has been entered into A1.

I have tried:
Sheets("Cost Analysis").Select
ThisWorkbook.RefreshAll

ActiveWorkbook.RefreshAll
DoEvents

Nothing has worked for me. Please let me know if there is a way that the query can refresh/update once the information has been put into TextBox4 or cell A1 in Cost Analysis tab.

Thanks.

 

[PatOBrien198]

In the ThisWorkbook object

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Worksheets("Cost Analysis").Range("A1"), Target) Is Nothing Then
      ThisWorkbook.RefreshAll
   End If
End Sub

 

[Yuriy B]

No, nothing changed.
As long as the Userform is open, the Query table doesn't update.
As soon as I close the UserForm, The Query table updates with the correct info.

 

[PatOBrien198]

Are you opening the user form MODALLY? I believe this prevents all other events from firing until the form is closed.

 

[CalcSux78]

Yuriy,

How are you calling your userform? (Modal/Modeless)

Try:

UserForm1.Show False    ' Or you can use vbModeless or 0

 

[Yuriy B]

I have a button on one of the Tabs that opens the userForm.
The Code for the userForm:

Sub OpenInsert()


UserForm1.Show
UserForm1.TextBox1.SetFocus


End Sub


I changed it and the table updated!!!!:

Sub OpenInsert()


UserForm1.Show False
UserForm1.TextBox1.SetFocus


End Sub


Thanks to all