Hello people,

I am having a little trouble.

I am trying to write an if statement into my submit button that will match the number that is in a text box on my form with a number listed in column G of a sheet.

On my form there are three text boxes and a submit button. In column G of my sheet i have a list of part numbers. When i press the submit button i want it to locate the number in column "G" on the sheet that matches the number in the text box (DPartNum.Text) and then place an * in column "O" of the same row that the number was found in column G.

Below is the code that i have tried to create.


Private Sub Submit_DNotes_Click()

With Worksheets("Notes")

Worksheets("Notes").Range("1:500").Rows.AutoFit
cLastRow = .Cells(Rows.Count, "F").End(xlUp).Row
.Cells(cLastRow + 2, "F").Value = "Change Number: " & ChangeNum.Text
.Cells(cLastRow + 3, "F").Value = "Part Number: " & DPartNum.Text
.Cells(cLastRow + 4, "F").Value = " " & DNotes_Box.Text

End With
If DPartNum.Text = Worksheets("Disposition").Range("G1:G500") Then
Worksheets("Disposition").Range("O").cols.Insert ("*")
End If

DNotesForm.Hide
ChangeNum.Text = ""
DPartNum.Text = ""
DNotes_Box.Text = ""
End Sub


The With statement is a different function that the button performs.

Thank you
Morry

Try this instead of your if

dim i as integer
for i=1 to 500
     if worksheets("Disposition").cells(i,"G")=DPartNum.te xt then
        worksheets("Disposition").cells(i,"O")="*"
        exit for
     end if
next

Let us know! Did it work?
Selby