Add text from textbox to cell based on criteria

[SimondsJM]

I have a Form "NewCourse" that is launched from a button "CmdANC" on a sheet "Sheet2(Vendor List)".

On this form I have a ComboBox "CBox1" that pulls its List from "Sheet2(Vendor List)" as needed. There is also a textbox "TxtBx1" that requires the user to input data to be added to "Sheet2(Vendor List)".

What I need is my Command Button "AddCourse" to look at "Sheet2(Vendor List)" in Column B for selected text in "CBox1" then drop down a row and insert a new row then add the text in "TxtBx1" to that new Rows Column C.

any help wpuld be greatly appreciated.

 

[AlphaFrog]

Private Sub AddCourse_Click()
    Dim Found As Range
    If Len(TxtBx1.Value) > 0 And Len(CBox1.Value) > 0 Then
        Set Found = Columns("B").Find(CBox1.Value, , xlValues, xlWhole, xlNext, False)
        If Found Is Nothing Then
            MsgBox "Couldn't match " & CBox1.Value, vbExclamation, "No Match Found"
        Else
            Found.Offset(1).EntireRow.Insert
            Found.Offset(1, 1).Value = TxtBx1.Value
        End If
    Else
        MsgBox "Vendor selection or vendor text is missing.", vbExclamation, "Missing Enrty"
    End If
End Sub

 

[SimondsJM]

Ok that works great now I need to add in some border changes to the new row, Column B and C?

I have the code for the borders just need to know where to add it in, or is there going to have to be some modifications to get it to work?

 

[AlphaFrog]

Add it between Else and End If after the new row is inserted. One way to reference the new inserted row cells B and C...
Found.Offset(1).Resize(,2)