Macro para Editar columna
hola, alguien sabe de algún macro que te permita editar texto y borrar solo una parte de el , para toda una columna? Por ejemplo: Escuelas|||escuela-primaria-escuela-secundarias-escuela-preparatorias .
Lo que me gustaría eliminar seria; |||escuela-primaria-escuela-secundarias-escuela-preparatorias .
pero necesito hacer el mismo procedimiento para toda la columna.
gracias espero que me puedan ayudar.
2 respuestas
Esta es la macro:
Sub eliminar() 'Por.DAM col = "A" For i = 1 To Range(col & Rows.Count).End(xlUp).Row n = InStr(1, Cells(i, col), "|||") If n > 0 Then Cells(i, col) = Left(Cells(i, col), n - 1) Next End Sub
Sigue las Instrucciones para poner un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: eliminar
10. Aceptar.
11. Para ejecutarla dale click a la imagen.
Saludos. Dante Amor
Recuerda valorar la respuesta.
Cambia en la macro "A" por la columna en donde quieras editar.
¡Gracias! En verdad muchas gracias ha ambos , me fue de mucha utilidad.
gracias Dante por la macro.
Saludos.
Con mucho gusto !
Quizás no sea necesario una macro, pero si la prefieres avisame.
1- Suponiendo que los datos empiezan en A2, en alguna col de la misma fila colocá esta fórmula:
=IZQUIERDA(A2;HALLAR("|||";A2;1)-1)2- Arrastra la fórmula hasta la última fila con datos (o doble clic en el controlador de relleno para que se complete la col con la fórmula).
3- Seleccionar la col auxiliar, clic en Copiar. Allí mismo Pegado Especial, solo valores.