Eliminar guiones de las deldas en las que exista al final, de una columna con datos
Ya me ayudaste antes y no poco con mis problemas con VBA en Excel.
Verás necesito una macro que recorra una columna (AA) en la que hay celdas con texto. En algunas de ellas al final del texto aparecen unos guiones que necesitaria eliminar. No aparecen en todas, sólo en algunas.
Te adjunto una imagen:
3 Respuestas
Perdona Dante, pero me encuentro con que hay algunas celdas que tienen al final hasta cuatro guiones, podrías modificar la macro para que los eliminase hubiera uno, dos , tres o cuatro.
Ya tu respuesta ha sido excelente. Espero a ver si pudieras remodelarla.
Gracias mil.
Con lo siguiente se eliminar todos los guiones de la derecha
Sub EliminaGuion()
'Por.Dante Amor
For i = 2 To Range("AA" & Rows.Count).End(xlUp).Row
Do While Right(Cells(i, "AA"), 1) = "-"
Cells(i, "AA") = Left(Cells(i, "AA"), Len(Cells(i, "AA")) - 1)
Loop
Next
End Sub
Esta macro hace lo que tu deseas:
Sub Eliminar_guiones()
'Ultima fila de datos'
uf = Range("AA" & Rows.Count).End(xlUp).Row
'Recorremos la columna AA hasta la última fila de datos'
For f = 2 To uf
'Comprueba si el último caracter es un guión'
If Right(Cells(f, "AA"), 1) = "-" Then
'Elimina el guión, cogiendo todos los caracteres de la celda menos el último'
Cells(f, "AA") = Left(Cells(f, "AA"), Len(Cells(f, "AA")) - 1)
End If
Next
End SubPuedes ponerla en la hoja o en un módulo.
Si te ha valido la respuesta.
No te doy la respuesta con macros, pero te recomiendo que en una columna auxiliar copies la siguiente fórmula (digamos que tu primer celda es AA2)
Entonces escribe
=SI(DERECHA(AA2;"-");IZQUIERDA(AA2;LARGO(AA2)-1);AA2)
Y luego copia esta fórmula hacia abajo
Una pregunta Dante, porque repites una respuesta que ya está contestada?. Si es para mejorar la respuesta lo entendería, pero en este caso, lo único que haces es eliminar el cálculo de la última fila y ponerla directamente en el bucle. Si tuviese que recorrer el bucle miles de filas, tendría que evaluar en cada iteración, tanto rows.count cómo .End(xlUp).Row. Si este cálculo lo haces antes de iniciar el bucle, el código es mucho más rápido.SaludosSaludos. - Marcial C. C.