Función left en un Rango Variable Macros Excel
Estoy intentando hacer una macro que me permite obtener las primeras 20 letras de una columna en otra.
Esto lo hago simplemente con un izquierda(B2, 20) en excel pero ahora quiero hacerlo en Macros.
- Tengo 2 columnas A Y B.
- La columna A esta vacía y en la B están todos los datos que quiero extraer.
- La cantidad de registros de la columna B son variables. Es decir, hoy son 100 registros pero mañana pueden ser 120 y necesito ejecutar la macro todos los días.
- Necesito obtener los 20 primeros registros de cada registro de la columna B y que se muestra en la columna A
EJEMPLO:
COL A: XRZR-23-00001-000005
COL B: XRZR-23-00001-000005-00001
3 Respuestas
Para pasar una fórmula a macro la grabadora de macros te ayudará como lo explico en mi canal:
Video Nº 15: Formulas con macro
Tener presente esta regla: entre comillas la parte 'fija' y entre & la parte 'variable! De los argumentos.
Sdos.
Elsa
Desde esta entrada a mi Blog podrás leer en detalle y copiar los ejemplos:
https://elsamatilde.blogspot.com/2018/10/colocar-formulas-mediante-vba.html
Sdos.
Elsa
No me permite poner la macro
Descarga el archivo en este enlace:
Primeros
¡Gracias!
Es super rápida muchas gracias Dante.
Es una pena que el foro ya no esté funcionando.
No puedes poner código, no puedes poner imágenes. Ya no llegan los avisos ni las notificaciones.
Lo nuevo:
Sal u dos
Dante Amor
Revisa el siguiente vídeo, ahí explico cómo pasar fórmulas a macro
Sal u dos
Dante Amor
Puedes hacerlo por el evento Change de la hoja.
Clic derecho en la hoja » Ver código y pegas esto.
Cada vez que modifiques cualquier celda de la columna B a excepción de la fila 1 (que probablemente será el encabezado), se copiarán en la columna A de la misma fila los primeros 20 caracteres.
Hola Ricohablador,
No es lo que estoy buscando, en este caso el evento change no es funcionar porque no es un archivo estático, como indique son datos que van variando en función del tiempo y cada día se genera un archivo nuevo del SAP, entre otras cosas más.
Lo que busco es recorrer la columna A hasta el ultimo registro capturando los 20 primeros registros de la columna B.
Algo así:
Dim uf As Long
uf = Range("B2").End(xlDown).Row
For i = 1 To uf
Left...
Muchas gracias por tu apoyo
¿A qué te refieres con capturar los últimos 20 registros de la columna B?
Hola,
Perdón era las 20 primeras letras.
Ya lo resolví, aunque se demora un poco más que cuando lo hago con fórmula.
Dim uf As Long
uf = Range("B2").End(xlDown).Row
For i = 2 To uf
Cells(i, 1).Value = Left(Cells(i, 2).Value, 20)
Next
Claro, es igual que mi respuesta. La diferencia está en que el archivo al estar ya creado (no se teclea a mano) hay que hacer el bucle en lugar de cambiar una celda en cada cambio.
No entendí bien el punto 3.