¿Error 400 en visual basic de excel? ¿Cómo lo corrijo?
Tengo esta macro para eliminar filas vacias:
Sub EliminarFilasVacias()
Dim Cadena As String, Fila As Long
With Worksheets("Hoja2") 'Nombre de la hoja
For Fila = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(Fila)) = 0 Then
Cadena = Cadena & Fila & ":" & Fila & ","
End If
Next Fila
If Cadena <> "" Then
Application.ScreenUpdating = False
.Range(Left(Cadena, Len(Cadena) - 1)).Delete
Application.ScreenUpdating = True
End If
End With
End Sub
Me funciono en la hoja original, entonces decide agegarle mas filas pero ahora me aparece error 400. Y no se que es?
2 respuestas
Te recomiendo esta macro. Resulta mas sencilla:
Sub filas_vacias() tope = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 For f = tope To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(f)) = 0 Then Rows(f).EntireRow.Delete Next End Sub
RECUERDA FINALIZAR Y PUNTUAR
Muchas gracias...si me funciono, solo que dura mucho.
Como le agrego rango de filas para que dure menos y además, como seria para que ademas elimine filas que sumen cero ya que tengo formulas en algunas celdas.
Es decir, solo quiero filas que contengan texto y datos calculados mayor a cero.
Muchas gracias. Además de la rapidez en contestar.!
Bajo mi punto de vista, lo que pides tardaría todavía más, ya que necesitaríamos un bucle for each para examinar todas las celdas de cada fila para ver si tienen fórmula con resultado cero.
Lo solucioné creando y colocando el código de la macro en un modulo VBA, y desde allí ya no me dio el error.
Estimados, yo solucioné este problema creando y colocando todo el código VBA en un modulo de visual basic, y no dejando el código en cualquiera de las hojas, creo el problema era por ejecutarlo como código incrustado en una de las hojas.Al estar en el modulo de nombre cualquiera, el código se ejecutó sin problemas. - Carlos Rodriguez
quisiera solicitar tu apoyo tengo la siguiente macro para ocultar filas pero aparte de esta en otras hojas hay otras macros anteriormente funcionaban pero cuando agregaron las otras macros ya no funciona para ocultar y mostrar filas te adjunto la macro de ocultar y mostrarSub mostrar_ocultar() fila_ini = 7 col1 = "E" ' For i = fila_ini To Range("E" & Rows.Count).End(xlUp).Row If Cells(i, col1) > 0 Then Cells(i, col1).EntireRow.Hidden = False Else Cells(i, col1).EntireRow.Hidden = True End If Next i End Sub - Consultas Consultas