Hello themikeford,
Welcome to the Forum!
The macro code below is for "TextBox1" and "TextBox2". I used these as default names because I don't know what you named your TextBoxes. Copy the code from the Dim statement to the line before the End Sub and paste this into the AfterUpdate procedure for your text box where the date is entered. Change "TextBox2" in the macro to match the name of the"Quantity In" text box.
Private Sub TextBox1_AfterUpdate()
Dim C As Long
Dim D As Integer
Dim FindDate As Range
Dim GivenDate As Variant
Dim M As Integer
Dim QtyIn As Double
Dim R As Long
Dim Y As Integer
Dim Wks As Worksheet
Set Wks = Worksheets("Title")
QtyIn = Val(TextBox2)
GivenDate = CDate(ActiveControl.Value)
D = Day(GivenDate)
M = Month(GivenDate)
Y = Year(GivenDate)
GivenDate = Format(GivenDate, "mmm-yyyy")
Set FindDate = Wks.Rows(2).Cells.Find(GivenDate, , xlValues, xlWhole, xlByRows, xlNext, False)
If Not FindDate Is Nothing Then
R = FindDate.Row: C = FindDate.Column
Wks.Cells(R + 3 + D, C + 1) = QtyIn
End If
End Sub
Bookmarks