Tengo programada esta macro para insertar una imagen en una hoja de Excel, y funciona bien. Sub InsertarImagen() Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta = MiPc.GetFolder("C:\Documents and Settings\Usuario\Escritorio\foto\") Set Archivos = Carpeta.Files For Each Archivo In Archivos: Exit For: Next ActiveSheet.Pictures.Insert(Archivo).Select ActiveCell.Select End Sub La pregunta es: ¿como se programaría para un equipo con sistema operativo MAC?

Sres buenas tardes, tengo una cuestion con un archivo que esta red, me gustaria saber si existe la posibilidad de no permitir abrir el archivo si algun otro usuario lo esta ulilizando. (Macro, confifuracion o algun otro metodo) la realidad es que el archivo cuenta con macros y no permite compartirlo en red, por las limitaciones que da esta funcion, pero si lo abren como lectura, se olvidan y empiezan a capturar, y pues si despues dan guardar no permanecera esa informacion en el libro correcto. Espero haber sido claro Muchas gracias que tenga excelente fin de semana.

Buen día, tengo la siguiente pregunta, tengo un shape en la hoja y al hacer click en este, quiero insertar otro shape, la cosa es que este segundo shp quiero que aparezca dentro del área visible de la hoja, el segundo shape debería aparecer debajo del primero, pero si el primero esta muy abajo el segundo debería mostrarse por enzima del primero para que quede en el área visible de la hoja. pongo una imagen a continuación en el primer cuadro se muestra bien en el segundo es como no quisiera que salga, y el tercero la solución para el segundo cuadro ahora bien a la hora de insertar tendría que preguntar if shape1.top + shape1.height + shape2.height - hoja…

Escoger por medio de CHECKBOX que datos lleva mi tabla dinamica Buenos Días: No se como hacer para crear una macro que al realizar una tabla dinamica me permita escoger por medio de los CHECKBOX que campos y en donde va lo que escoja. Por favor necesito de sus conocimientos lo mas pronto posible

Hola... ¿Qué se debe modificar en el código para buscar por número de cédula? Filtro.xlsm

Hola a todos, mi nombre es A.Maurizio y mi problema es este: no me digas que soy pesado porque siempre vuelvo más o menos en proponer las mismas preguntas; Pero créeme, lo hago exclusivamente porque quiero aprender más. posible. El hecho es este: Utilizando este sitio: https://www.worldweatheronline.com/torino-weather/kostroma/ru.aspx Me gustaría poder extraer las cantidades mínimas y máximas de los pronósticos meteorológicos. e inserte estos datos en las celdas (A1) y (A2) de la hoja de Excel. ¿Cómo puedes hacerlo todo? Gracias (Ps) Intenté usar el método (texto interior) combinado con una celda; ¿Pero no funciona? ##########################…

Buen día Gente, Primero que nada agradecer a todos por la ayuda que me han prestado en este foro, ya que he encontrado mucha información valiosa para mi, MUCHAS GRACIAS GENTE POR SU TIEMPO Y COLABORACIÓN!!!! Bueno, necesito una ayuda con un tema, tengo un botón con el cual abro un archivo mediante un hipervinculo a este que se carga a un label, el tema es que no se como colocar que si el label esta sin informacion me salga un mensaje como "La imagen no esta cargada" y no me genere el error. Este el codigo del boton Dim url As String 'para abrir una pagina url = Label28 ActiveWorkbook.FollowHyperlink url [/CODE]

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez se le hace clic arroja un numero decimal en formato "0.##0" en el mismo textbox, este numero decimal sale despues de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango decimal le ponga un color u otro, de la siguiente manera si es >= 0.333 ponga el color del forecolor del textbox15 rojo si es > 0.166 y <0.333 ponga el forecolor en amarillo si …

Buenos días Tengo una macro que me abre un Excel y me rellena una serie de datos. Hasta ahí todo correcto. Pero me gustaría darle un poco mas de utilidad y que me abriera el archivo con el nombre que finalmente deseo guardarlo y lo guardara en la carpeta correspondiente Sub MetodoAbrirLibro() Dim rngCopy As Range, rngCopyOT2 As Range, rngOT1 As Range, rngOT2 As Range, cel As Range, cel2 As Range, adres$ Dim wbOr As Workbook, wbDes As Workbook Dim nombre As String, Ruta As String Application.ScreenUpdating = False Set wbOr = ThisWorkbook Set wbDes = Workbooks.Open("C:\Users\jctorres\Desktop\Partes presenciales\C2020-0136_Carga_Horas (1)2.xls") Wit…

Buenos días a todos. Desde un formulario1 y a través de un ComboBox voy a otro Formulario2 o Formulario3 El problema surje cuando vuelvo al Formulario1, y es que no me acepta de nuevo el valor marcado por primera vez, ej. Formulario2 Adjunto el fichero para que veais más claro el problema. Gracias anticipadamente Ensacamo Código Formulario 1 Private Sub ComboBox1_Enter() Dim UltimaFila As Integer On Error Resume Next ComboBox1.Clear Sheets("Hoja1").Select Sheets("Hoja1").Activate UltimaFila = Range("A1").End(xlDown).Row For a = 1 To UltimaFila Dato = Cells(a, 1) ComboBox1.AddItem Dato Next End Sub Private Sub ComboBox1_Change() On Error Resume Next If Co…

Buenos días, Tengo un formulario en VBA en el cual el usuario introduce 32 valores y el programa compara si hay una diferencia entre algunos de ellos mayor de diferentes parámetros. Tengo una función que pinta el fondo de las textbox de rojo o amarillo cuando se superan estos parámetros. Funciona perfectamente, pero cuando borro uno de los valores introducidos (por ejemplo porque me he equivocado al introducirlo) me salta el error 13 'no coinciden los tipos'. Soy consciente que es porque pasa de comparar dos números a un numero y un "null" pero simplemente quería saber si la función puede esperar a que haya un valor para compararlo y así no tener que rein…

Buenas foreros, tengo una consulta, Solo quiero que me respondan a esta pregunta, la explicación está en la hoja, ¿es más efectivo/eficiente esta forma o por elcontrario es preferible añadir los formatos y fórmulas directamente desde lamacro? Un saludo. DudaEficiencia.xls

Buenas tardes, tengo una duda que me trae de cabeza y seguro tiene fácil solución, pero no consigo dar con ella. Pongo un ejemplo de código sencillo: Private Sub ejemplo_Click() Load userformexterno userformexterno.Show Msgbox("Hola") End Sub Tengo un userform en el que tengo un commandbutton, que en este caso es "ejemplo". A su vez tengo otro userform al que he llamado "userformexterno". Pues bien, lo que yo quiero es que al clicar en el commandbutton "ejemplo", se ejecute primero el userformexterno, y una vez que se haya ejecutado se muestre el mensaje "hola". Sin embargo, lo que me está ocurriendo es que cuando clico en el botó…

Buenos días y gracias de antemano. Me estoy devanando los sesos y no consigo lo que necesito, que no es sino lo siguente: Tengo dos libros de excel, cada uno de ellos, en un directorio diferente de una red. A saber: H:\PROFESORES\ESTUDIOS\03_GESTION IPA\CURSO 2014_2015\DATOS\CUARTO\1CTR\RESUMEN.xls H:\PROFESORES\ESTUDIOS\03_GESTION IPA\CURSO 2014_2015\DATOS\FECHAS LIMITE.xls En la celda B5 DE FECHAS LIMITE.XLS pongo la fecha tope a partir de la que ya no se permitirá a los usuarios hacer uso del libro RESUMEN.xls. La idea es que cuando se abra la hoja"RESUMEN" del libro RESUMEN.xls, el procedimiento Sub auto_open() lo primero que haga es comprobar la fecha actual del…

Buen día a todos, Tengo este problema y me gustaría recibir su ayuda, por favor. La idea es la siguiente: En la Hoja1 mediante un botón se copie los valores de la celda ( A7,B7,C7,D7) a la Hoja2 celdas (B6,C6,D6,E6). Ahora, si modifico el contenido de la Hoja1 en las celdas ( A7,B7,C7,D7) y presiono el botón , quiero que agregue estos nuevos datos debajo,es decir en las celdas (B7,C7,D7,E7) de la Hoja2, y así sucesivamente se vayan agregando como si se tratase de una lista. Posterior a ello en la Hoja2, se muestre una imagen de "check list" si tiene un dato escrito en las celdas (B6,C6,D6,E6). de lo contrario que no se muestre nada. PD: Mi explicación esta acorde …

Buenas... Tengo una tabla en excel que estoy ingresandole datos por medio de un formulario.. solo se le digita CODIGO y CANT CODIGO NOMBRE CANT STOCK DIFERENCIA Los campos NOMBRE, STOCK son traidos por medios de un buscarv de otra hoja del mismo libro.. y la diferencia es la resta entre STOCK y CANT. cual es el inconveniente..que si digitan por eJ; CODIGO NOMBRE CANT STOCK DIFERENCIA 123 Producto1 20 30 10 456 Producto2 10 11 1 123 Producto1 5 30 25 el producto 123 ya habia sido digitado y deberia sumarselo al primero que fue ingresado osea deberia q…

Hola buenos días, me encontré el Turbo filtro que subio el estimado @Gerson Pineda en el foro. Me funciona de maravilla, pero quería ver la posibilidad de hacer un cambio, tengo las primeras 5 filas del archivo inmovilizadas y me gustaría que cuando se aplicara el filtro estas se sigan visualizando ya que están tienen datos que necesito para poder verificar bien los datos que filtro. Adjunto el archivo, muchas gracias de antemano. AT.xlsm

Hola de nuevo a todos. Sigo construyendo mis simulaciones genéticas. Quiero generar la forma en que se observa un carácter en un individuo a partir de la información que este contiene (disculpa @Antoni pero me resulta complicado ser conciso con este tema). Adjunto un archivo con un ejemplo de lo que quiero conseguir. https://1drv.ms/u/s!ArSI6ZjR1bGVlYRKJdj0eGq5jDa87Q Partimos de: Unos caracteres ya definidos (hoja naranja “Color_y_tamaño_flor_CL”). La definición de caracteres condiciona como se expresa el carácter y el código tendrá que buscar en la hoja de caracteres los diferentes parámetros de expresión. Esta definición implica: …

Hi Everyone my new problem is this: On an excel sheet with Office 2007 I entered numbers ranging from cell (A1: E18) And Three Shape Buttons Now the purpose of this project and that I would like to be able to achieve is this: 1) Pressing the first key It should from Routine Create a Word Sheet and insert it in my sub Folder called (Attachments) with only the data taken from the cells (A1: E18) and save it with the name I insert in the cell (I1) 2) The Same Thing You Should Be Achieving with an Excel Sheet 3) Also for what concerns the file in pdf format which in some ways is the only one that I was able to make work Except for the fact that I would…

Hola, Estoy mirando por la red y seguro que mi duda también está perfectamente explicada en algún sitio ya que es increíble la cantidad de información que existe pero, no puedo demorar más el envío que me han encomendado, así que me he atrevido a pedir nuevamente vuestra inestimable ayuda. Tengo que enviar un informe y a su vez solicitar información a diversas empresas. Tengo que filtrar la información correspondiente a cada una de ellas pero sólo me tiene que filtrar la información que existe. No sé como decirle que si no hay nada, que no haga nada. Bueno no se nada. Envío un archivo que quizá os ayude a comprender mejor lo que necesito. Gracias de nuevo y un saludo…

Estimad@s buen día, Tengo una consulta estoy trabajando en un Proyecto con base de datos, y tengo una consulta haber si me pueden ayudar con ello: Tengo una lista con resultados que se extraen de una tabla, lo que quiero es que cuando valla marcando cada checkbox que esta en el orden de la lista, se valla agregando a las posiciones(textbox) si en caso no marcara un checkbox deje en blanco la posicion de acuerdo a su orden. adjunto un ejemplo de formulario. Muchas gracias por el apoyo. Saludos Cordiales, formulario_Muestra2.xlsm

Buenas a todos. Ante todo presentarme como nuevo miembro del foro puesto que es mi primer mensaje. Tengo una consulta que realizar. Trabajo con una tabla que tiene una enorme cantidad de hojas. Así pues, para manejarme un poco mejor decidí crear en la primera hoja un índice. Para eso busqué alguna de las macros que ya existen y estuve trasteando con ella para adaptarla a mis necesidades. Lo que he conseguido hasta ahora es: - Cada vez que abro la hoja nº1, llamada índice, la macro se ejecuta, comprueba las pestañas del libro y crea un índice según la descripción siguiente (cuando parezca que mi macro coloca las cosas en sitios raros es que lo necesito en esa posición y…

Tengo varios archivos de excel con diferente nombre en cada una de las hojas. En cada hoja aparecen estos valores en unas celdas que no son siempre las mismas TELA y CLAVE. Necesito copiar los valores que están a la derecha de estas palabras para hacer una base de datos de todos los archivos que están en el mismo directorio. Solicito su ayuda. Gracias

Hola, no sé si hago mal, en ese caso disculpas. He abierto este mismo tema en fórmulas, pero no sé si habría que hacer una macro. Tengo en la hoja llamada "DATOS", la celda R2, en la cual introduciré el nombre de otra hoja. Con ese dato quiero acceder a la hoja que indique R2, que está en otro libro, sería como en la fórmula siguiente, sustituyendo 48'! por la referencia a R2(en el que está el nombre de la hoja del otro libro). PHP =SI(INDIRECTO(("'EQUIPOS'!G"&$A$1))="EA";'C:\Documents and Settings\MIGUELB\Escritorio\[Operaciones mto.xlsx]48'!C29;"NO") PHP Muchas gracias

Saludos Se me hace muy complicado poder escojer los partname para cada maquina, y saber si tengo la capacidad de la maquina Tengo 3 hojas, "2013", "datos de maquina" y "Lista de equipos",Necesito su ayuda o consejos para realizar la siguiente macro. 1. El la hoja 2013 necesito una macro para agregar mas partname a las maquinas de la 1 a la 30 y tener la opcion de agregar mas maquinas. Que debo hacer: 2. Mi idea es un filtro con un listbox ejemplo: de hoja datos de maquina, Max clamping force tons: 200, robot : rexroth , Number Machine :1 3. Si llegara un nuevo partnumber poder escojer en la hoja la Lista de equipos. Resumen: requiero que la macro me de la opc…