Enviar una hoja por Email Public Sub EnviarHojaPorCorreoElectrónico() Dim strNombre As String ActiveSheet.Copy With ActiveWorkbook .SaveAs "C:\ Admon y Economía con Integrales.xls" .SendMail Recipients:="ejemplo@correo.com", Subject:="Envío libro de Excel" strNombre = .FullName .Close End With Kill strNombre End Sub 'En .Save AS “ cambiar la ruta donde se encuentra el archivo con su nombre 'En SendMail Recipients: = cambiar el Email ejemplo@correo.com 'Aparecerá un aviso de Microsoft Outlook → Permitir 'y se remite al Email indicado Editado por moderación para insertar etiquetas al código y eliminar direcciones de correo... Agradezco aclarar las reglas. Remito a…

Espero sea de interes, ayuda y conocimiento. Como extraer el contenido de un pdf y pegarlo como imagen en un libro de excel! VBA/Excel: PDF a Imagen (pdf2img) | MeXcel Plus Saludos!

Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma.. podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código. Sub Macro1() Dim x As String, Hoja As Worksheet, Nombre As String, msg As String Nombre = InputBox("Introduce el nombre o dato a buscar:") For Each Hoja In ThisWorkbook.Worksheets On Error Resume Next If Nombre <> "" Then x = Hoja.Cells.Find(What:=Nombre, _ After:=Hoja.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ Se…

En muchas ocaciones nos topamos con bases de datos en el cual queremos validar las celdas vacias pero al mismo tiempo queremos que nos marque en algun color las celdas. aqui te adjunto un formulario espero te sirva de algo Saludos Diego Colorear textbox vacio.xls

Buenos días. En esta oportunidad les comparto una macro que he creado, en la cual separa numero de letras. Es decir si en una columna tenemos numeros y letras, este codigo los separa cada uno en dos columnas diferentes. Espero que este aporte pueda servirles. Saludos Separar_Numero_Letras_VBA.rar

Hola a todos,... si,si, a ti también: "Pos" os dejo un formulario que permite comparar que archivos hay en dos directorios. (No incluye los subdirectorios). Permite añadir los archivos de un directorio que no estén en el otro y sustituir los de fecha mas reciente. A ver si os gusta, y si no os gusta, pues,......mejor no digo lo que pienso :D Saludos a todos,.....bueno, pues a ti esta vez, no. Folder utility.xls

Hola "pollitos": Aquí vos dejo una variante del archiconocido tema: Obtener sumandos hasta un valor Solo teneis que informar el valor y el nº máximo de sumandos. En la línea de estado de Excel aparece el avance del proceso. Besitos Sumas.zip Sumas.rar

Hola a todos y feliz 2014: Cumpliendo con mi compromiso, aquí está de nuevo el Índice del Foro de Aportes e Ideas. Esta vez con un nuevo "look". Al abrir el adjunto os encontrareis el típico formulario con una lista y unos parámetros para realizar búsquedas. En la lista aparecerán todos los aportes ordenados tal como aparecen en el foro a 05/01/2014. El sistema de búsqueda no tiene ningún misterio, seleccionais la columna, introducís el texto y pulsais el botón Buscar. Para volver a ver la lista inicial pulsar el botón Restaurar. Lo novedoso está en la lista, no se trata de un ListBox, ni ListView, ni níngún otro SpreadSheet. Se trata de un control Image donde se …

Buenas tardes A continuacion les dejo un archivo que no es de mi autoria pero que igual siento que les puede ser util en caso de requerirlo. Es un código para que puedan abrir la página google desde un simple click del botón que diseñen para el mismo. Mis respetos. Ir a Google.com.zip

Hace poco en el trabajo me pidieron que automatizara la creación de una página HTML que desplegaría el organigrama de cada una de las áreas de trabajo, dicho organigrama consta unos círculos donde cada uno de ellos se muestra la foto de la persona que ocupa dicha posición. Todas las imágenes que conformaran cada organigrama estarían dispuestas en una hoja de Excel, así es que como primer paso tendría que hacer una macro que tomara cada una de las formas (shapes) contenidas en la hoja y las exportara para después crear la pagina HTML. Lo que hace la macro es tomar cada una de las formas de la hoja organigrama, pegarla dentro del grafico de la hoja imagen y una vez ahí ex…

_______________________________________________________________________ Se trata de un una macro que es capaz de historificar archivos . También contiene un filtro para buscar información de la historificación. Al pulsar sobre el "Botón" IMPORTAR ARCHIVOS se añadirán a la hoja Hoja1 los archivos que haya en la hoja Menú en la columna A. Cada vez que se procese un archivo este quedará marcado en la hoja Menú con la fecha del proceso en la columnas B y la última fila copiada en la columna C, de manera que en el siguiente proceso partiremos de la fila siguiente a la que se indique en la columna C. Para facilitar la información que se requiere, en lo referente a los arc…

En el vídeo de hoy cambiamos, con código VBA, el formato a caracteres individuales dentro en una celda.

Buenas dias, este complemento lo subi hace tiempo, creo que no esta de todas formas lo subo para quien lo pueda necesitar. Yo lo utilizo en Excel 2007 TextoV3R2.rar

Explicación: Comentarios en Gráfica Calificar_Tipo_de_Empresa.rar

Buenas tardes Estimados A continuación les dejo un pequeño aporte que quizás ya lo conozcan. Es la alarma con el sonido Cuco. Al abrir el archivo Excel, se ejecutará el código para que suene tres veces. Pueden ver el código fuente y adaptar a gusto. https://drive.google.com/open?id=0BxjdxiezqhOBfkgtNTgyQnc3aERhaWU0OHpPakpBbDQ3LU1ZYXJfWFJxUHZGRGhRVUNaYjQ&authuser=0 Saludos cordiales.

En este tutorial vemos como adivinar que celda se ha modificado en un libro de Excel.

. Hola a todos: Todos los que habeis usado un formulario VBA sabeis que existe la propiedad TabStop, que combinada con la propiedad TabIndes, nos permite navegar por los controles de entrada de datos y de acción (Buttons, checks y options), sin embargo esto no es posible hacerlo con loas controles ActiveX dibujados directamente en la hoja ya que no existen estas propiedades en dichos controles. Aquí os dejo un sistema de como facilitar la navegación entre controles de la hoja. En el adjunto en contrareis una plantilla con 6 TextBox, pero puede adaptarse fácilmente a cualquier nº de ellos. Funcionamiento: Tab o Enter o Down =Siguiente control (Por ejemplo del TextBox…

Hola compañeros Acompaño un archivo con un ejemplo sencillo de cómo obtener símbolos mediante fórmulas. Un cordial saludo Edité para ampliar un detalle SÍMBOLO.zip

Hola amigos del Foro Acompaño aporte por si nos puede servir cuando tengamos dudas a la hora de Redondear. Saludo cordial REDONDEAR,_TRUNCAR,_etc.zip

Hola a todos. A lo mejor ya lo conocen pero no pierdo nada para compartir. como su mismo nombre lo dice, es un código que concatena varios textbox en un solo textbox. espero les sirva de algo saludos Concatenar Textbox.xls

En este vídeo vemos como insertar saltos de página condicionales, dependiendo del texto de una celda, de su contenido o del color de fondo de la misma.

Hi: Lo que se intenta resolver, es que si estás dentro de una celda tecleando texto, no hay una manera de ejecutar una macro. No obstante, podemos recurrir a un procedimiento alternativo, en lugar de teclear en la celda, teclear en un textbox. Abrir el adjunto y pulsar ESC, vereis que aparece un textbox resaltado en azul sobre la celda activa, listo para introducir información. A medida que introducimos información, la celda activa se va actualizando. Ahí ya tendríamos un punto por donde "colarnos", ya que cada carácter introducido en el textbox desencadena el evento Worksheet_Change. No obstante, aprovechando el evento TextBox1_KeyDown del textbox, he habilitado la…

Hola: Nueva tarde de domingo lluviosa y aburrida en el pueblo. Hoy, para disfrute de formulianos, he preparado una UDF. Se trata de SUMACOLOR, que hace lo que su nombre indica, es decir, suma el contenido de un rango de celdas cuyo color coincida con el de la primera celda de dicho rango. Pues ale, a entreteneros un ratito. Saludos UDF SUMACOLOR.xls

Buenas con todos: He creado una manera sencilla mediante una funcion UDF la cantidad de dias que tiene un año. De seguro hay muchas maneras mas sencillas de realizarlo. Lo primero que vamos a hacer sera... Crear un modulo y pegar el siguiente codigo Public Function DiasAño(Anio As Integer) As Integer If IsNumeric(Anio) And Anio > 0 Then DiasAño = DateDiff("d", "01/01/" & Anio, "31/12/" & Anio) + 1 End If End Function [/CODE] Luego en una celda de excel poner la funcion =DiasAño(2015) Espero les haya sido de utilidad, y los comentarios para alguna mejora seran bienvenidos. Saludos DiasAño.zip

Vídeo en el que vemos como funciona una fórmula, creada con VBA, que calcula el EBITDA de una Cuenta de Pérdidas y Ganancias.