Kuzmich, Ігор Гончаренко, Большое вам спасибо все отлично работает. Но появилась новая задачка, пытался сделать но в чем то я ошибаюсь. Пробовал вот так
Код |
---|
Sub tt()
'Цикл по листам книги, кроме скрытых и очень скрытых
Dim Sht As Worksheet
For Each Sht In Worksheets
With Sht
If Sht.Visible = xlSheetVisible Then
.Range("EO3:FK5,FN2:GB10").Select
Selection.Value = Selection.Value
End If
End With
Next
End Sub |
вот сяк
Код |
---|
Sub tt()
'Цикл по листам книги, кроме скрытых и очень скрытых
Dim Sht As Worksheet
For Each Sht In Worksheets
With Sht
If Sht.Visible = xlSheetVisible Then
Range("EO3:FK5").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("FN2:GB10").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
Next
End Sub |
Прошу не судите строго, пытаюсь понять закономерность этого корешка макроса который должен выполнить задачу на каждый видимый лист. Ну т.е. в диапазонах EO3:FK5 и FN2:GB10 имеются формулы в которых надо оставить только выполненное формулой значение.