I am trying to send data, that has been inserted in a textbox on a pop
up form, to a spreadsheet. It works but I have two forms one that
places Disposition Notes and one that places Location Notes. My
problem is getting the Location Notes section to move down when I add
another set of Disposition Notes. Right now it places data under the
Disposition heading but overwrites it next time I enter data. I want it
to find the end of the previous data in the line before and skip on
line then list the nest entry. I hope this is a good description.

My Spreadsheet looks like this:
-----------------------------------------------------------------------
NOTES PAGE

DISPOSITION NOTES
Change Number: (Value From ChangeNum.text)
Part Number: (Value From DPartNum.text)
(Value from DNotes_Box.text)


LOCATION NOTES
Top Number: (Value From ChangeNum.text)
Part Number: (Value From LPartNum.text)
(Value from LNotes_Box.text)
-----------------------------------------------------------------------

Here is my code:

Private Sub Submit_DNotes_Click()

With Worksheets("Notes")
cUseRow = .Cells(5, "G").End(xlDown).Row + 1
' may need to change this to insert muliple rows
Rows(cUseRow).Insert Shift:=xlDown

..Cells(cUseRow + 1, "G").Value = "Change Number: " & ChangeNum.Text
..Cells(cUseRow + 2, "G").Value = "Part Number: " & DPartNum.Text
..Cells(cUseRow + 3, "G").Value = DNotes_Box.Text

End With

DNotesForm.Hide

End Sub


Thank you for your help.
Morry


---
Message posted from http://www.ExcelForum.com/