Need some help with VBA

[Bish]

уже пробовал...ни xls ни xlsx не хочет работать (

[SAS888]

У Вас один файл xlsx, а другой xlsm.

[Bish]

Действительно...прошу прощения...ошибка пропала...но копирование не происходит...в режиме совместимости с 97-2003 тоже самое...

всё получилось )
Спасибо вам большое за уделённое время )

ещё один маленький вопрос можно ли провести копирование поделив на 10 с оператором Mod не получается

всё-таки возникла ещё одна проблема...нужно чтобы переносились только значения (без формул источника), но желательно в том формате, в котором источник...

Модератор: пользуемся кнопкой ПРАВКА

[Bish]

и что же править =\

[EducatedFool]

Если хотите что-то добавить, не надо писать новое сообщение каждую минуту.
Достаточно нажать кнопку ПРАВКА под своим последним сообщением, и отредактировать его, добавив текст.

[SAS888]

провести копирование поделив на 10 с оператором Mod...
...нужно чтобы переносились только значения (без формул источника), но желательно в том формате, в котором источник...

Попробуйте так:

Dim sh1 As Object, sh2 As Object
    Set sh1 = Workbooks("Книгa1.xlsm").Sheets("Лист1"): Set sh2 = Workbooks("Книгa2.xlsx").Sheets("Лист1")
    sh1.[A1].Copy: sh2.[A1].PasteSpecial Paste:=xlPasteValuesAndNumberFormats: sh2.[A1] = sh2.[A1] Mod 10

[Bish]

и снова благодарю вас за помощь! ))
но с Мод не заработало...зато пошло вот так:

Dim sh1 As Object, sh2 As Object
    Set sh1 = Workbooks("11.xlsm").Sheets("Ëèñò1"): Set sh2 = Workbooks("22.xlsx").Sheets("Ëèñò1")
    sh2.[A10].Copy: sh1.[A1].PasteSpecial Paste:=xlPasteValuesAndNumberFormats: sh1.[A1] = sh2.[A10] / 10

странно конечно, но всё же )

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

Если хотите что-то добавить, не надо писать новое сообщение каждую минуту.
Достаточно нажать кнопку ПРАВКА под своим последним сообщением, и отредактировать его, добавив текст.

извиняюсь, не понял сначла..