перенос данных с листа на лист

[Юрий_brv]

Добрый день. Создал форму отчета по клиентам. При  формировании отчета  некорректно переносятся данные.  Формирование производится при помощи формы(задается период, выбирается клиент и формируется отчет.
Где ошибка в коде ?

[RAN]

Ошибки в коде были, когда вы первый раз задавали этот вопрос (не помню, где). И там вам дали ответ, какие ошибки.
Теперь файл новый, код старый. В таком варианте код просто не работоспособен. 

[Wasilic]

Вообще то, код принципиально надо переделывать. Мутный он какой то.
А пока, строку

Код Выделить Развернуть

If sFirm = strFirma Then
Замените на

Код Выделить Развернуть

If sFirm = strFirma And Reestr.Cells(i, 6) <> "" Then
с проверкой на наличие товара, может поможет.

[Юрий_brv]

Wasilic, спасибо  вроде бы заработало. А почему не  переносится сумма на лист "карточка" в слолбец 7(строка"итого за период") ?

[Wasilic]

А почему не  переносится сумма на лист "карточка" в слолбец 7(строка"итого за период") ?

А потому, что сумма считается уже в карточке (столбец 7), а там пусто. Потому, что пусто и в реестре.

[Юрий_brv]

На листе "Реестр" в столбце 16 есть число 130. Оно должно переносится на лист "Карточка" в столбец 7

[Wasilic]

Вообще то я писАл

Вообще то, код принципиально надо переделывать. Мутный он какой то.

Ибо, корректировки будут бесконечны.

[Юрий_brv]

Спасибо, за доработку кода, но при выборе даты с 5 по 10 сумму считает только за 5 число. Да Вы  правы  код кривой.

[Wasilic]

при выборе даты с 5 по 10 сумму считает только за 5 число.

Еще условия будут? Или начнете самостоятельно домысливать.

[Юрий_brv]

Wasilic, спасибо Вам . Условий больше не будет.