If statement in Excel spreadshhet opened from Access

bugsy

Registered User.
Local time
Yesterday, 21:26
Joined
Oct 1, 2007
Messages
99
Hi
I am opening excel spreadsheet from access.
At some point I populate cetrain cells with words

this seems to be working fine
Code:
  c.Offset(, 35).Value = "cusip"

Now I would like to put a condition, if that cell is not empty, put it int next cell. What I created below, doesn't work.
Any suggestions ?


Code:
With objActiveWkb.Worksheets("Reconciliation Sheet").Range("F5:F500") 
    Set c = .Find("No", , , xlWhole, , , True) 
    If Not c Is Nothing Then 
        sAddress = c.Address 
        Do 
            If c.Offset(, 35).Value Is Not Null Then 
                c.Offset(, 35).Value = "cusip" 
            Else 
                If c.Offset(, 36).Value Is Not Null Then 
                    c.Offset(, 36).Value = "cusip" 
                    Else 
                        If c.Offset(, 37).Value Is Not Null Then 
                            c.Offset(, 37).Value = "cusip" 
                        End If 
                   End If 
            End If 
            
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> sAddress 
    End If 
End With
 

Users who are viewing this thread

Back
Top Bottom