Te dejo el código de Eliminar fila sin tomar en cuenta la fila 1 y 2

Sub BorrarFilas()
Dim i As Integer, nfilas As Integer, qCrit As String
Sheets("FACT").Select
nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count
qCol = InputBox("Columna del criterio")
qCrit = Application.InputBox(prompt:="Criterio" & CDbl(0))
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

1 Respuesta

Respuesta
1

Me parece que respondí una consulta posterior donde no aparecía el código. Viendolo aquí, en el For le estás indicando que vaya hasta la fila 2 pero debiera ser 3 para que no elimine las primeras.

Comentame si es esto lo que necesitas. En ese caso no olvides valorar las 2 respuestas.

Sdos

Elsa

Además debes agregar una instrucción que marco en negrita.

Esto es porque si eliminas la fila 5, la próxima fila que debes evaluar sigue siendo la 5 pero el for te la pasa a la 4, por eso incremento la variable.

For i = nfilas To 2 Step -1
Cells(i, qCol).Select
If Cells(i, qCol) = qCrit Then
ActiveCell.EntireRow.Select
Selection.Delete
i = i + 1
End If
Next i

Sdos!

Elsa, si era lo que estaba buscando.....realmente tenia la idea pero no sabia como expresarlo.

Mil ¡Gracias! 

Patricia M.

Evalúa entonces si la respuesta no merece ser considerado algo más que "buena"...

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Macro con mensaje de duplicados

He intentado crear alguna fórmula para evitar insertar duplicados en una hoja de excel pero lo mejor que he podido hacer es usar la fórmula CONTAR. SI en la pestaña DATOS > VALIDAR DATOS. Sin embargo me gustaría crear una macro con un mensaje del...
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Como utilizar dos macros que empiezan con Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Quiero integrar dos macros que realizan una funcion cada una pero el asunto es que las dos deben funcionar el la misma hoja y empiezan con Private Sub Worksheet_SelectionChange(ByVal Target As Range) y a la hora de ejecutar las dos marcan error. ¿Qué...
2 respuestas

Buscar en base de datos por nombre corto y numero de identificación

Me dirijo a ustedes expertos con una nueva interrogante... Tengo un archivo de búsqueda en donde busco por nombre corto y también por numero de identificación por medio del mismo textbox... A lo cual me surge una duda. Este es un resumen del código...
1 respuesta

Macro para copiar filas con condición en otras hojas

Tengo una macro que colorea las filas dependiendo de una condición para que luego otra macro las pase a otras hojas con el mismo nombre de la condición dependiendo del color que tengan, las macros son estas: Sub ColorearFilas() Dim n As Integer Dim...
1 respuesta

Como copiar rangos de filas y transponer con macro?

Soy un principiante en esto por favor su ayuda. Tengo una planilla con una serie de datos los cuales debo mover a otra hoja, el problema es que no me copia y transpone todos los datos y solo transpone la primera serie:
1 respuesta

Macro que identifique y sume filas con características en común

Tengo un reporte del sistema de mi trabajo que arroja los resultados de partidas de un plan de cuentas. Cada partida está en una tabla. A su vez cada partida tiene composiciones donde aparecen los montos que quiero sumar. Quiero unificar partidas con...
2 respuestas

Como dividir un libro en varios a cada 5000 registros

Tengo un archivo con más de 100,000 registros; y quiero dividirlos de 5,000 en 5,000. Pero creando un archivo para cada uno. Por tu interés recibe un cordial saludo
1 respuesta

Resaltar filas duplicadas

He encontrado en el foro una macro (el experto no se halla disponible ahora si no hubiera contactado con él) para colorear los valores duplicados de una columna. Me gustaría modificar esa macro para que hiciera exactamente lo mismo pero en vez con...
2 respuestas