Inputing & Collecting Data

Hey,

I've just been asked to do a new Quality Control project for my boss. What I'm looking to do is be able to input the thickness values of our product in one worksheet, and have it recorded in another, as well as have the data separated by the model number

The main problem I'm having is figuring out how to enter data in the 1 worksheet as a template, and have the data consecutively stored, one after the other

Are there any functions that will allow me to do this?

Thank you for your time,
Bob

Things like this can't be done with functions, only by vba.

I've written a little macro for you and installed it in the sheet. Just enter the values and press the button and it will transfer for you.

Hey, that looks EXCELLENT. Thank you SOOOO much

this isn't fully necessary, but by any chance, if its not too difficult, would you be able to record it without recording the boarders in the Model sheets?

in the attachment, worksheets "Model A" & "Model B" is how i'd prefer it to look, and "Model C" is how it records.

I'm sorry to be asking for this, but could you help me out with this?

Thank you SOOOOO much
Bob

I've adjusted the macro so that it will now copy all the data down to however many categories you add in column E. Expand them as you wish and the macro will include them.

Also borders are not copied now.

Also, a Data validation list is used in F6 to insure the correct model # spellings are used since even a tiny misspelling like an unseen space would cause the macro to crash. Best to validate that cell.

Option Explicit

Sub TransferData()
'JBeaucaire  (12/18/2009)
Dim RNG As Range, ws As Worksheet, LR As Long
Application.ScreenUpdating = False
LR = Range("E" & Rows.Count).End(xlUp).Row
Set RNG = Range("F5:F" & LR)

If WorksheetFunction.CountA(RNG) < LR - 5 Then
    MsgBox "Please fill in all " & LR - 5 & " values"
    Exit Sub
Else
    Set ws = Sheets("Model " & Range("F6"))
    RNG.Copy
    ws.Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValuesAndNumberFormats
    RNG.ClearContents
    [F5].Select
End If

Application.ScreenUpdating = True
End Sub

============
If that takes care of your need, be sure to EDIT your original post, click Go Advanced and mark the PREFIX box [SOLVED].


(Also, use the blue "scales" icon in our posts to leave Reputation Feedback, it is appreciated. It is found across from the "time" in each of our posts.)