Luis Mondelo

Excel avanzado y VBA

810K puntos Castilla-La Mancha, España @luismondelo desde 2010 - visto nov. 2021

Actividad pública reciente

Mensaje al abrir excel que copia en una celda determinada

Te paso la macro para conseguirlo: Sub auto_open() 'por luismondelo c = 1 Do While c = 1 fecha = InputBox("introduzca fecha por favor") ubica1 = Mid(fecha, 3, 1) ubica2 = Mid(fecha, 6, 1) If ubica1 <> "/" Or ubica2 <> "/" Then MsgBox "La fecha...

1 respuesta

Responder

Distribuir filas en función de un nombre, a pestañas dentro de un mismo excel

Mándame el excel con los datos y un ejemplo de lo que necesitas, para poder ayudarte mejor [email protected]

1 respuesta

Responder

Contar elementos repetidos de una columna y poner el número de recuento al lado

Creo que ya te he respondido en la otra pregunta. ¿Lo tienes todo claro?

1 respuesta

Responder

Sumar referencias columnas

Tu solución pasa por una simple tabla dinámica. Para ese caso es la mejor opción y te permite un control absoluto de esos datos

1 respuesta

Responder

Como hacer una macro que me copie solo las filas que contengan números que terminen en 1, 3 y 5, los pegue en otros libros?

Te paso mi solución con esta macro. Estoy suponiendo que las filas de la hoja1 tienen datos desde la columna A Sub proceso() 'por luismondelo Sheets("hoja1").Select Range("c65000").End(xlUp).Offset(1, 0).Value = "end" Range("c1").Select Do While...

1 respuesta

Responder

Eliminar filas en rango seleccionado con celdas de valor igual a cero

Te mando mi solución. Posiciónate en la primera celda de esa columna y después ejecuta esta macro: Sub proceso() 'por luismondelo Cells(65000, ActiveCell.Column).End(xlUp).Offset(1, 0).Value = "end" Do While ActiveCell.Value <> "end" If...

1 respuesta

Responder

Macro de excel para extraer cada 250 lineas en hojas diferentes

Para poder ayudarte mejor necesito aclaraciones: ¿Desde qué fila empiezan tus datos? ¿Cuál es la primera columna de tus datos? la A....

2 respuestas

Responder

Copiar contenido de archivos de Texto a Excel.

Prueba esta macro: IMPORTANTE: En la fila que empieza: ruta = ....... Tienes que pegar el path del primer nivel de tus carpetas, es decir, la primera carpeta de todas. Sub proceso() 'por luismondelo Application.DisplayAlerts = False mio =...

2 respuestas

Responder

Separar letras de una celda

Te mando mi solución, supongo que los datos están desde E1 hacia abajo. Esta es la macro: Sub proceso() 'por luismondelo Range("e1").Select Do While ActiveCell.Value <> "" valor = ActiveCell.Value For x = 1 To Len(valor) + 1 extrae = Mid(valor, x, 1)...

2 respuestas

Responder

Capturar información de varias hojas en una nueva

Te adjunto la macro para conseguirlo: sub proceso() 'por luismondelo for each hoja in sheets if ucase(hoja.name) <>"HOJA1" then hoja.select range("g5:r5").copy sheets("hoja1").range("a65000").end(xlup).offset(1,0).pastespecial paste:=xlvalues end if...

1 respuesta

Responder

Macro para generar hipervínculos con parte del nombre.

Si ya tenemos ese código que es parte del nombre del fichero...¿cuál es la otra parte? ¿Cómo la conseguimos?

2 respuestas

Responder

Pregunta para Luis Mondelo: Cambio estado y sumar

Inténtalo con la macro así: Sub proceso() 'por luismondelo fecha = Sheets("hoja2").Range("b1").Value Sheets("hoja1").Select Range("c2").Select Do While ActiveCell.Value <> "" If UCase(ActiveCell.Value) = "CARTERA" And ActiveCell.Offset(0, 3) <= fecha...