Salvar o nome do produto quando a quantidade for baixa
Enviado: 15 Jul 2016 às 09:04
Boa tarde, pessoal!
Eu preciso de que, quando a quantidade atual for menor do que 3, por exemplo, em uma outra planilha nomeada como List 2, apareça o nome do produto em falta. Algo assim: se E5 for menor que 3, em uma outra lista aparecerá o A5 (célula com o nome). Mas eu não quero que isso seja global, pois tem itens que a quantidade baixa é 30, por exemplo...
Eu já uso um macro para uma atualização de data de modificação:
Uso esse cod pra poder atualizar a data de modificação de uma célula
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Dim lngLastRow As Long
lngLastRow = Sheets("Folha3").Range("B" & Rows.Count).End(xlUp).Row
Set WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
ActiveCell.Offset(-1, 0).Copy Destination:=Worksheets("Folha3").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
Eu preciso de que, quando a quantidade atual for menor do que 3, por exemplo, em uma outra planilha nomeada como List 2, apareça o nome do produto em falta. Algo assim: se E5 for menor que 3, em uma outra lista aparecerá o A5 (célula com o nome). Mas eu não quero que isso seja global, pois tem itens que a quantidade baixa é 30, por exemplo...
Eu já uso um macro para uma atualização de data de modificação:
Uso esse cod pra poder atualizar a data de modificação de uma célula
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Dim lngLastRow As Long
lngLastRow = Sheets("Folha3").Range("B" & Rows.Count).End(xlUp).Row
Set WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
ActiveCell.Offset(-1, 0).Copy Destination:=Worksheets("Folha3").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub