En un foro de desarrolladores Excel en inglés se planteó la siguiente pregunta. Using VBA find all the duplicate values from Column-A and print them in Column-B. Note: 1. Even if the value has been repeated more than twice, still it should be printed only once. 2. Use of worksheet functions is not allowed. 3. Sorting is not allowed. 4. Printed column should not have any blank cells between two printed cells. Usando VBA encontrar todos los valores duplicados de la columna A e imprimirlos en la columna B. Nota: 1. Incluso si los valores se repiten más de dos veces, deben ser imprimidos una única vez. 2. No se permite el uso de las funciones de la hoja de c…

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!

Buenas noches Estimados señores Les dejo un pequeño aporte para buscar datos de columna(1) en la Hoja1. Espero les sea útil. Mis respetos. Buscar Find.zip

Os traigo todas las commandbars y sus ids para poder implementarlo en nuestras macros cuando sea necesario. Un Saludo FernandoML Pruebas.rar

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

Estimados, Tengo un menu creado con Ribbons version excel 2007 la pregunta es ,como puedo llamar a un libro excel guardado en cualquier ubicacion de mi pc. en espera de Sus aporte y Comentarios.. Saludos,

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.

Hola monstruos: Aquí os dejo una macro para saber todo lo que hay que saber sobre un rango seleccionado en la hoja. Ya me contareis, o no, vaya Vd. a saber. Paz y amor Sobre rangos, filas y columnas.xls

Sencillo, pero puede ser útil Código_de _Barras.rar

Estaba trabajando con unas imagenes que tenia que jalar de cierta web y bueno pense que podría ser necesario para algún usuario de esta comunidad. Adjunto el archivo. Obtener imagenes desde Web.xls

Buen dia Espero que este pequeño aporte les sea util. Saludos. Sub-Total(Ayuda).zip

Buenas tardes, continuando con el post https://www.ayudaexcel.com/foro/threads/reproducir-videos-y-oir-musika-en-userform.38372/ Subo archivo mejorado,. no es mas que un formularios mas mejorado visualmente,. agregandoles los controles de WMP. a los botones que nos proporciona el BVA.. le hiba a colocar imagenes en movimiento (.gifs).. pero tenia que direccionar al disco duro C: y ustedes al igual pegar la carpeta en el C: para poder visualizar las imagenes en movimiento.., ya que se ocupa el control WebBrowser. Tambien talvez mas adelante... dejare el reproductor,. sin el video y con un boton de que de la opcon de ver el video o no. Espero les guste.. MMM. talvez l…

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:="[email protected]", 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 [email protected] '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…

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

Buenas tardes Tal como su nombre lo indica, adjunto un nuevo aporte el cual contiene dos libros Excel 2007. Dicho aporte està diseñado para consultar segùn los encabezados de una tabla (Hoja Excel) los datos que esta contegan por columnas, suprimiendo asi las columnas que no se desean consultar. P.D. gracias a señor Macro antonio, pude darle la parte importante del archivo para que este muestre los encabezados de la tabla en cuestion. Asi ya está mas dinamico y funcional. Espero les sea util y de su agrado. Menu_Productos.zip

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…

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

Hola: Como copiar una hoja sobre otra sin copiar los objetos que haya en ella. Sub NoCopiarObjetosAlCopiarHoja() Application.CopyObjectsWithCells = False Hoja1.Cells.Copy Hoja2.Range("A1") Application.CopyObjectsWithCells = True End Sub [/CODE] Vale mas esto que nada. :glee:

Buen dia Estimados señores; El siguiente aporte es con la intencion de que lo tengan a la mano para que puedan usar los códigos empleados en el mismo. Es algo sencillo pero estoy seguro puede ser util. Contiene Variables Publicas, Constantes, bucles entre otros. Es sencillo pero para quienes lo requieran, puede ser de mucha utilidad. Mis respetos para todos. Ejemplos de Códigos.zip

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

Hola que tal quisiera que por favor me ayudaran es mi proyecto final de la prepa y la verdad es que no se nada de programación me urge te pido tu apoyo. Es con lo siguiente MACRO mira tengo dos columnas la primera es el Estado y la segunda el Código Postal. Lo que necesito es que a través de una macro me vaya recorriendo las celdas es decir a1 con b1 valide a2 con b2 valide etc. hasta llegar a la ultima que tenga información la validación seria que el Estado corresponda al Código Postal indicado y viceversa. Tengo los rangos establecidos para cada estado con gusto los anexo en archivo. Posteriormente quiero que cuando no este correcta la validación, me vaya generando …

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…

Que tal amigos del foro, aquí les dejo la función de Numero a texto por si a alguien le interesa y esperando no este repetido este tema,.. saludos Option Explicit Dim cTexto As String 'Variable para las funciones Public Function Numletras(ByVal Numero As Double, ByVal Mayusculas As Integer) As String Dim NumTmp As String Dim c01 As Integer Dim c02 As Integer Dim pos As Integer Dim dig As Integer Dim cen As Integer Dim dec As Integer Dim uni As Integer Dim letra1 As String Dim letra2 As String Dim letra3 As String Dim Leyenda As String Dim Leyenda1 As String Dim TFNumero As String If Numero < 0 Then Numero = Abs(Numero) NumTmp = …

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

Que tal a todos los que asisten a este foro. Gracias a que me tope con un par de problemitas en uno de mis archivos pude realizar esta pequeña idea en un libro de excel, los problemas eran; Primero, necesitaba copiar datos de una hoja a otra automáticamente. El segundo problema era crear una lista de validación justamente con esos datos introducidos, pero requería que la lista fuese una que no poseyera duplicados. Y llegue a una solución, la verdad no se si sea muy eficiente con las herramientas que utilice, pero en fin aquí les dejo el archivo. Espero que a alguien le sirva, o tome alguna idea de este archivo para adecuarlo a alguna de sus necesidades. Saludos a todo…