Luis Mondelo

Luis Mondelo

Excel avanzado y VBA
 799K puntos  Castilla-La Mancha, España @luismondelo desde - visto

Preguntas y respuestas en Microsoft Excel

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...

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 luismondelo@gmail.com
Respuesta en a

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?
Respuesta en a

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

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...
Respuesta en a

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...
Respuesta en a

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....

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 =...
Respuesta en y en 1 temas más a

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)...
Respuesta en y en 2 temas más a

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...