delete row with criteria (vba)

  • Thread starter Thread starter masterbigggy
  • Start date Start date
M

masterbigggy

hi all,

i have 2 questions,


i need a code that will delete some rows if there a "x" in column a.

if there a "x" at a25 .. i want the macro to delete c25, f25 aa25

but i want the macro to be multirange like "x" in those cells a15,a16,
a159 ,ect. a"z"
where the macro will delete c"z", f"z", aa"z"



next question.

in the same order of idea,

is it possible to highlight a range of row with the mouse and run the
macro.

so if u highlight row 5:10 the macro will delete c 5:10 f
5:10 aa:25.

if it is possible that the macro run whatever the highligth is like
a5:a10 or af5:af10 that will still run.


ty
 
hi all,

i have 2 questions,


i need a code that will delete some rows if there a "x" in column a.

if there a "x" at a25 .. i want the macro to delete c25, f25 aa25

but i want the macro to be multirange like "x" in those cells a15,a16,
a159 ,ect. a"z"
where the macro will delete c"z", f"z", aa"z"
Click to expand...


For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"A").Value = "x" Or cells(i, "A").Value = "z" Then
Cells(i,"C").ClearContents
Cells(i,"F").ClearContents
Cells(i,"AA").ClearContents
End If
Next i

next question.

in the same order of idea,

is it possible to highlight a range of row with the mouse and run the
macro.

so if u highlight row 5:10 the macro will delete c 5:10 f
5:10 aa:25.

if it is possible that the macro run whatever the highligth is like
a5:a10 or af5:af10 that will still run.
Click to expand...


For Each cell In Selection.Columns(1).Cells
If cell.Value = "x" Or cell.Value = "z" Then
cell.Offset(0,2).ClearContents
cell.Offset(0,5).ClearContents
cell.Offset(0,26).ClearContents
End If
Next i
 
ty bob




Bob said:
For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"A").Value = "x" Or cells(i, "A").Value = "z" Then
Cells(i,"C").ClearContents
Cells(i,"F").ClearContents
Cells(i,"AA").ClearContents
End If
Next i




For Each cell In Selection.Columns(1).Cells
If cell.Value = "x" Or cell.Value = "z" Then
cell.Offset(0,2).ClearContents
cell.Offset(0,5).ClearContents
cell.Offset(0,26).ClearContents
End If
Next i
Click to expand...
 
Back
Top