Помогите с созданием отчета

Пользователь

Сообщений: 1 Регистрация: 26.03.2013

26.03.2013 20:50:08

Здравствуйте. Нужна Ваша помощь.
Ситуация следующая. Небольшой экселевский складской учет (номенклатура, приход, расход). Нужно сделать отчет чтобы при выборе товара, в таблице было видно какого числа был приход и расход.
В книге есть закладка "звіт". Выбираем из выпадающего списка один нужный товар, и в таблице ниже формируется приход/расход по датам.
Возможно ли такое сделать???

Прикрепленные файлы

leszek.xls (52 КБ)

Изменено: leszek - 26.03.2013 21:12:07

Nosok2008 Пользователь Сообщений: 1 Регистрация: 18.03.2013	#2 26.03.2013 23:09:11 Доброго времени, суток!Попробовал сделать, но не получается привязать к дате. Прикрепленные файлы leszek1.xls (53 КБ)

Kuzmich

Пользователь

Сообщений: 8189 Регистрация: 21.12.2012

26.03.2013 23:17:05

Первый набросок. Макрос в модуль листа "звіт"

Код

Option Explicit

Sub leszek()
Dim TipOper As String
Dim FoundTipOper As Range

    TipOper = Range("B5")
    Range("A10:D19").ClearContents
    
    With Sheets("Прихід")
Set FoundTipOper = .Columns(3).Find(TipOper, , xlValues, xlWhole)
        Range("A10") = .Cells(FoundTipOper.Row, 2)
        Range("B10") = TipOper
        Range("C10") = .Cells(FoundTipOper.Row, 5)
    End With
    
    With Sheets("Розхід")
Set FoundTipOper = .Columns(3).Find(TipOper, , xlValues, xlWhole)
        Range("A11") = .Cells(FoundTipOper.Row, 2)
        Range("B11") = TipOper
        Range("D11") = .Cells(FoundTipOper.Row, 5)
    End With

End Sub

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 26.03.2013 23:26:48 Кросс: http://forum.msexcel.ru/index.php/topic,9212.0.html Я сам - дурнее всякого примера! ...

Читают тему