LOOP UNTIL COLUMN C HAVE A NULL VALUE

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

LOOP UNTIL COLUMN C HAVE A NULL VALUE

Post by sal21 »

Code: Select all

Private Sub APRIFILE()

    Set XLAPP = CreateObject("Excel.Application")
    XLAPP.Visible = False

    'Debug.Print XLSPATH & NOMEFILE

    Set XLWB = XLAPP.Workbooks.Open(XLSPATH & NOMEFILE)

    Call LEGGI_RIGHE

    XLWB.Close
    XLAPP.Quit

    Set XLAPP = Nothing
    Set XLWB = Nothing

End Sub
Private Sub LEGGI_RIGHE()

Set XLSH = XLWB.Worksheets(1)

....
HERE THE LOOP
...

End Sub

i need to loop from row 10 of column C untill the last cell is null
and get value from the related column D, E , F ... to K

NOTE:
All variable are in module as public var
i'm on vb6

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

Re: LOOP UNTIL COLUMN C HAVE A NULL VALUE

Post by HansV »

Code: Select all

Private Sub LEGGI_RIGHE()
    Dim RIGA As Long
    Dim ULTIMA_RIGA As Long
    Set XLSH = XLWB.Worksheets(1)
    ULTIMA_RIGA = XLSH.Cells(XLSH.Rows.Count, "C").End(-4162).Row
    For RIGA = 10 To ULTIMA_RIGA
        VAR_D = XLSH.Cells(RIGA, "D").Value
        ' etc.
    Next RIGA
End Sub
Best wishes,
Hans

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

Re: LOOP UNTIL COLUMN C HAVE A NULL VALUE

Post by sal21 »

HansV wrote:
13 Oct 2022, 19:27

Code: Select all

Private Sub LEGGI_RIGHE()
    Dim RIGA As Long
    Dim ULTIMA_RIGA As Long
    Set XLSH = XLWB.Worksheets(1)
    ULTIMA_RIGA = XLSH.Cells(XLSH.Rows.Count, "C").End(-4162).Row
    For RIGA = 10 To ULTIMA_RIGA
        VAR_D = XLSH.Cells(RIGA, "D").Value
        ' etc.
    Next RIGA
End Sub
:clapping:

and :clapping: for ... you remember i can use RIGA and ULTIMA, in all my project!