Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

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

Автор Slava VVV, 20.10.2012, 03:11

« назад - далее »

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

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Slava VVV

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

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

Slava VVV

Цитата: KuklP от 20.10.2012, 05:40
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

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Slava VVV

#5
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
...
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771