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?
SET LAST blank cell in column B in FOGLIO1
-
- PlatinumLounger
- Posts: 4334
- Joined: 26 Apr 2010, 17:36
-
- 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
ULTIMA = XLWS.Range("B" & XLWS.Rows.Count).End(-4162 ).Row
-4162 is the value of xlUp - see XlDirection enumeration (Excel)
-4162 is the value of xlUp - see XlDirection enumeration (Excel)
Best wishes,
Hans
Hans