Добрый день, при последовательном нажатии на 1, в целевую ячейку влетает цифра слева. Потом я нажимаю кнопку принт. И так со всеми цифрами... а у меня их 200....
Как сделать, чтобы цифры сами нажимались последовательно и сама нажималась кнопка принт и печаталось. Писал макрос - ничего не сработало.
Добрый день, при последовательном нажатии на 1, в целевую ячейку влетает цифра слева. Потом я нажимаю кнопку принт. И так со всеми цифрами... а у меня их 200....
Как сделать, чтобы цифры сами нажимались последовательно и сама нажималась кнопка принт и печаталось. Писал макрос - ничего не сработало.ant6729
Конечно не совсем понятно что нужно. Сделал как понял [vba]
Код
Private Sub CommandButton1_Click() If Range("B" & [A1]).Value = "" Then MsgBox "Достигнут конец списка" Else [N15] = Range("B" & [A1]).Value [A1] = [A1] + 1 Worksheets("Входящая информация").Range("I2:AB49").PrintOut End If End Sub
[/vba]
Конечно не совсем понятно что нужно. Сделал как понял [vba]
Код
Private Sub CommandButton1_Click() If Range("B" & [A1]).Value = "" Then MsgBox "Достигнут конец списка" Else [N15] = Range("B" & [A1]).Value [A1] = [A1] + 1 Worksheets("Входящая информация").Range("I2:AB49").PrintOut End If End Sub
Всегда пытался сам понять, как вы все это делаете и как понимаете язык команд, даже то, что написано - круто.
Но не то.
Нужно, чтобы я только один раз нажал на принт - а оно сразу все напечатало. Короче... выстрелил и забыл. Одной кнопкой все экземпляры отправлялись на печать.
Всегда пытался сам понять, как вы все это делаете и как понимаете язык команд, даже то, что написано - круто.
Но не то.
Нужно, чтобы я только один раз нажал на принт - а оно сразу все напечатало. Короче... выстрелил и забыл. Одной кнопкой все экземпляры отправлялись на печать.ant6729
Сообщение отредактировал ant6729 - Вторник, 04.08.2015, 12:55
ant6729, Если Вам надо чтобы убралась кнопка принт, но при этом по нажатию выполнялись изменения что у Вас там происходит и сразу распечатка, можно убрать кнопку, но к Вашему макросу добавить это действие:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [a:a]) Is Nothing Then Cancel = True Cells(1, 1).EntireRow.Formula = Target.EntireRow.Formula Worksheets("Входящая информация").Range("I2:AB49").PrintOut End If End Sub
[/vba] Но я хз, на сколько это правильно, мне кажется их разделили не зря...)
ant6729, Если Вам надо чтобы убралась кнопка принт, но при этом по нажатию выполнялись изменения что у Вас там происходит и сразу распечатка, можно убрать кнопку, но к Вашему макросу добавить это действие:
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [a:a]) Is Nothing Then Cancel = True Cells(1, 1).EntireRow.Formula = Target.EntireRow.Formula Worksheets("Входящая информация").Range("I2:AB49").PrintOut End If End Sub
[/vba] Но я хз, на сколько это правильно, мне кажется их разделили не зря...)Roman777
Одной кнопкой все экземпляры отправлялись на печать
Тогда еще проще [vba]
Код
Private Sub CommandButton1_Click() For Each cell In Range("B2", "B" & Range("B2").End(xlDown).Row) [N15] = cell.Value Range("I2:AB49").PrintOut Next cell End Sub
[/vba]
[p.s.]Думаю Вам будет полезно ознакомится со статьей Слияние
Одной кнопкой все экземпляры отправлялись на печать
Тогда еще проще [vba]
Код
Private Sub CommandButton1_Click() For Each cell In Range("B2", "B" & Range("B2").End(xlDown).Row) [N15] = cell.Value Range("I2:AB49").PrintOut Next cell End Sub
[/vba]
[p.s.]Думаю Вам будет полезно ознакомится со статьей Слияниеmiver