If Date Enter in specific column then input box open to enter number of the same row data enter

mamun.ges · Feb 9th 2022

Hi, Hope all are fine.

I looking for a code for the below problem.

The fact is

If I enter a date in any cell of L9 to L1200 then an input box pops up asking for the number of days. If I give a number then the number unloads in "AP" column to the same row where date entered

A message will show that number unloaded.

If I reject the input box then no data unload message shows.

Thanks in Advance

rollis13 · Feb 9th 2022

See if you can fit this macro in your project; needs to be pasted in the sheet's module.

Code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim quantity As Variant
    If Target.Count > 1 Or Intersect(Target, Range("L9:L1200")) Is Nothing Then Exit Sub
    quantity = InputBox("Please indicate the ammount to reduce", "Quantity handling")
    If Not IsNumeric(quantity) Or quantity = vbNullString Then Exit Sub
    Application.EnableEvents = False
    Range("AP" & Target.Row).Value = Range("AP" & Target.Row).Value - quantity
    Application.EnableEvents = True
    MsgBox "Cell " & Range("AP" & Target.Row).Address(0, 0) & " reduced by " & quantity & " units."
End Sub

Display More

If Date Enter in specific column then input box open to enter number of the same row data enter

Participate now!

Share

Tags