Este fórum está sendo desativado

[gabrielc]

Boa tarde, pessoal!
Alguem sabe como posso fazer isso:


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:

Código: Selecionar todos

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