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
arrow
arrow
    全站熱搜

    software 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄