Member Avatar for headworth
headworth 0 Newbie Poster

Please may i have some to help to convert excel workbook code vba to vb.net code?
This is the start of my buttoncommand

Dim Count As Long

    Count = 1
    For i = 2 To 65536

        If Cells(i, 1) <> "" Then
            Count = Count + 1
        End If
    Next i

    Dim date_row As Date
    date_row = Cells(Count, 1).Value
    date_row = date_row + 1


    Sheets("Sheet1").Cells(1, 1)(Rows.Count, "A").End(xlUp).Offset(1).Value = date_row
Edited by pritaeas because: fixed formatting
  • 1 Contributor
  • 0 Replies
  • 44 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.