input value default by 1.

[rapitorres]

Hi anyone can help me?
I've been having difficulty in making the input box value default by "1"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Dim ans As String
ans = InputBox("Enter Quantity")
Target.Offset(, 4).Value = ans

I want to make the pop-up box value default by 1. and still can be edited by the user.
is that possible? or do I need to take another route for this? the line of code above is working fine.
I just want the value to default by 1.

 

[sykes]

ans = InputBox("Enter Quantity", , "1")

 

[dmt32]

Hi,
try this update to your code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ans As Variant

    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
        
        Do
            ans = InputBox("Enter Quantity", "Enter Quantity", 1)
            'cancel pressed
            If StrPtr(ans) = 0 Then Exit Sub
        Loop Until Val(ans) > 0
        
        Target.Offset(, 4).Value = Val(ans)
        
    End If
    
End Sub

Dave

 

[rapitorres]

Hi Dave it works really well.
this is exactly what I need. I need to practice more i see you added do function

ans = InputBox("Enter Quantity", , "1")

Thank you so much. appreciate this. that little tweak help me.

 

[dmt32]

You are welcome, glad we were able to help

Appreciate feedback

Dave