Копирование значений

[Ogo10]

Кпирую лист в новый файл:
Sheets("Лист1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Name.xls"

Как сделать так чтобы в копии остались только значения без формул?

[alibek]

Для каждой ячейки сделай .Value=.Value.
Или выполни специальную вставку, "вставить значения".

[Ogo10]

А можно пример?

[Krasnaja Shapka]

cells.value=cells.value

[Ogo10]

нет, так не выходит

[KL]

нет, так не выходит

Если правильно делать, то должно выходить. Или формулы не в ячейках?

Код: Выделить всё

Sub test()
    ThisWorkbook.Sheets("Лист1").Copy
    With ActiveSheet.UsedRange
        .Value = .Value
        .Parent.Parent.SaveAs Filename:="C:\Name.xls"
    End With
End Sub

[Krasnaja Shapka]

или попробуй

Код: Выделить всё

      MySheet.Copy
      MySheet.PasteSpecial xlPasteValues

[KL]

или попробуй

Код: Выделить всё

      MySheet.Copy
      MySheet.PasteSpecial xlPasteValues

скорее так:

Код: Выделить всё

Sub test()
    ActiveSheet.Copy
    With ActiveSheet.Cells
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

[Ogo10]

Спасибо всем!
Сделал так:

Код: Выделить всё

Private Sub CommandButton1_Click()
Worksheets(Array("Лист1")).Copy
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
ActiveWorkbook.SaveAs Filename:="C:\Name.xls"
End Sub


Этим добился того чего хотел.

[Pavel55]

А зачем вам тут массив с одной переменной?

Код: Выделить всё

Worksheets(Array("Лист1")).Copy

Думаете так работать не будет?

Код: Выделить всё

Worksheets("Лист1").Copy