учет товара

[AKSENOV048]

IgorGo параллельно к вам вопрос по поводу сайта, именно этот сайт очень долго открывается, все остальные работаю нормально, удалил куки, почистил кэш, не помогает что может быть?

[IgorGO]

исправил условие проверки

[AKSENOV048]

уважаемый IgorGo, сейчас вроде все нормально работает, тестирую, отпишусь о работе как закончу тестировать! как вы думаете может на листе ПРИХ-РАСХ удалить столбец остаток, роли он ни какой не имеет?! и можете дать комментарии к коду(не во всем разобрался)?

ps: извините за долгий период молчания, не грузился сайт

[IgorGO]

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

[AKSENOV048]

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

[IgorGO]

последний - можно удалить. я его вообще не заметил, вот и вставил "наличие"

[AKSENOV048]

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

[IgorGO]

исправил. пробуйте ввести уже существующее название в базе

[AKSENOV048]

сейчас попробую

[IgorGO]

Private Sub Worksheet_Change(ByVal Target As Range)
' процедура срабатывает при каждом изменении значений в ячейках листа
  If Intersect(Target, Columns(3)) Is Nothing Then Exit Sub
  ' если изменилось значение не в колонке 3 - это нас не волнует
  For Each cell In Intersect(Target, Columns(3))
  ' "фор" на всякий случай, если изменения затронули несколько ячеек (например копированием) 
    If cell <> "" Then
      If Cells(cell.Row, 1) = "" Then Cells(cell.Row, 1) = Now()
      ' если в первой ячейке пусто вставить туда текущую дату
      If Cells(cell.Row, 6) = "" Then
        Cells(cell.Row, 6) = Sheets(1).Cells(WorksheetFunction.Match(cell, Sheets(1).Columns(2), 0), 5)
        ' если пусто в 6-й ячейке - вносится соотв. цена с листа база
      End If
      If Cells(cell.Row, 7) = "" Then
        Cells(cell.Row, 7) = Sheets(1).Cells(WorksheetFunction.Match(cell, Sheets(1).Columns(2), 0), 4)
        ' если пусто в 7-й ячейке - вносится соотв. цена с листа база
      End If
    End If
  Next
End Sub

все... у меня "тихий час" до завтрашнего утра

кроме того - Вы стремительно исчерпываете лимит бесплатных консультаций