How to append to a work sheet

ottomatic · #1 (**permalink**) 02-07-07, 17:40

Say I have a form with 10 text boxes and I want to right those 10 fields as a new row at the end of an existing sheet...
How would one accomplish this?

MikeTheBike · #2 (**permalink**) 02-08-07, 03:37

Hi again

Shouldn't be too dificult but you need to define 'the end of existing sheet'

ie, will the layout/columns change with time, is the existing sheet always the same one, is it always the currently active sheet etc. ??

MTB

shades · #3 (**permalink**) 02-08-07, 12:48

Here is code that will take it from cell values and appends at the end of a list. Perhaps this will give you some ideas.

Code:

Sub PasteList()
Dim LstRow As Integer
Dim myRange As Range
Application.ScreenUpdating = False

    'Copies list of questions below current list (column F)
    Set myRange = Sheets("List").Range("K3:K10")
    myRange.Copy
    Sheets("Work").Range("F65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Work").Range("G65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
Application.ScreenUpdating = True

End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech