Delete cells with text and shift left?

  • Thread starter Thread starter Ryk
  • Start date Start date
R

Ryk

I have this from surfing here and it not work. What I have is column A
with headings, and what I copy into this would look something like this
for example....
( Used | to show cells)

Value|of|item|is|45|23|12|blah|23|16

What I need it to end up looking like is...

Value|45|23|12|23|16

It would need look for text in cells and delete those cells and shift
left over 7-8 columns.

The
Sub MoveText()
Dim rCell As Range
Dim rCheck As Range
' either select a column, range or whatever on the sheet or
' set a value
'set rCheck=selection
Set rCheck = Range("D1:D15")
For Each rCell In rCheck
If IsDate(rCell) Then
rCell.Offset(0, -1).Delete Shift:=xlToLeft
End If
Next
Set rCell = Nothing
Set rCheck = Nothing
End Sub

The " If IsDate(rCell) Then " above I tried changing to " If
Istext(rCell) Then" but that not work. Ok Ok I am not the brightest
excel Bulb heheh.

Thanks for any help

Dave
 
suggest you start by posting your question to an Excel newsgroup. this
newsgroup answers questions about using macros in MS Access relational
database software (and, aside from being in a different software product,
macros in Excel are very, very different from macros in Access).
 
Back
Top