SET LAST blank cell in column B in FOGLIO1

User avatar
sal21
PlatinumLounger
Posts: 4334
Joined: 26 Apr 2010, 17:36

SET LAST blank cell in column B in FOGLIO1

Post by sal21 »

i'm on vb6.
...
Set XLAPP = CreateObject("Excel.Application")
Set XLWB = XLAPP.Workbooks.Open(Directory & NOMEFILE)
Set XLWS = XLWB.Worksheets("FOGLIO1")
...

in vba i use

ULTIMA = WS1.Range("B" & Rows.Count).End(xlUp).Row

how to in VB6?

User avatar
HansV
Administrator
Posts: 78232
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: SET LAST blank cell in column B in FOGLIO1

Post by HansV »

ULTIMA = XLWS.Range("B" & XLWS.Rows.Count).End(-4162 ).Row

-4162 is the value of xlUp - see XlDirection enumeration (Excel)
Best wishes,
Hans