Estoy corriendo una macro que en el Rango A1:A15 deberia contar las celdas con "Roles de tripulacion", poner en la siguiente celda vacia del rango "x Roles de tripulacion" y borrar todas las filas del rango que contengan "Roles de tripulacion". La cuestion es que cuando intento con el ejemplo, me borra solamente dos de las cuatro filas que tengo con ese valor.
Adjunto el archivo para mejor ilustracion.
Sub test()
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") > 0 Then
Sheets(1).Range(Range("A1").End(xlDown).Offset(1).Address).Value = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") & " Roles de Tripulacion"
For y = 1 To 15
With Sheets(1)
If Range("A" & y) = "Roles de tripulacion" Then
Rows(y).EntireRow.Delete
End If
End With
Next y
Estoy corriendo una macro que en el Rango A1:A15 deberia contar las celdas con "Roles de tripulacion", poner en la siguiente celda vacia del rango "x Roles de tripulacion" y borrar todas las filas del rango que contengan "Roles de tripulacion". La cuestion es que cuando intento con el ejemplo, me borra solamente dos de las cuatro filas que tengo con ese valor.
Adjunto el archivo para mejor ilustracion.
Sub test()
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") > 0 Then
Sheets(1).Range(Range("A1").End(xlDown).Offset(1).Address).Value = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") & " Roles de Tripulacion"
For y = 1 To 15
With Sheets(1)
If Range("A" & y) = "Roles de tripulacion" Then
Rows(y).EntireRow.Delete
End If
End With
Next y
End If
End Sub
Sample.xlsm