Private Sub Workbook_Open()'' Макрос1 Макрос'' ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Add Key:=Range( _ "F11:F10011"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Private Sub Workbook_Open()'' Макрос1 Макрос'' If ActiveWorkbook.Worksheets("ИЕПР").Range("F11").Value <> "" Then ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Add Key:=Range( _ "F11:F10011"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If End Sub
If ActiveWorkbook.Worksheets("ИЕПР").Range("F11").Value <> "" Then
If IsNull(ActiveWorkbook.Worksheets("ИЕПР").Range("A12:F3000").Text) Then'в диапазоне есть хотя бы одно значение