Turn this into VBA code
 

I have the following function in my worksheet that works
nicely. It check to see if one cell to the left starts
with 8 blank spaces (others start with more). If only the
first eight characters are spaces, do something,
otherwise, do something else.

=IF(AND(LEFT(a12),8)=REPT(" ",8),MID(a12,9,1)<" "),Dome
Something, Do something else).

I would love to be able to write an IF statement in VBA
that does this. It looks as if it's going to be a nested
if statement, but can these functions be used?

A12 will vary of course, so I am going to have something
like "RC[-1]".

Thanks for any insight.

Don

Turn this into VBA code
 

Hi Don,

Maybe this will get you going:

Dim r, c As Integer
r = 1
c = 2
Cells(r, c).Select
If Mid(Cells(r, c - 1), 1, 8) = " " Then
MsgBox "Eight spaces"
Else
MsgBox "Not Eight spaces"
End If



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Turn this into VBA code
 

Zantor

the code makes sense actually. However, there are some
cells that begin with, say 15 spacesm in which i do not
want to perform this function.

you have me thinking of a nested if now

If Mid(Cells(r, c - 1), 1, 8) = " " Then
If Mid(Cells(r,c-1),8,1) < " " Then
Do Something
End IF
End IF

then I could possibly write a FOR loop that goes down the
entire column. Thanks. I have something to go by now.



-----Original Message-----
Hi Don,

Maybe this will get you going:

Dim r, c As Integer
r = 1
c = 2
Cells(r, c).Select
If Mid(Cells(r, c - 1), 1, 8) = " " Then
MsgBox "Eight spaces"
Else
MsgBox "Not Eight spaces"
End If



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from
http://www.ExcelForum.com/

.