Поиск
... находила, плюс он немного изменен, так как нужно было, чтобы каждая новая информация перемещалась на строчку ниже, а так же работали формулы.
Sub Кнопка2_Щелчок()
Sheets("Накладная").Select
Range("A26:H26").Select
Selection.Copy
Sheets("Первоначальная стоимость").Select
Selection.PasteSpecial
Selection.PasteSpecial ...
Изменен: 6 июн 2017
Читать сообщение на форуме или сайте.Автор: SHARP. По отдельности работает и Click и DblClick, а при совмещении перестает выдавать 4
Private Sub Button_Click()
If Button.Caption = "1" Then
Button.Caption = "2"
Else
Button.Caption = "1"
End If
End Sub
Private Sub Button_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Button.Caption = "3" Then
Button.Caption = "4"
Else
Button.Caption = "3"
End If
End Sub
Задача обработать первый и второй Click, также и с DblClick
Изменен: 11 мар 2017
Читать сообщение на форуме или сайте.Автор: lime2801. Здравствуйте, выручайте, весь форум перелопатил, весь интернет, может быть не правильно запрос сделал, не знаю, не нашел ответа, но думаю это вполне реально сделать. :).
В общем, на листе №1 когда я забиваю цифру например (9000шт) он мне пересчитывает в отдельную ячейку (H6), сколько нужно страниц напечатать (4шт)
Так вот, как сделать макрос, что бы при нажатии на кнопку, она смотрела на ячейку (H6) и печатала то число страниц которое там указано (4шт) с листа №2 ?
Пример добавил...
Изменен: 24 июл 2015
Читать сообщение на форуме или сайте.