Pregunta:
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...
Pregunta:
Distribuir filas en función de un nombre, a pestañas dentro de un mismo excel
Muchísimas gracias
Pregunta:
Contar elementos repetidos de una columna y poner el número de recuento al lado
Para este caso te dejo el siguiente ejemplo en este enlace enlace externo Recuerda valorar la respuesta
Pregunta:
Sumar referencias columnas
Buah que pasada! No hay nada como un buen conocimiento de las herramientas con las que se trabaja. Muchísimas gracias por tu ayuda
Pregunta:
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?
¡Machas Gracias!, excelente, es lo que necesito
Pregunta:
Eliminar filas en rango seleccionado con celdas de valor igual a cero
Prueba con la macro así: Sub proceso() 'por luismondelo Cells(65000, ActiveCell.Column).End(xlUp).Offset(1, 0).Value = "end" Do While ActiveCell.Value <> "end" If ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1,...
Pregunta:
Macro de excel para extraer cada 250 lineas en hojas diferentes
Te mando la solución con esta macro. En mi ejemplo tenemos un archivo excel y en una pestaña llamada "hoja1" (esto lo puedes cambiar) tenemos esa base de datos de 3 columnas y n filas. Al ejecutar esta macro te lo pasará a otras pestañas de 250 en...
Pregunta:
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 =...
Pregunta:
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)...