Друзья, всем добрый день. я заранее извиняюсь, за свой вопрос, но мой уровень владения excеl очень примитивен. у нас есть торговый магазин, сейчас необходимо наладить систему приема заказов и выдачи товарных чеков. порывшись на форуме я нашла похожую тему и даже скачала нужный файл (спасибо добрым людям), но добавив свою номенклатуру не смогла понять, как применить макрос к новой продукции. В примере видно, что до 40 формула работает, что без нумераций нет(( позиции еще будут добавляться.
Друзья, всем добрый день. я заранее извиняюсь, за свой вопрос, но мой уровень владения excеl очень примитивен. у нас есть торговый магазин, сейчас необходимо наладить систему приема заказов и выдачи товарных чеков. порывшись на форуме я нашла похожую тему и даже скачала нужный файл (спасибо добрым людям), но добавив свою номенклатуру не смогла понять, как применить макрос к новой продукции. В примере видно, что до 40 формула работает, что без нумераций нет(( позиции еще будут добавляться.koreshulia
koreshulia, 1 и 2 лист надом менять (alt-f11) [vba]
Код
Sub perenos() For i = 1 To 48
[/vba]
и здесь
[vba]
Код
Private Sub Worksheet_Activate() Dim i As Byte [b5:h14].ClearContents With Application .ScreenUpdating = False .EnableEvents = False ' ac = .Calculation: .Calculation = xlCalculationManual End With
For i = 1 To 48
[/vba]
и насоздавать чекбоксов на 1 листе
koreshulia, 1 и 2 лист надом менять (alt-f11) [vba]
Код
Sub perenos() For i = 1 To 48
[/vba]
и здесь
[vba]
Код
Private Sub Worksheet_Activate() Dim i As Byte [b5:h14].ClearContents With Application .ScreenUpdating = False .EnableEvents = False ' ac = .Calculation: .Calculation = xlCalculationManual End With
koreshulia, здравствуйте. Предлагаю убрать эту кучу чекбоксов. Можно просто в каком-нибудь столбце помечать, например единичкой те строки, которые нужно перенести на другой лист.
koreshulia, здравствуйте. Предлагаю убрать эту кучу чекбоксов. Можно просто в каком-нибудь столбце помечать, например единичкой те строки, которые нужно перенести на другой лист.Manyasha