Привет всем. Задача вставить из буфера обмена в одну строку только цифры и без форматирования. пока что вот так:
Код
Sub Вставить()
On Error GoTo 3
Range("$C$3").Select
ActiveSheet.PasteSpecial Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Range("$C$3").Select
Exit Sub
3
MsgBox "Нет данных"
End Sub
Не получается: 1- проверить данные на "только цифры" 2- вставлять только в одну строку C3:S3
vokilook,Здравствуйте. Копирую строку выше, нажимаю кнопку Вставить. Пишет нет данных. "Задача вставить из буфера обмена в одну строку только цифры и без форматирования" По ссылке сходил, почитал, спасибо.