copy data from list box to worksheet

[najumdn]

hai

i have a worksheet that record sale for monthly, every day i want retrive data from daily sales sheet to a userform multi colmn list box
, that i done alredy, the problum is i need that list box data copy to monthly sale record for each day, some one help me pls. i attach the worksheet together

[humdingaling]

the data is on the sheet already
why not just copy the data from the sheet across to the monthly sheet instead of trying to go thru the listbox?

[najumdn]

thanks for reply humdingaling
this worksheet for an understanding only actual scenario is monthly worksheet is diffrent file daily sale is different file, retrive daily sale to list box and user want to check the entry is correct then it save to monthly with out open the daily sale file,

[humdingaling]

yes but the data is the same unless you are telling me the listbox is populated with numerous day's sales
in which there should be a day number to coincide with the relevant date to extract?

see attached example of what i mean

[najumdn]

ok lets make it simple, how can copy data from a multicolmn list box to work sheet ?, i am seeking the answer for this qustion, actualy the date available in monthly sheet 1, 2 to 30 that is my target row, that represent for each day

[humdingaling]

you didn't answer my question but anyway

    If ListBox1.ListIndex <> -1 Then
        With Worksheets("Sheet2").Cells(lItem, 3)
            .Value = ListBox1.List(ListBox1.ListIndex, 1)
            .Offset(, 1) = ListBox1.List(ListBox1.ListIndex, 2)
            .Offset(, 2) = ListBox1.List(ListBox1.ListIndex, 3)
            .Offset(, 3) = ListBox1.List(ListBox1.ListIndex, 4)
            .Offset(, 4) = ListBox1.List(ListBox1.ListIndex, 5)
            .Offset(, 5) = ListBox1.List(ListBox1.ListIndex, 6)
            .Offset(, 6) = ListBox1.List(ListBox1.ListIndex, 7)
            .Offset(, 7) = ListBox1.List(ListBox1.ListIndex, 8)
            .Offset(, 8) = ListBox1.List(ListBox1.ListIndex, 9)
            .Offset(, 9) = ListBox1.List(ListBox1.ListIndex, 10)
            .Offset(, 10) = ListBox1.List(ListBox1.ListIndex, 11)
            .Offset(, 11) = ListBox1.List(ListBox1.ListIndex, 12)
            .Offset(, 12) = ListBox1.List(ListBox1.ListIndex, 13)
        End With
    End If

[bakerman2]

Isn't this a bit easier on the eye

    If ListBox1.ListIndex <> -1 Then
        With Worksheets("Sheet2").Cells(lItem, 3)
            .Value = ListBox1.List(ListBox1.ListIndex, 1)
            For i = 1 To 12
                .Offset(, i) = ListBox1.List(ListBox1.ListIndex, i + 1)
            Next
        End With
    End If

[bakerman2]

@ humdingaling

Thanks for the rep (and the clarification)

[bakerman2]

@ najumdn
humdingaling did most of the work but thanks for the rep anyway.

[humdingaling]

Thanks for the rep

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

[najumdn]

hai
first i want say sorry, because i am late to rplay. "sorry", i get answer its working fine
thanks for you both (humdingaling and bakerman2) and excel help forum.