Necesito ayuda con el inventario de Microsoft Excel
Hola tengo el siguiente problema, resulta que me pasan cada semana un estado de inventario en la columna A esta la clave del articulo paro esta al final tienes varios espacio, bueno lo que hice fue lo siguiente con la función remplace estos por suprimir y correcto lo hizo pero resulta ser que hay artículos que en la clave traen espacios, no se si con una función o macro pueda eliminar unicamente los espacios al final de cada celda de la columna A
Gracias.
Gracias.
Respuesta de paramisolo
1
Necesitaríamos una celda auxiliar para que se ejecute la macro, después te la borrará y no perjudicará tu hoja para nada, este ejemplo ponía en A1 " maría " (con 3 espacios al final, y después de ejecutar la macro pone "maria" sin espacios, es posible gracias a una fórmula que en la barra de fórmulas se escribe:
=ESPACIOS(AQUÍ LA CELDA A QUITAR LOS ESPACIOS, EN ESTE CASO A1)
=ESPACIOS(A1) pero esto hay que ponerlo en otra celda para que no se queden los datos en la hoja he puesto la macro así:
Sub cortar()
Range("A1").Select
valor = ActiveCell.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
texto = ActiveCell.Text
ActiveCell.Offset(0, -1).Value = texto
ActiveCell.Value = ""
End Sub
Utilizamos la celda anexa (B1) para realizar la operación y posteriormente la borramos, si tu vas a utilizar otra celda solo corrige la columna de referencia que esta en negrita.
Si quieres recorrer todo el rango quedaría así:
Sub cortar()
Range("A1").Select
Do While ActiveCell.Value<>""
celda=ActiveCell.Address
valor = ActiveCell.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
texto = ActiveCell.Text
ActiveCell.Offset(0, -1).Value = texto
ActiveCell.Value = ""
Range(celda).Select
ActiveCell.Offset(1,0).Select
Loop
End Sub
=ESPACIOS(AQUÍ LA CELDA A QUITAR LOS ESPACIOS, EN ESTE CASO A1)
=ESPACIOS(A1) pero esto hay que ponerlo en otra celda para que no se queden los datos en la hoja he puesto la macro así:
Sub cortar()
Range("A1").Select
valor = ActiveCell.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
texto = ActiveCell.Text
ActiveCell.Offset(0, -1).Value = texto
ActiveCell.Value = ""
End Sub
Utilizamos la celda anexa (B1) para realizar la operación y posteriormente la borramos, si tu vas a utilizar otra celda solo corrige la columna de referencia que esta en negrita.
Si quieres recorrer todo el rango quedaría así:
Sub cortar()
Range("A1").Select
Do While ActiveCell.Value<>""
celda=ActiveCell.Address
valor = ActiveCell.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
texto = ActiveCell.Text
ActiveCell.Offset(0, -1).Value = texto
ActiveCell.Value = ""
Range(celda).Select
ActiveCell.Offset(1,0).Select
Loop
End Sub
