учет товара

[AKSENOV048]

))) немного меня не поняли, но наверное проще будет так.
я имел ввиду то чтобы можно было бы вводить одинаковые наименование (например есть Майка женская 2 разных товара) одна по 700руб вторая по 1300руб., и программа их различала.

[AKSENOV048]

спасибо огромное за огромную помощь. ДОБРЫХ ВАМ СНОВ!

[IgorGO]

чтобы программа их различала - им надо дать разные имена)))
Майка женская 700
и
Майка женская 1300
(как вариант)
а вообще для этих целей используют артикулы (или коды) свой для каждого товара, тогда у вас на складе может быть много разных "Майка женская"

Вам осталась небольшая задача - сделать лист с именем "отчет"...

[IgorGO]

О!!!
можно поступить очень хитро с женскими майками - добавить для второй в конце названия пробел. главное - не перехитрить самого себя, они в списке товаров визуально никак не будут отличаться друг от друга

[AKSENOV048]

по поводу маек я в конце добавил звездочку*
а по поводу осталось ....... отчет; и нужна возможность видеть на Листе ПРИХ-РАСХ кол-во товара на каждый день когда вносились изменения, чтобы если что моно было найти когда что не дописали, или кто то что "спер" из магазина. Остаток на каждый день больше всего нужен. Спасибо вам большое я ВАМ очень благодарен!!!очень.

[AKSENOV048]

возможно ли подстроить такой выпадающий список к моей таблице. http://www.planetaexcel.ru/tip.php?aid=98

там код: Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long

If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$D$2" Then может исправить на = "$С$4:C"
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Range("На имен1"), Target) = 0 Then
lReply = MsgBox("Добавить введенное имя " & _
Target & " в выпадающий список?", vbYesNo + vbQuestion)
If lReply = vbYes Then
Range("Наимен1").Cells(Range("Наиме н1").Rows.Count + 1, 1) = Target
End If
End If
End If
End Sub

[AKSENOV048]

Добрый день Уважаемый IgorGo, подскажите пожалуйста как изменить If Cells(cell.Row, 1) = "" Then Cells(cell.Row, 1) = Now() так чтобы не было времени?
не удобно (в моем случае )если делать сводную таблицу

[Hugo121]

Вариант с формой http://www.excelworld.ru/forum/2-716-1#8013

[MCH]

Сообщение от AKSENOV048

Добрый день Уважаемый IgorGo, подскажите пожалуйста как изменить If Cells(cell.Row, 1) = "" Then Cells(cell.Row, 1) = Now() так чтобы не было времени?
не удобно (в моем случае )если делать сводную таблицу

Int(Now())

[AKSENOV048]

Hugo121 это просто грэйтэбэл! сейчас просматриваю!отпишусь