Jump to content
Sign in to follow this  
richardqueve25

Borrar filas mediante macro segun cumpla una condicion

Recommended Posts

buenos dias! solicito la ayuda de ustedes para buscar solucion a este problema tengo un codigo macro pero cuando ejecuto no me hace nada! quiero borrar las filas en la cual la columna (A)cumpla con un criterio (HECHO) y me borre esa fila el problema es que cuando lo ejecuto varias veces ya no hace nada el macro. tengo dos codigos pero uno no me hace nada y el otro. cuando cambio el rango de la matriz borra todo o sino borra el hecho pero coloca las otras cosas en diferentes celdas.

Sub Button3_Click()

'Despues eliminamos las filas cuya columna G tenga contenido

Dim i As Integer, nfilas As Integer

nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

qCol = InputBox("Columna del criterio")

qCrit = InputBox("Criterio")

For i = nfilas To 2 Step -1

Cells(i, qCol).Select

If Cells(i, qCol) = qCrit Then

ActiveCell.EntireRow.Select

Selection.Delete

End If

Next i

End Sub

y tengo este otro pero nada ninguno me sirve para lo que quiero ps quiero es me borre las cosas que digan HECHO me elimine la fila y listo.

Sub Button3_Click()

' This will remove all DONE items in the named range todo_list

' and re arrange the list0

Dim tmpTodoList(1 To 100), tmpTodoStatus(1 To 100) As String

Dim i, cntr, copyThis

cntr = 1

i = 1

copyThis = False

For Each cell In Range("hecho")

If cntr Mod 2 = 1 Then

If cell.Value = "" Or cell.Value = "NO REALIZADO" Then

'tmpTodoStatus(i) = cell.Value

copyThis = True

End If

Else

If copyThis Then

' tmpTodoList(i) = cell.Value

i = i + 1

copyThis = False

End If

End If

cntr = cntr + 1

cell.Value = ""

Next cell

i = 1

cntr = 1

For Each cell In Range("hecho")

If cntr Mod 2 = 1 Then

' cell.Value = tmpTodoStatus(i)

Else

' cell.Value = tmpTodoList(i)

i = i + 1

End If

cntr = cntr + 1

Next cell

End Sub

libro excelent.rar

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png