Копирование значений и форматирования

[Eugenio]

Доброго времени суток, всем! Столкнулся с проблемой при написании макроса... Не получается копировать значения ячейки, в которой содержится формула, и одновременно требуется скопировать стиль форматирования ячейки. В экселе есть только функция xlPasteValuesAndNumberFormats но это мне не подходит, так как копирую текст.
Спасибо.

[Fierce]

Вот пример, копируем из ячейки А1 в ячейку А2

Range("A1").Copy
With Range("A2")
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False

[Eugenio]

Fierce, спасибо!

Появилась новая загвоздка, не пойму в чем дело... Копирование значений должно происходит с одного листа в другой через заданный интервал времени. И все нормально пока интервал в районе 15 секунд, а когда ставлю 1 минуту начинаются глюки, скопированное вставляется 3-4 раза. А мне нужно вообще 15 минут интервала. Вот код:


Sub Copy_lines()
Dim i As Integer
Dim shift As Date
shift = Second.Range("D2").Text
i = Third.UsedRange.Row + Third.UsedRange.Rows.Count
If i > 1 And First.ToggleButton1.Value = True Then
Third.Range("A" & i).Value = First.Range("B3")
Third.Range("B" & i).Value = First.Range("B4")
End If
Application.OnTime Time() + TimeValue(shift), "Copy_lines"
End Sub

Почему начинает глючить? Спасибо.

[Dophin]

shift = Second.Range("D2").Text - это что за зверь? что делать должен?

может все таки

shift = Second(val(Range("D2").Text))

[Eugenio]

Сообщение от Dophin

shift = Second.Range("D2").Text - это что за зверь? что делать должен?

может все таки

shift = Second(val(Range("D2").Text))

Все может быть, я не спец в экселе, поэтому и спрашиваю
shift - это переменная куда загоняется интервал, введенный в ячейку D2, в формате HH:MM:SS.

[Eugenio]

Гм, нет. У меня выдает ошибку 438(object doesnt support this property or method), когда пишу так:
shift = Second(val(Range("D2").Text))
Продолжаются глюки... вставляет строку несколько раз...

[Dophin]

ну файл то мы дождемся? не?

[Eugenio]

Конечно, нет проблем, просто я думал, что ошибку сразу в коде видно будет...

[Dophin]

вставьте в код кнопки вместо

call copy_lines

это

shift = Second.Range("D2").Text
Application.OnTime Time() + TimeValue(shift), "Copy_lines"

а то у Вас по нажатию кнопки выполняется макрос копирования, а в конец дается команда выполнить его еще через N секунд

[Eugenio]

Теперь еще стало по-другому глючить... при интервале 5 сек все отлично, ставлю 1 минуту: вставляет две строчки, через секунд 5 еще одну...