1

Topic: Question on excel Call Sheet1.refresh_select where an error?

Prompt how to correct please that the error did not appear?

2

Re: Question on excel Call Sheet1.refresh_select where an error?

And one more error

Sub sbShow __ ufmRefreshData ()
==> ufmRefreshData. Show 0
End Sub

With the yellow selects that an error.
Prompt how to correct please.
The moderator: we Learn to use tags of design of the code - FAQ

3

Re: Question on excel Call Sheet1.refresh_select where an error?

We need to guess the text of an error and to guess that such ufmRefreshData?

4

Re: Question on excel Call Sheet1.refresh_select where an error?

I apologize, I in it understand nothing.
The full code looks as follows

Sub RefreshAll ()
Dim dblTimeAdd'
dblTimeAdd = TimeValue ("02:00") ' time addition
Dim llastr As Long, arr, x
Dim arr2, xx
Dim rr As Range, l As Long
Dim asSp, s As String, s1 As String, s2 As String
Dim wsStat As Worksheet
'----------------------------------
' a check on identifier coincidence
'----------------------------------
Set wsStat = Sheet1
With Sheet2 ' Aux
llastr =.Cells (.Rows. Count, 2).End (xlUp).Row
If llastr <4 Then Exit Sub
CheckDate
arr =.Cells (4, 2).Resize (llastr - 3, 1)
If Not IsArray (arr) Then
ReDim arr (1 To 1, 1 To 1)
arr (1, 1) =.Cells (4, 2)
End If
End With
Application. ScreenUpdating = 0
' Stats
With shRes'
llastr =.Cells (.Rows. Count, 1).End (xlUp).Row
If llastr> = 2 Then
.Cells (2, 1).Resize (llastr - 1, 1).EntireRow. Value = Empty
End If
End With
llastr = 1
Sheet1.Activate
For Each x In arr
wsStat. Range ("B3").Value = x
>>> Call Sheet1.refresh_select <<<-------- Here an error produces
' we add sheet "Should so to quit"
Set rr = wsStat. Range ("U35:X49")
For lr = 1 To rr. Rows. Count
s = rr. Cells (lr, 2).Value
If s <> "" Then
asSp = Split (s, "-", 2)
If UBound (asSp)> 0 Then
arr2 = wsStat. Range ("Q6:Q36").Value
s1 = LCase (Trim (asSp (0)))
s2 = LCase (Trim (asSp (1)))
For Each xx In arr2
If LCase (Trim (xx)) = s1 Then
wsStat. Range ("C7").Value = xx
End If
If LCase (Trim (xx)) = s2 Then
wsStat. Range ("D7").Value = xx
End If
Next
' Call Sheet1.refresh_teams
Application. Calculate
llastr = llastr + 1
shRes. Cells (llastr, 1).Value = x
shRes. Cells (llastr, 2).Value = rr. Cells (lr, 1).Value
shRes. Cells (llastr, 3).Value = s
shRes. Cells (llastr, 4).Value = rr. Cells (lr, 3).Value + dblTimeAdd
shRes. Cells (llastr, 5).Resize (4).Value = wsStat. Range ("J85").Resize (4).Value
shRes. Cells (llastr, 10).Value = wsStat. Range ("I1").Value
shRes. Cells (llastr, 11).Value = wsStat. Range ("I3").Value
shRes. Cells (llastr, 12).Value = wsStat. Range ("I2").Value
shRes. Cells (llastr, 10).Resize (3).NumberFormat = "0.00 %"
shRes. Cells (llastr, 10).Resize (3).Font. Bold = True
shRes. Cells (llastr, 9).Value = wsStat. Range ("l84").Value
shRes. Cells (llastr, 24).Value = wsStat. Range ("f24").Value
shRes. Cells (llastr, 21).Value = wsStat. Range ("E1").Value
shRes. Cells (llastr, 23).Value = wsStat. Range ("H2").Value
shRes. Cells (llastr, 25).Value = wsStat. Range ("j7").Value
shRes. Cells (llastr, 26).Value = wsStat. Range ("k7").Value
shRes. Cells (llastr, 27).Value = wsStat. Range ("l7").Value
shRes. Cells (llastr, 28).Value = wsStat. Range ("m7").Value
shRes. Cells (llastr, 29).Value = wsStat. Range ("n7").Value
shRes. Cells (llastr, 22).Value = wsStat. Range ("H1").Value
shRes. Cells (llastr, 30).Value = wsStat. Range ("A75").Value
shRes. Cells (llastr, 31).Value = wsStat. Range ("B75").Value
shRes. Cells (llastr, 32).Value = wsStat. Range ("c75").Value
shRes. Cells (llastr, 33).Value = wsStat. Range ("d75").Value
shRes. Cells (llastr, 34).Value = wsStat. Range ("e11").Value
shRes. Cells (llastr, 35).Value = wsStat. Range ("e12").Value
shRes. Cells (llastr, 13).Value = wsStat. Range ("Q2").Value
shRes. Cells (llastr, 14).Value = wsStat. Range ("Q3").Value
shRes. Cells (llastr, 36).Value = wsStat. Range ("E75").Value
shRes. Cells (llastr, 37).Value = wsStat. Range ("F75").Value
shRes. Cells (llastr, 38).Value = wsStat. Range ("g75").Value
shRes. Cells (llastr, 39).Value = wsStat. Range ("J75").Value
shRes. Cells (llastr, 40).Value = wsStat. Range ("K75").Value
shRes. Cells (llastr, 41).Value = wsStat. Range ("L75").Value
shRes. Cells (llastr, 15).Value = wsStat. Range ("M75").Value
shRes. Cells (llastr, 16).Value = wsStat. Range ("N75").Value
shRes. Cells (llastr, 17).Value = wsStat. Range ("O75").Value
shRes. Cells (llastr, 19).Value = wsStat. Range ("P75").Value
shRes. Cells (llastr, 18).Value = wsStat. Range ("q75").Value
shRes. Cells (llastr, 20).Value = wsStat. Range ("R75").Value
shRes. Cells (llastr, 42).Value = wsStat. Range ("H26").Value
shRes. Cells (llastr, 43).Value = wsStat. Range ("K26").Value
shRes. Cells (llastr, 44).Value = wsStat. Range ("i26").Value
shRes. Cells (llastr, 45).Value = wsStat. Range ("l26").Value
shRes. Cells (llastr, 46).Value = wsStat. Range ("H27").Value
shRes. Cells (llastr, 47).Value = wsStat. Range ("K27").Value
shRes. Cells (llastr, 48).Value = wsStat. Range ("i27").Value
shRes. Cells (llastr, 49).Value = wsStat. Range ("l27").Value
shRes. Cells (llastr, 15).Resize (2).Calculate
shRes. Cells (llastr, 15).Resize (2).Value = shRes. Cells (llastr, 15).Resize (2).Value
End If
End If
Next
Next
shRes. Activate
Application. ScreenUpdating = 1
End Sub
Function CheckDate ()
' MM/DD/GGGG
If Date> #12/31/2100# Then
MsgBox "", vbCritical, "IMPORTANT"
End
End If
End Function

5

Re: Question on excel Call Sheet1.refresh_select where an error?

The text of an error we wait?

6

Re: Question on excel Call Sheet1.refresh_select where an error?

Shocker. Pro, I thought it will be enough.
There is here such window with an error.