Macro de un rango, seleccionar según condición toda la fila
Necesito, una macro que en el rango:
Range("B808:P1999").Select
Me seleccione todas las filas del rango seleccionado, que tenga las celdas, de la columna "B", VACÍAS.
1 respuesta
H o l a : Para seleccionar el rango de B a P
Sub SeleccionaRango() 'Por.Dante Amor For i = 5 To 12 If Cells(i, "B") = "" Then cad = cad & "B" & i & ":P" & i & "," End If Next If cad <> "" Then cad = Left(cad, Len(cad) - 1) Range(cad).Select End If End Sub
O si quieres seleccionar toda la fila:
Sub SeleccionarFilas() 'Por.Dante Amor For i = 808 To 1999 If Cells(i, "B") = "" Then cad = cad & i & ":" & i & "," End If Next If cad <> "" Then cad = Left(cad, Len(cad) - 1) Range(cad).Select End If End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Como siempre perfecto
Un saludo Dante
Hola Dante
Me esta dando problemas la ultima línea en las dos:
Range(cad).Select
Un saludo Dante
¿Qué error te aparece?
Se para la macro, y se pone seleccionada en amarillo
Un saludo Dante
Pero debe decir algún mensaje
Te mando el archivo ahora mismo
Un saludo
No me envíes el archivo
Solamente dime qué mensaje de error te aparece.
¿Y dime cuál macro vas a ocupar?
Y también dime si hay muchas líneas las que se tienen que seleccionar.
Lo ideal sería que me dijeras para qué las quieres seleccionar, la macro podría aplicarles a las líneas seleccionadas lo que necesitas.
Mandado
Pero necesito esta información:
No me envíes el archivo
Solamente dime qué mensaje de error te aparece.
¿Y dime cuál macro vas a ocupar?
Y también dime si hay muchas líneas las que se tienen que seleccionar.
Lo ideal sería que me dijeras para qué las quieres seleccionar, la macro podría aplicarles a las líneas seleccionadas lo que necesitas.
Me suelen quedar unas 200 a 300 Filas vacías en la columna "B" y tengo que borrar todas las columnas adyacentes, son el resto de las referencias que me quedan para liquidación, la que me viene mejor es,
Sub SeleccionarFilas
Siempre que este vacia la celda "B"
Un saludo Dante
El error me pone:
Se ha producido el error"1004" en tiempo de ejecución:
Error en el método "range" de objeto"_Global"
Un saludo
Entonces no necesitas seleccionarlas, lo que quieres es borrar toda la fila si la celda de la columna B está vacía, entonces utiliza esta macro.
Sub SeleccionarFilas() 'Por.Dante Amor For i = 808 To 1999 If Cells(i, "B") = "" Then Rows(i).ClearContents End If Next End Sub
s2
