| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need a macro to delete unwanted data
Hi all,
I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Hi,
Something along these lines: For i = 1 To 3 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next HTH "Jason" wrote: Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Put a b in the first 3 cells and run it. You will find it skips rows. You
need to loop from the highest numbered row to the lowest numbered row. For i = 3 To 1 Step -1 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next -- Regards, Tom Ogilvy "Toppers" wrote in message ... Hi, Something along these lines: For i = 1 To 3 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next HTH "Jason" wrote: Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Thanks Tom - the number of times you (and others) have told us this !
Hopefully I will remember in future. "Tom Ogilvy" wrote: Put a b in the first 3 cells and run it. You will find it skips rows. You need to loop from the highest numbered row to the lowest numbered row. For i = 3 To 1 Step -1 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next -- Regards, Tom Ogilvy "Toppers" wrote in message ... Hi, Something along these lines: For i = 1 To 3 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next HTH "Jason" wrote: Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
IIRC the top-to-bottom approach worked in Excel 95 but the behavior changed
in Excel 97. -- Vasant "Toppers" wrote in message ... Thanks Tom - the number of times you (and others) have told us this ! Hopefully I will remember in future. "Tom Ogilvy" wrote: Put a b in the first 3 cells and run it. You will find it skips rows. You need to loop from the highest numbered row to the lowest numbered row. For i = 3 To 1 Step -1 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next -- Regards, Tom Ogilvy "Toppers" wrote in message ... Hi, Something along these lines: For i = 1 To 3 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next HTH "Jason" wrote: Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Just another similar solution:
For r = 3 To 1 Step -1 If Cells(r, "A") = "b" Then Rows(r).Delete Next -- Dana DeLouis Win XP & Office 2003 "Toppers" wrote in message ... Thanks Tom - the number of times you (and others) have told us this ! Hopefully I will remember in future. "Tom Ogilvy" wrote: Put a b in the first 3 cells and run it. You will find it skips rows. You need to loop from the highest numbered row to the lowest numbered row. For i = 3 To 1 Step -1 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next -- Regards, Tom Ogilvy "Toppers" wrote in message ... Hi, Something along these lines: For i = 1 To 3 If Cells(i, "A") = "b" Then Cells(i, "A").EntireRow.Delete Next HTH "Jason" wrote: Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Dim iLastRow As Long
Dim i As Long iLastRow = Cells(Rows.Count,"C").End(xlUp).Row For i = iLastRow to 1 Step -1 If Cells(i,"C").Value = "y" Then Cells(I,"C").Entirerow.Delete End If Next i -- HTH RP (remove nothere from the email address if mailing direct) "Jason" wrote in message om... Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
I need a macro to delete unwanted data
Bob Phillips wrote: Dim iLastRow As Long Dim i As Long iLastRow = Cells(Rows.Count,"C").End(xlUp).Row For i = iLastRow to 1 Step -1 If Cells(i,"C").Value = "y" Then Cells(I,"C").Entirerow.Delete End If Next i -- HTH RP (remove nothere from the email address if mailing direct) "Jason" wrote in message om... Hi all, I need to design a macro in Excel that will delete all unwanted data. For example: I have fields a,b,c,d. In field c my data is either x,y,z. If data is y then I want to delete the entire row. Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete unwanted data | Excel Worksheet Functions | |||
| macro to delete unwanted data | Excel Discussion (Misc queries) | |||
| Macro to delete unwanted sheets | Excel Discussion (Misc queries) | |||
| Delete Unwanted Data | Excel Discussion (Misc queries) | |||
![Jason[_36_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
