Увеличение значения ячейки на 1

[Slava VVV]

Есть кнопка на 2 листе нужно чтобы при ее нажатии в 1 листе ячейка А1 прибавила 1, например было 1 стало 2 и т.д. Три дня лазию по интернету не могу найти пример
Помогите пожалуйста.

[_Boroda_]

Три дня лазию по интернету не могу найти пример

Да ладно! Ни в жисть не поверю, что одну строчку кода можно искать 3 дня. Вы, наверное, не то ищете. Как спрашиваете?

Да, Вы не указали, какая кнопка - АктивХ или форма?

Для АктивХ

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

Private Sub CommandButton1_Click()
Лист1.Range("A1") = Лист1.Range("A1") + 1
End Sub

Для формы

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

Sub tt()
Лист1.Range("A1") = Лист1.Range("A1") + 1
End Sub

[kuklp]

По правилам форума пример нужен от Вас. Назначьте кнопке макрос:

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

Public Sub www()
    Sheets(1).[a1] = Sheets(1).[a1] + 1
End Sub

[Slava VVV]

Всем спасибо, с горем пополам нашел макрос но он на 10 строк, Ваши примеры всего на три, возьму их на вооружение. По поводу поиска 3х дней я же так образно(скорея неправильно задавал вопрос), по прикладыванию примера ну я думал вы же гуру и для 3 строк кода пример будет излишним, хотя на счет кнопок да.. не подумал, что их несколько вариантов. Еще раз всем спасибо, что откликнулись.