Привязать кнопку к копированию ячеек на другой лист

[Slava VVV]

Прошу помощи, сам мыкался так и не выходит. Нужно кнопку привязать на копирование 2 ячеек из листа 1 с №1 в лист 2 в таблицу с номером №1 и если есть запись в строке с номером №1 вывести сообщение, что строка с таким номером уже заполнена. Буду очень признателен за помощь!

Эксель 2003

[kuklp]

Код Выделить Развернуть

Private Sub CommandButton1_Click()
    If IsNull(Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Text) Then
        MsgBox "строка с таким номером уже заполнена"
    Else
        Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
    End If
End Sub

[Slava VVV]

Спасибо огромное!!!!! То, что нужно.

Не нашел кнопочку, где можно по благодарить

[Slava VVV]

Код Выделить Развернуть

Private Sub CommandButton1_Click()
    If IsNull(Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Text) Then
        MsgBox "строка с таким номером уже заполнена"
    Else
        Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
    End If
End Sub

Здравствуйте, возник вопросик в процессе эксплуатации макроса, а можно в него добавить, чтоб при нажатии кнопки баттон 1 так же переходил на лист №2.

[kuklp]

Какой батон куда должен переходить?

[Slava VVV]

Private Sub CommandButton1_Click() эта кнопка копирует данные с листа №1 в лист №2 ну и на нее еще добавить чтоб открыла лист №2 после копирования.

[kuklp]

Код Выделить Развернуть

...
  Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
  Sheets("Лист2").activate
End If
...

[Slava VVV]

Спасибо