Automatic Insert Row & Carriage Return

[ZimBoy]

Hope someone can help me out with these 2 issues:

(1st Problem)

I have a spreadsheet that in one section has Part Numbers , Assembly
ID, Q/A Code, Quantity, Production Tag # ...... and so on ad nauseam.

A1:Q34

Right now I manually insert a new line for each new part number and
this is tedious when a project might have 200 lines to be entered and
error checked.

Is there not a way using vba to do a carriage return/line feed instead
of the good but mind numbing manual way.

--------------------------------------------------------------------------------------------------------

( 2nd Problem )

The same spreadsheet is sent to other people and signed but some areas
I have protected so they can be viewed but not inadvertently altered.
What I would like to do is set the scroll area automatically so people
can tab from one place to the other and enter their names and comments
as required.

As the spreadsheet varies in depth according to the number of parts
entered I don't seem to be able to set the scroll area to increase or
decrease accordingly.


Thank you in advance for any pointers you might toss my way.

 

[DNA]

(1st Problem)

Not sure if this will help, but try using this code. It places a blank
line in between each row.

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i - 1, 1) <> Cells(i, 1) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub


(2nd Problem)

Why not try formatting the cells and allow for text to merely wrap? As
more information is keyed the cell(s) can grow and vice versa.