Почему не работает простейший макрос?

[zander]

Всего и надо то по нажатию кнопки скопировать цифру из одной ячейки листа1 в ячейку Листа3. Но, не исполняется пишет что, application -defained or object-defined error. При этом ячейка G25 остается выбранной и ничего не копируется

Sub PriceCopySell()

Sheets("Лист1").Select
Range("G25").Select
Selection.Copy
Sheets("Лист3").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Лист1").Select
End Sub

[Тупой]

Ваш макрос работает только с листами "Лист1" и "Лист3".
Он копирует только из ячейки G25 Листа 1 в ячейку D2 Листа3.
Затем он выбирает ячейку G25.
Если вам нужно скопировать что-то из другой ячейки, то Ваш макрос нужно переделывать.

[EducatedFool]

Можно слегка упростить макрос:

Sub PriceCopySell()
    Лист1.[G25].Copy  Лист3.[D2]
End Sub

Можете изменять выделенные красным имена ячеек.
Листы Лист1 и Лист3 должны присутствовать (и называться именно так)

[КаМММ]

Если нужно скопировать только цифру то попробуй так:
[Лист3!D2] = [Лист1!G25]

[slan]

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

Можно слегка упростить макрос:

Sub PriceCopySell()
    Лист1.[G25].Copy  Лист3.[D2]
End Sub

Можете изменять выделенные красным имена ячеек.
Листы Лист1 и Лист3 должны присутствовать (и называться именно так)

только заметьте, что лист1 и лист3 - это не те названия, которые видны на ярлычках. они могут совпадать, а могут и нет.

[zander]

Спасибо всем! Как всегда быстро и по делу...