Hi
I am opening excel spreadsheet from access.
At some point I populate cetrain cells with words
this seems to be working fine
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 ?
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