M
morry
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
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