1. Надо чтоб при нажатии кнопки "ввод в журнал" данные, заполненные в форме попадали в таблицу на листе "ЖУРНАЛ", ниже уже заполненного ряда и так каждый раз при вводе новых данных, то есть новые данные - новый ряд.
2. Как сделать так, чтоб номер, который присваивается в таблице новой записи попадал в форму квитанции (лист "КВИТАНЦИЯ ОБ ОПЛАТЕ")
Заранее очень благодарен помощи!
Друзья, не могу разобраться в макросах.
1. Надо чтоб при нажатии кнопки "ввод в журнал" данные, заполненные в форме попадали в таблицу на листе "ЖУРНАЛ", ниже уже заполненного ряда и так каждый раз при вводе новых данных, то есть новые данные - новый ряд.
2. Как сделать так, чтоб номер, который присваивается в таблице новой записи попадал в форму квитанции (лист "КВИТАНЦИЯ ОБ ОПЛАТЕ")
У вас на листе ОПЛАТА ПО ШКОЛЕ EPIC-MOTION вставлена таблица "Table1". Для работы с таблицей макрос выглядит иначе. Варианты: 1 (простой) - удалить таблицу. 2 (сложный) - разобраться, как заполнять макросом таблицу.
У вас на листе ОПЛАТА ПО ШКОЛЕ EPIC-MOTION вставлена таблица "Table1". Для работы с таблицей макрос выглядит иначе. Варианты: 1 (простой) - удалить таблицу. 2 (сложный) - разобраться, как заполнять макросом таблицу.RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Вторник, 27.08.2013, 13:15
bagdad, Таблицу удалять не надо. Попробуйте так: [vba]
Код
Sub Button1_Click() Dim i As Long i = Sheets("ОПЛАТА ПО ШКОЛЕ EPIC-MOTION").Cells(Rows.Count, 3).End(xlUp).Row + 1 With Sheets("ФОРМА ЗАПОЛНЕНИЯ") Sheets("ОПЛАТА ПО ШКОЛЕ EPIC-MOTION").Cells(i, 3).Resize(, 8).Value = _ Array(.Range("G14"), .Range("G16"), .Range("G12"), .Range("G18"), .Range("G20"), .Range("K22"), _ .Range("G24") * (1 - .Range("G26")), .Range("G26")) End With End Sub
[/vba] и удалите формулы из столбца I (Сумма)
bagdad, Таблицу удалять не надо. Попробуйте так: [vba]
Код
Sub Button1_Click() Dim i As Long i = Sheets("ОПЛАТА ПО ШКОЛЕ EPIC-MOTION").Cells(Rows.Count, 3).End(xlUp).Row + 1 With Sheets("ФОРМА ЗАПОЛНЕНИЯ") Sheets("ОПЛАТА ПО ШКОЛЕ EPIC-MOTION").Cells(i, 3).Resize(, 8).Value = _ Array(.Range("G14"), .Range("G16"), .Range("G12"), .Range("G18"), .Range("G20"), .Range("K22"), _ .Range("G24") * (1 - .Range("G26")), .Range("G26")) End With End Sub
[/vba] и удалите формулы из столбца I (Сумма)nilem
Ребята что то сообщение не вышло так что попробую продублировать: Последний файл норм, только вот все как то с середины везде начинается и скрыто все, простым обывателям как мы каторые пытаются разобраться что к чему вообще ни чего не понять а точнее на элементарные вещи приходится тратить уйму времени в то время как суть остается за кадром. Вопрос такой отобразите ПЛЗ все скрытое и Вопрос второй можно ли кнопку ввод в журнал сразу же заставить печатать эту самую квитанцию параллельно Ну и если этот журнал будет для нескольких школ одновременно то будут ли все они вноситься так как я вижу что все подписано как имя одной школы
Ребята что то сообщение не вышло так что попробую продублировать: Последний файл норм, только вот все как то с середины везде начинается и скрыто все, простым обывателям как мы каторые пытаются разобраться что к чему вообще ни чего не понять а точнее на элементарные вещи приходится тратить уйму времени в то время как суть остается за кадром. Вопрос такой отобразите ПЛЗ все скрытое и Вопрос второй можно ли кнопку ввод в журнал сразу же заставить печатать эту самую квитанцию параллельно Ну и если этот журнал будет для нескольких школ одновременно то будут ли все они вноситься так как я вижу что все подписано как имя одной школыПостовой