Where does it go?
Where does it go?
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Where does it go?

  1. #1
    New Member
    Join Date
    Apr 2002
    Posts
    21
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    I've got this formula, but I don't know how to apply it to the data? Ie where do I type it in?

    Range("C1").Select
    For i = 1 To 2048
    If ActiveCell.Value Like "TEXT" Then
    ActiveCell.EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(0, 2).Select
    Else
    ActiveCell.Offset(RowOffset:=1).Select
    End If
    Next i

  2. #2
    MrExcel MVP Joe Was's Avatar
    Join Date
    Feb 2002
    Location
    Central Florida, USA
    Posts
    7,539
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    Right click the sheet tab of the sheet that you want the code to work on. Select "view Code." Type:

    Sub myTextDelete()

    and hit enter.
    Then copy the code you posted between the Sub and End statements.

    Your code will search column C starting with "C1" and ending with "C2048" for any cell with the word "TEXT" as case sensitive. If found on your sheet it will delete the entire row that contained "TEXT" in column "C." Hope this helps. JSW

    [ This Message was edited by: Joe Was on 2002-04-11 19:52 ]

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com