Closed Thread
Results 1 to 5 of 5

Delete rows with specific column values

  1. #1
    Registered User
    Join Date
    10-08-2008
    Location
    Hallandale
    Posts
    44

    Delete rows with specific column values

    I’m pretty new to VBA and macros and I’m trying to delete rows if specific columns have certain values.
    I tried different ways of doing it and I end up with a lot of headache.
    I used other people codes but they were just to hard to understand what’s going on.
    So I came up with this solution of solving the problem: I used Auto filter to select specific values and just deleted the rows.
    Now I’m wondering why I don’t see other people use this solution?
    Is there a major flaws in solving the problem this way?
    If somebody has better and easier to understand solution will be glad to try using it.



    What I did here is auto filter for column D and value 99 and deleted it and then column D and value blank and deleted it and finally column F and value 0 and deleted it.



    Sub Macro2()
    '
    ' Macro2 Macro
    ' Macro recorded 10/16/2008 by Preferred User
    '
    Cells.Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="99"
    Rows("2:65536").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Selection.AutoFilter Field:=4
    Selection.AutoFilter Field:=6, Criteria1:="0"
    Rows("2:65536").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Selection.AutoFilter Field:=6
    Selection.AutoFilter Field:=4, Criteria1:="="
    Rows("2:65536").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Selection.AutoFilter Field:=4
    '
    End Sub

  2. #2
    Forum Contributor Stuie's Avatar
    Join Date
    09-17-2006
    Location
    Suffolk, UK
    MS-Off Ver
    Excel 2003/2007
    Posts
    432
    Hi koklok,

    This should save you getting a head ache,

    this will go through every cell in column D and if the value = 99 it will delete the row.

    give this a go
    Please Login or Register  to view this content.
    please remeber this checks all cells in col D so may take some time how ever you can enter a line to exit if a condition is met eg. if the cl value is blank then exit

    if you want that in let me know and i will update

    EDIT: and try to keep your code in the
    Please Login or Register  to view this content.
    brackets so as not to get into trouble my mods
    Last edited by Stuie; 10-16-2008 at 09:21 AM.
    There are only 10 types of people in the world:
    Those who understand binary, and those who don't!

  3. #3
    Registered User
    Join Date
    10-08-2008
    Location
    Hallandale
    Posts
    44
    Stuie,

    Thanks for the help but I’m afraid that this is not solving my problem

    I need a code that will look into column D and Delete all values 99 (your codes does that)
    But I also need next code to go thru column D and find all blank cells and delete the whole row.
    3 rd item that I need is to go to column F and find all the values equal to 0 and delete the whole row.

    I tried adjusting your formula but I’m getting message that is a duplicate.

    What do I need to do to get this working?

  4. #4
    Forum Contributor Stuie's Avatar
    Join Date
    09-17-2006
    Location
    Suffolk, UK
    MS-Off Ver
    Excel 2003/2007
    Posts
    432
    Ok then no probs,

    try this,

    Please Login or Register  to view this content.
    i have just tacked the col F deleting on the end and put the if Blank delete in the origanl part

  5. #5
    Forum Contributor VBA Noob's Avatar
    Join Date
    04-25-2006
    Location
    London, England
    MS-Off Ver
    xl03 & xl 07(Jan 09)
    Posts
    11,988
    koklok,

    PM me if you agree to the forum rules and I will unlock this thread so you can wrap your code and add the link to the cross post


    VBA Noob
    Last edited by VBA Noob; 10-16-2008 at 02:56 PM.
    _________________________________________


    Credo Elvem ipsum etian vivere
    _________________________________________
    A message for cross posters

    Please remember to wrap code.

    Forum Rules

    Please add to your signature if you found this link helpful. Excel links !!!

Closed Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. delete entire rows based on a criteria
    By acekargo in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 07-30-2008, 11:15 PM
  2. delete duplicate rows - looking at specific cells
    By wheelscpa in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 02-26-2008, 07:07 PM
  3. Delete rows which contain x and -x in amount column
    By jcoffelt in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 08-31-2007, 12:58 PM
  4. Need Macro to delete duplicate Values in Column
    By floridagunner in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 07-19-2007, 11:45 PM
  5. Separating rows based on boolean values?
    By Ulnarian in forum Excel General
    Replies: 1
    Last Post: 11-03-2006, 05:40 PM

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1