Страницы: 1
RSS
Автозаполнение квитанции по значению ячейки с суммой, помощь в написании макроса.
 
Добрый день Hugo, Юрий, Максим и остальные гуру VBA!
Есть рутинная однотипная работа по заполнению бланка квитанции, которую было бы очень замечательно автоматизировать.

Кто-нибудь помогите пожалуйста как можно при указании ячейки с суммой, которую нужно указать в квитанции, заполнялись остальные нужные данные, как например: ФИО, Сумма, Дата и (еще, если возможно, номер строки) в бланке квитанции.

Файл приложила. Там 2 листа "База" и "Квитанция"
 
В лист БАЗА.
Скрытый текст
Есть нюансы. Двойной клик делайте только по сумме, иначе будет не то что нужно. Проверку не делал. Лень и Вам есть поле для творчества. ДобРа.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Хороший у вас аватар :)
С проверками ;), по тыц по вашей кнопке
Код
Sub Печать()
If Not WorksheetFunction.IsNumber(ActiveCell.Value) Or Selection.Cells.Count > 1 Then MsgBox "Выберите ячейку с суммой": Exit Sub
Dim Summa As Currency, Target As Range, FIO As String, PayDay As Date, strN As Long
With ActiveCell
    Summa = Application.InputBox("Сумма для печати:", "Печать квитанции", .Value, , , , , 1)
    FIO = Cells(.Row, 1).Value
    PayDay = .Offset(, 1).Value
    strN = .Row - 1
End With
With Sheets("КВИТАНЦИЯ")
    .Range("R6") = strN
    .Range("F15") = strN
    .Range("C21") = FIO
    .Range("N11") = FIO
    .Range("O15") = Summa
    .Range("G20") = Summa
    .Range("G15") = PayDay
    .Range("O7") = PayDay
    If MsgBox("Рахмет! Печатаем?", vbOKCancel + vbQuestion) = vbOK Then .PrintPreview
End With
End Sub
F1 творит чудеса
 
Спасибо JayBhagavan! Отлично! Все работает. :)
 
МАКСИИИИМ!!!! КАК это класснооо!! Просто слов нет! Даже с подготовкой для печати, все что нужно только пустить на печать. Вы жесть просто!!!! Я в трансе. Муааах СПАСИБООООО!  :*  Вы еще казахский вижу знаете..приятно
 
Максим, не могу насладиться кодом!!! Реально красиво!
 
до кучи
 
Вот, что делает удачный аватар с форумчанами. Ужас! :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
я по-казахски только "рахмет" и "тенге" знаю :)
Но там допиливайте, формулы там прописной суммы и всё такое (это уже можно на самой квитанции настроить)
F1 творит чудеса
 
Спасибо Dude! Очень своеобразно. Но Максим уже прочитал все мои мысли и решил все как нужно.
 
Максим допиливать то нечего. Все сделали, не поленились. Спасибо еще раз.
 
обращайтесь  :)
F1 творит чудеса
Страницы: 1
Наверх