M
morry
I am kind of new at this Forum stuff. I submitted a post a few days ag
that was part of what I'm going to submit today and I didn't no if i
would show up as a new post so I'm submitting a new one.
First of all I want to thank Bob Phillips for the code he sent me i
was a good star to my problem.
My Excel Sheet Looks like this:
-----------------------------------------------------------------------
Notes Page
Disposition Notes
Change Number (Value From ChangeNum.text)
Part Number (Value From DPartNum.text)
Location Notes
Top Number (Value From ChangeNum.text)
Part Number (Value From LPartNum.text)
-----------------------------------------------------------------------
I have two forms that can paste info into my sheet
My Code so far is:
-----------------------------------------------------------------------
Private Sub Submit_DNotes_Click()
With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "G").End(xlUp).Row
.Cells(cLastRow + 1, "G").Value = "Change Number " ChangeNum.Text
.Cells(cLastRow + 2, "G").Value = "Part Number " DPartNum.Text
.Cells(cLastRow + 3, "G").Value = DNotes_Box.Text
End With
End Sub
----------------------------------------------------------------------
Private Sub Submit_LNotes_Click()
With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "G").End(xlUp).Row
.Cells(cLastRow + 2, "G").Value = "Top Number " & TopNum.Text
.Cells(cLastRow + 3, "G").Value = "Part Number " & LPartNum.Text
.Cells(cLastRow + 4, "G").Value = LNotes_Box.Text
End With
End Sub
-----------------------------------------------------------------------
My Problems are:
I need to be able to type in a set of information into the three tex
boxes (for either form) and more that one set of data may have to b
entered using each form. For example distribution notes may have thre
sets of data and Location notes may only have one set. I want the tw
headers (Disposition Notes and Location Notes) to be set up like th
Sheet layout I listed. But I need them to be pushed down if Dispositio
has more than one set of data so the data remains under that heading.
I have also tried to make the Strings that are listed in my code to b
indented according to my Sheet layout. I tried to use: (.IndentLevel
1) but I don't know where to put it.
If anyone would like to help me out and try to tackel this challenge
would be so grateful. Maybe it isn't even much of a challenge at al
and i'm making it out to be harder than it is.
Also if you know of a VBA for Excel reference book that is really goo
could you let me know because I'm new to this language.
Thank you very much,
Morr
that was part of what I'm going to submit today and I didn't no if i
would show up as a new post so I'm submitting a new one.
First of all I want to thank Bob Phillips for the code he sent me i
was a good star to my problem.
My Excel Sheet Looks like this:
-----------------------------------------------------------------------
Notes Page
Disposition Notes
Change Number (Value From ChangeNum.text)
Part Number (Value From DPartNum.text)
Location Notes
Top Number (Value From ChangeNum.text)
Part Number (Value From LPartNum.text)
-----------------------------------------------------------------------
I have two forms that can paste info into my sheet
My Code so far is:
-----------------------------------------------------------------------
Private Sub Submit_DNotes_Click()
With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "G").End(xlUp).Row
.Cells(cLastRow + 1, "G").Value = "Change Number " ChangeNum.Text
.Cells(cLastRow + 2, "G").Value = "Part Number " DPartNum.Text
.Cells(cLastRow + 3, "G").Value = DNotes_Box.Text
End With
End Sub
----------------------------------------------------------------------
Private Sub Submit_LNotes_Click()
With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "G").End(xlUp).Row
.Cells(cLastRow + 2, "G").Value = "Top Number " & TopNum.Text
.Cells(cLastRow + 3, "G").Value = "Part Number " & LPartNum.Text
.Cells(cLastRow + 4, "G").Value = LNotes_Box.Text
End With
End Sub
-----------------------------------------------------------------------
My Problems are:
I need to be able to type in a set of information into the three tex
boxes (for either form) and more that one set of data may have to b
entered using each form. For example distribution notes may have thre
sets of data and Location notes may only have one set. I want the tw
headers (Disposition Notes and Location Notes) to be set up like th
Sheet layout I listed. But I need them to be pushed down if Dispositio
has more than one set of data so the data remains under that heading.
I have also tried to make the Strings that are listed in my code to b
indented according to my Sheet layout. I tried to use: (.IndentLevel
1) but I don't know where to put it.
If anyone would like to help me out and try to tackel this challenge
would be so grateful. Maybe it isn't even much of a challenge at al
and i'm making it out to be harder than it is.
Also if you know of a VBA for Excel reference book that is really goo
could you let me know because I'm new to this language.
Thank you very much,
Morr