Find last row

[johnster]

Why does my code not work? It always writes in row A

The code in green works fine.

Private Sub CommandButton100_Click()
Dim lItem As Long
Dim IRange As Integer

For lItem = 0 To ListBox1.ListCount - 1
ListBox1.ColumnCount = 2
With Worksheets("Sheet6")
.Cells(lItem + 5, 1) = ListBox1.List(lItem, 0)
.Cells(lItem + 5, 2) = ListBox1.List(lItem, 1)
End With

With Sheets("Histo")
Item = Worksheets("Histo").Cells(Rows.Count, 1).End(xlUp).Value
.Cells(lItem + 1, 1) = Date
.Cells(lItem + 1, 2) = ListBox1.List(lItem, 0)
.Cells(lItem + 1, 3) = ListBox1.List(lItem, 1)
End With

 

[MARK858]

I will look at it if no-one else does when I get in tonight but just to clarify my earlier post you were using Item to define the last row but then not using it.

You were using IItem + 1 etc.

 

[johnster]

I will look at it if no-one else does when I get in tonight but just to clarify my earlier post you were using Item to define the last row but then not using it.

You were using IItem + 1 etc.

Mark,

Thank in advance. I really appreciate this.

 

[MARK858]

        With Sheets("Histo")
        LastRow = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
            .Cells(LastRow + 2, 1) = Date
            .Cells(LastRow + 2, 2) = ListBox1.List(LItem, 0)
            .Cells(LastRow + 2, 3) = ListBox1.List(LItem, 1)
        End With

 

[johnster]

        With Sheets("Histo")
        LastRow = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
            .Cells(LastRow + 2, 1) = Date
            .Cells(LastRow + 2, 2) = ListBox1.List(LItem, 0)
            .Cells(LastRow + 2, 3) = ListBox1.List(LItem, 1)
        End With

Mark,

The code is working very well, Thank you very much for your patience with me

Little question, Is it possible when you selecting a row in a sheet to copy (with a commandbutton) again to your listbox?