Excel screenupdating not working

Find(What:="External ID Number", After:=rng, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False). Find(What:="IBase Number", After:=rng, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False). About 2/3 of the way through the macro, the userform1 disappears, another worksheet pops up and then at the end of the procedure userform1 reappears with all text box's, combo box's complete and everything looks good. Max = 100 'get tag# and check for blank tagfind = Userform1. Value If tagfind = "" Then Msg Box ("You did not enter a TAG Number.") Exit Sub Else 'effort to stop screen flicker Debug. Find(What:="Description of a IBase Model", After:=rng, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False). Find(What:="IB Model Serial Num.", After:=rng, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False). I have searched the forum and tried everything to resolve this issue. Select as I heard this can set Screen Updating to True. I have a command button on Userform1 that calls the procedure below. I have placed the Screen Updating command all throughout (Overkill Im sure) and debugged it and the immediate window always shows it set to False. The procedure calls a function "Is Numeric" and I have put the Screen Updating False at the beginning and True at the end of the function. Sub importtag() Dim filename As String Dim path As String Dim ibasemodel As String Dim Ser Num As String Dim Tag Num As String Dim IBasenum As String Dim Cust Name As String Dim Address1 As String Dim Address2 As String Dim Address3 As String Dim Partnernum As String Dim mfgdate As String Dim District As String Dim Zip Code As String Dim Zipcodeplus As String Dim lastrow As Long Dim Options As Variant Dim Quantity As Variant Dim i As Long Dim location As String Dim location1 As String Dim location2 As String Dim State As String Dim onecontrol As Object Dim percentadj As String Dim tagfind As String Dim lastrow1 As Long Dim c As Range Dim tryagain As String Dim wbook As Workbook Dim rng As Range Dim rng1 As Range Dim loc1 As String 'calc to manual to try and stop screen flashing Application.

excel screenupdating not working-5

If were so simple to copy across the entire range I would, but these are ledger sheets and the structure for each is slightly different than the next with three different column structure each with different starting rows for what is being copied. Display Alerts = False End Sub Public Sub Stroboscope On() Application. Calculation = xl Calculation Automatic Application.

I recorded the macro but it does not show how to establish the connection and fails on trying to run the query. Resize Range("$A

If were so simple to copy across the entire range I would, but these are ledger sheets and the structure for each is slightly different than the next with three different column structure each with different starting rows for what is being copied. Display Alerts = False End Sub Public Sub Stroboscope On() Application. Calculation = xl Calculation Automatic Application.

I recorded the macro but it does not show how to establish the connection and fails on trying to run the query. Resize Range("$A$1:$P$101") Range("Feb#Headers],[Feb "). The code I ended up with after recording the macro is as follows: "Sub Data Query() ' ' Data Query Macro ' ' Selection. Partner", After:=rng, Look In:=xl Values, Look At:= _ xl Whole, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False). Find(What:="Address Line 1", After:=rng, Look In:=xl Values, Look At:= _ xl Part, Search Order:=xl By Rows, Search Direction:=xl Next, Match Case:= _ False, Search Format:=False).

]]

Leave a Reply