Макрос переименовывающий строку

[b7music]

Здравствуйте уважаемые форумчане!
Помогите, пожалуйста.
Имеется таблица с 3-листами.

Необходимо сделать макрос который, при нажатии на кнопку изменял бы значение в другой ячейке, другого листа.

Например, есть ячейка Тип ремонта - "Гарантийный"
Нажимаем на кнопку, и в нужной строке название меняется с "Платный" на "Гарантийный", и наоборот при нажатии ещё раз на эту кнопку.


Сам в vba вообще ничего не соображаю.

[alex77755]

Сам в vba вообще ничего не соображаю.

Тогда тебе вряд ли это поможет. Но работает, поверь

Sub Щелкнуть()
Dim RNG As Range
Set RNG = Sheets("Лист2").Range("Тип_ремонта")
With RNG
If .Value = "" Or .Value = "Платный" Then
    .Value = "Гарантийный"
    Sheets("Лист1").CommandButton1.Caption = "Гарантийный"
Else
    .Value = "Платный"
    Sheets("Лист1").CommandButton1.Caption = "Платный"
End If
End With
End Sub

[b7music]

Изменил содержание под свои имена страниц.

Sub Щелкнуть()
Dim RNG As Range
Set RNG = Sheets("Новая квитанция").Range("F3:G3")
With RNG
If .Value = "" Or .Value = "платный" Then
    .Value = "гарантийный"
    Sheets("Оборудование").CommandButton1.Caption = "гарантийный"
Else
    .Value = "платный"
    Sheets("Оборудование").CommandButton1.Caption = "платный"
End If
End With
End Sub

Добавил новый модуль в документ.
Сделал кнопку и повесил на неё выполнение макроса.

И не работает

"Оборудование" - это первый лист на котором должна находиться кнопка.
"Новая квитанция" это второй лист, (F3) это ячейка в которой должна изменяться надпись.

Что я сделал не так?

[IgorGO]

а не работает - это как?
1) Вы уверены, что этот макрос выполняется
2) выдает ошибку, номер ошибки, в какой строке?

[b7music]

Как то так
проект.zip
Вот исходник.
Хочу чтобы при нажатии на кнопку "Платный" на листе "Оборудование", менялось значение на "платный" на листе "Новая квитанция", и наоборот.
Соответственно, если выбран платный тип ремонта, то надпись на кнопке хочется видеть "гарантийный".

[IgorGO]

я еще небольшую кнопку добавил (детскую), щелкайте по ней.

[b7music]

alex77755,IgorGO, огромное Вам человеческое спасибо!

Последний вопрос

Подскажите, наглядно, если можно, каким макаром при выделении всей строки, при нажатии на кнопку (опять же макрос), в 18 столбец, в этой строке, подставлялась текущая дата?

Хочу сделать кнопку "Выдано". Если в ячейке уже стоит дата, то кнопка становится не активной, но это уже мелочи

Работаю в сервисном центре, весь поток с 3-х точек идет к нам, хотелось бы упростить жизнь, и отмечать, что ушло, а что осталось.

[b7music]

Там в квитанции, соседняя ячейка ("N3") отображалась по правилу что она равна ("F3"). После срабатывания макроса она не изменяется Как исправить?

[alex77755]

Там в квитанции, соседняя ячейка ("N3")

не пробовал сам найти ячейку "N3"?
Может я не совсем понимаю ТАМ?

[alex77755]

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

Опять же: на каком листе?

при нажатии на кнопку (опять же макрос), в 18 столбец, в этой строке, подставлялась текущая дата?

где-то так:

Cells(ActiveCell.Row, 18) = Date