Turn this into VBA code

  • Thread starter Thread starter Don
  • Start date Start date
D

Don

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
 
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
 
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.
 
Back
Top