Macro borrar fila

Experto:
Tengo este código para eliminar una fila en excel cuando la fila seleccionada es mayor a 8 o no pongo "nada". El problema es que no me funciona. Fíjate si hay un error.
Dim fila As String
fila=InputBox("Ingrese Nº fila a eliminar")
If fila <>"" or fila>8  Then
Range(fila & ":" & fila).Select
Selection.ClearContents
End If
End Sub
Muchas gracias

2 Respuestas

Respuesta
1
Fallas en el intervalo aquí esta la corrección
Sub eliminarfilas()
Dim fila As String
fila = InputBox("Ingrese Nº fila a eliminar")
If fila <> "" And fila <= 8 Then
Range(fila & ":" & fila).Select
Selection.ClearContents
End If
End Sub
Ricardo perdona no leí tu primera parte quieres que elimine las filas mayores que 8
este es el código
Sub eliminarfilas()
Dim fila As String
fila = InputBox("Ingrese Nº fila a eliminar")
If fila <> "" And fila > 8 Then
Range(fila & ":" & fila).Select
Selection.ClearContents
End If
End Sub
Bueno tienes los dos códigos para valores menores o iguales que 8 y este
solo reemplaza or por and
Respuesta
1
Si tienes errores la macro quedaría así:
Dim fila As String
fila=InputBox("Ingrese Nº fila a eliminar")
If fila <>"" or fila>8  Then
Rows("" & fila & ":" & fila & "").Select
Selection.ClearContents
End If
End Sub
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas