close
Hello,
This is my VBA procedu
I'd like to add in row T11 all values for the different customer number that
the users enter in the Inputbox.
Dim ans
Dim fValid As Boolean
fValid = False
Do
ans = InputBox(quot;Input Customer Numberquot;)
If ans = quot;quot; Then
Exit Sub
Else
If IsNumeric(ans) Then
If ans gt; 0 Then
fValid = True
iMatch = Application.Match(ans, Range(quot;A:Aquot;), 0)
'more code
End If
End If
End If
Loop Until fValid
Range(quot;T11quot;).Value = ActiveCell.Offset(iMatch - ActiveCell.Row 1, 16 -
ActiveCell.Column 1)--
Regards,
Jeff
全站熱搜
留言列表
