Create saved database

Case Sample:
- there are two sheets (sheet1 and sheet2)
- sheet1, the user puts values only in cells A1:A5 and B6:B10
- sheet1 has a savedata button and newdata button
- sheet1 must function as a reusable form so the input data in cells A1:A5 and B6:B10 could be saved and transposed to sheet2 starting from A1:E1 and G1:K1.
- now when the user inputs another set of values in sheet1 in A1:A5 and B6:B10 it will then be saved and transposed to sheet2 starting from A2:E2 and G2:K2
- what is the formula for this? thanks...

Use the builtin form of Excel or use a VBA userform (that is designed for this kind of task).

this is the sample vb code.... i want to use loop but i cant arrange it... please fix... thanks


Sub SaveData()
'
' SaveData Macro
'

'
Do
If IsEmpty(ActiveCell) Then
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"
End If
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))

Range("B8:B10").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("D2").Select
ActiveSheet.Previous.Select
Range("B9").Select
Application.CutCopyMode = False
Range("B13:B15").Select
Selection.Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A2").Select
ActiveSheet.Previous.Select
Application.CutCopyMode = False
End Sub

sorry i didnt get it... what changes have you made in my vb? thanks

Here you go

Please Login or Register  to view this content.

@Davegugg
I avn't got the faintest... (didn't see much improvement since Excel 2000).