Как переносить макросом данные в соседний лист?

Question

[Максим Тимофеев]

VBA увидел сегодня впервые. Помогите найти ошибку. Вот код:

Cells(1, 1).Select
    Selection.Copy
    Sheets("list2").Select
    Cells(1, 2).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Видимо синтаксис страдает. В моем понимании следующий код должен взять ячейку 1-1 и перенести на другой лист в 1-2, но не получается.

Comments

[AVKor]

При чём тут БД?

[Максим Тимофеев]

AVKor: бд - база данных. Таблица эксель - бд в том числе.

[Максим Тимофеев]

Читайте https://ru.wikipedia.org/wiki/База_данных

[Максим Тимофеев]

И еще почитайте чем СУБД отличается от БД. Вы видимо под базой данных понимаете mysql, так вот это СУБД

Answer 1

[Антон Федорян]

Да нет, с синтаксисом порядок, у меня отработал без ошибок.
А на что ругается, может вместо "list2" написать "Лист2"?

Полезно будет использовать записью макроса

Comments

[Максим Тимофеев]

с названиями все ок. Просто ничего не происходит

[Антон Федорян]

Максим Тимофеев: если ячейка (1, 1) на первом листе пустая, то и ничего не произойдет. Точнее скопируется пустое значение.

[Максим Тимофеев]

Антон Федорян: она не пустая. Записал макрос, он работает, но в нем адрес ячейки задан Range("A1"), меняю в нем на Cells(1, 2) он тоже перестает работать. То есть проблема в записи Cells(1, 2) ?

[Максим Тимофеев]

перезапустил эксель - заработало. Гореть им в аду

[DS28]

Максим Тимофеев: Первый селект перед копированием на каком листе?
Поставьте Sheets("list1").cells(1,1).Select

[DS28]

Максим Тимофеев: И вообще select не очень удобная вещь... Но если в первый раз, то начинайте объединять все select в один...
Excel под рукой нет, проверьте так:

Sheets("list1").Cells(1, 1).Copy
Sheets("list2").Cells(1, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

[Максим Тимофеев]

Даня: спасибо код сократил - работает, полезла другая проблема - описал тут Как решить такую задачу макросом?