copying data into new worksheet

  • ok, i'm very new to excel, infact i was scared of it up until a month ago when i began my 'very basic' applications course.
    my query is this, i have a created a POS style worksheet, i have buttons that open other buttons and msg boxes, i even have a delete button that works! but i cant seem to be able to get my data to copy into worksheet 2 when i've finished putting the data in.
    i would like my info from ws1 to copy into ws2 simultaneously, i would also like ws1 to basically blank at the end of the day and open empty the next day but all the info on ws2 to stay where it is. when i begin again the next day, i would like the info from ws1 to dump into the next available cell from the day before. am i making sense?
    i would also like for my delete button to delete on ws1 but highlight and 'not' delete on ws2.
    again, i stress that i am a complete blank slate when it comes to excel vba but i am keen to get to know it better. is it possible to be able to do what i want simply and with little code? or have i bitten of more then i can chew?


    cheers for your time :)
    'fly

  • Re: copying data into new worksheet


    ok, now i'm extremly embaressed, would you like my code or a look at layout? but i can assume, so i'll jump in and if i'm of base, plz, dont be shy, spell it out to me :? :thanx:


    Private Sub input_data()
    Dim rg As Range
    Set rg = Range("a2")
    'ActiveCell = rg
    Do Until IsEmpty(rg) = True
    Set rg = rg.Offset(1, 0)
    Loop


    rg.Value = Now()
    rg.Offset(0, 1).Value = InputBox("name")
    rg.Offset(0, 2).Value = InputBox("username")
    rg.Offset(0, 3).Value = InputBox("pc")
    MsgBox ("good to go")


    End Sub


    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
    End Sub


    Private Sub CommandButton1_Click()
    UserForm4.Show


    End Sub


    Private Sub CommandButton2_Click()
    Selection.Delete Shift:=xlUp
    End Sub


    Private Sub hours_Click()
    Set rg = Range("e2")
    UserForm1.Show


    End Sub


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    End Sub



    'did that help?


    'fly

  • Re: copying data into new worksheet


    another Q is, where do i put the code once i have it? do i put it in with one of the userforms/buttons or do i add it into the main sheets vba??
    i'm happy to try to work it out, so if someone would rather direct me to where i can find the code, or tell me exactle what it is i'm looking for that would be good too :)


    cheers
    'fly