Hola que tal, Oye encontré este código que te permite resaltar la celda seleccionada Si me funciona pero solo en el libro que la pongo ya sea creando un modulo en VBA o en la hoja, el problema que tengo es que quiero saber si existe la posibilidad de que cada vez que se abra un libro o algún archivo corra este código, ya que tengo un familiar que sufre de la vista y le ayudaría mucho si este código corriera sin problemas cada vez que él llegue a su maquina abra algún documento de Excel y automáticamente corra el código, De antemano gracias y ojala me puedan ayudar. '******************************************************************************* '* Workbook_SheetSele…

Hola, necesitaba borrar automáticamente los datos de una serie de celdas y siguiendo un tutorial de internet y el archivo que proporcionó otro forero aquí he creado una macro para hacerlo, pero me da un fallo y no sé como solucionarlo. ¿Alguna idea? Gracias y un saludo Nota: no me deja adjuntar el archivo, así que pongo un enlace para descargarlo: https://www.dropbox.com/s/9g1bzicqqzad9sm/Cuaderno 2015-2016 prueba.xlsm?dl=0

Hola comunidad, he intentado hacer ésto de muchas formas y aún no consigo obtener lo que necesito, en realidad no sé si se pueda programar con VBA, así que se los comparto por si alguien tuvo algún problema similar y me puede dar una luz Verán, tengo la página web ipodperu.com (De mi propiedad), en ella tengo un IFRAME que apunta a un vídeo en Youtube Lo que quería hacer era cargar la web en un objeto WebBrowser en un formulario y con un SpinButton modificar el SRC del IFRAME, no he podido cargar la web porque me salen constantes ventanas de errores (Por el JavaScript al parecer) Entonces desde un módulo he accedido a la web usando un objeto InternetExplore…

Saludos cordiales a todos esperando que se encuentren perfectamente me dirijo a ustedes con la siguiente solicitud,me gustaria separar por comas los datos que esten dentos de un array de tal menera que esto: arreglo1 arreglo2 arreglo3 se vea asi :arreglo1,arreglo2,arreglo3,la intencion es que los datos que recoja el array de una dimencion desde un listbox me sirva como parametro en un query algo como asi select * from [XTabla$] where Nombre in (x_Array) esperando su amable ayuda me despido de ustedes agradeciendo de ant…

Hola, mi nombre Itonino y quisiera daros mi saludo de bienvenida a todos los foreros de Excel. Solicito de vuestra colaboración y ayuda para resolver una cuestión que se me ha presentado en una hoja de calculo de Excel . 1º AYUDA En mi libro de Excel dispongo de tres hojas Excel nombradas como hoja 1,hoja 2 y hoja 3, hasta aquí todo bien ahora lo que quisiera hacer es automatizar la acción de renombrar cada una de las 3 hojas . Para tal fin quiero poder renombrarlas desde las celdas D3, D4, y D5 de la hoja 1 de Excel , como ejemplo seria para D4 renombrarla por LUNES, D5 por MARTES y D6 por MIERCOLES, de manera que no deba de hacerlo por el método tradicional por el q…

Estimados: Solicito su valiosa ayuda Tengo una planilla en la cual deseo buscar datos de otra con una macro. En la parte donde dice cuenta, deseo colocar sólo el número y presionar buscar, si es que existe, necesito que me arroje los datos, si es que no, que aparezca mensaje de error. LEs adjunto la planilla, les dejé un ejemplo. Por favor si alguien puede ayudar se lo agradecería mucho Gracias Libro1.xlsm

Hola a Todos espero que se encuentren bien, Tengo un archivo el cual necesito que al momento que uno vaya ingresando datos en la columna H este me arroje un mensaje si ya fue ingresado anteriormente, para evitar registros duplicados. Ojalá alguien me pueda ayudar la verdad desconozco como poder hacerlo. Me imagino que debe ser con el evento change() Gracias ojalá me puedan ayudar. Saludos Consulta.xlsm

Hola buenas, estoy intentando pasar un listbox a una función que me sume los valores de una de las columnas del listbox, pero aunque tenga datos me dice que recibe null, que el listbox vale null. No puedo entender lo que pasa ya que el mismo listbox lo paso a otra función en el mismo método para ver si existe un valor introducido y si que funciona. Private Sub bnt_ADD_TQ_Click() If Me.txt_DESCRIPCION_TQ.Text = Empty Or Me.txt_PRECIO_TQ.Text = Empty Then MsgBox ("Te has olvidado de introducir algún dato.") Else If Me.lst_TIQUETS.ListCount = 0 Then Me.lst_TIQUETS.AddItem Me.lst_TIQUETS.List(Q, 0) = Me.txt_DESCRIPCION_TQ.Te…

tengo un archivo con dos hojas, pedidos y distribución. al momento de completar la hoja distribución con un formulario vba (userform2) intento que busque y compare dos columnas la columna B de pedidos y la columna c de distribución, y en una tercera columna L de la hoja pedidos cambie el estado de pendiente a preparado. pero me arroja el error 91 ADM RTOS ENERO-FEBRERO2020.xlsm

Hola que nada que tal buenos días. Soy nueva en el foro, antes que nada quisiera agradecer este espacio, donde uno puede aprender y retro alimentarse de los demás he aprendido mucho en este foro. Les cuento mi problema, realice una macro la cual hace una serie de procedimientos, uso dos libros uno llamado remisión y otro llamado pedidos, en el libro pedidos tengo un botón el cual lo que hace es guardar lo que tiene el libro pedidos en un pdf, la carpeta donde guardo dicho archivo se encuentra en C:\Pedidos, pero al momento que presiono el botón para crear el pdf, me indica que la carpeta no está creada a pesar de haberla creado, lo más extraño de todo es que he probado …

Hola, busco un metodo de llenar un combobox desde una base de datos a traves de un recordset, lo he intentado de esta forma sql = "select * from na_solicitante" With comSQL .ActiveConnection = conSQL .CommandText = sql .CommandType = adCmdText Set curSQL = .Execute End With While Not curSQL.EOF combobox1.additem curSQL.Fields(0).Value curSQL.MoveNext Wend y me arroja un error. si alguien pudiera ayudar muchas garcias de antemano

Muy buenas tardes a todos, mi nombre es Gonzalo (LordAntrax) y deseo hacerles una consulta: Estoy creando gráficos con VBA en Excel. El tema es que todo corre perfecto, pero al momento de autoajustar el tamaño del mismo, no me deja hacerlo. El código es el siguiente: Al llegar a la sentencia .MinimumScale = Range("B6"), me da un error de que el objeto ya no es válido. Alguien me podría dar una mano con esto? :suspicion: Desde ya, muchas gracias. Saludos a todos

Que tal comunidad me presento rápido mi nombre es Fernando ya es de madrugada y tengo el cerebro un poco ciclado ya jeje vengo a implorar una ayuda acerca de una duda que me surge en estos momentos como concatenar y remarcar en negrita algunos campos. El problema es este: Tengo esta función de concatenar =CONCATENAR("El usuario ",B2, " tiene la ficha ", A2, " y tiene un sueldo de ", O2, " Quincenales")[/CODE] la celda B2 corresponde al nombre de usuario lo único que deseo es saber como remarcarlo en negrita trate de seguir este tutorial y entender macros pero no me resulto nada https://www.ayudaexcel.com/foro/macros-programacion-vba-10/cerrado-concatenar-celda…

Hola muy buen día, Espero estén bien y que todos les marche muy bonito con muchas bendiciones. Me dirijo a ustedes en busca de una guía, sobre todo su ayuda ya que no sé cómo ordenar esto que tengo en mente. Les adjunto dos archivos que me gustaría consolidar ya que esas ideas que vi a través de estos foros me gustaron y quisiera adaptarlos de la siguiente manera: Archivo UNO: “Excel para comparar búsqueda”, me gusta la función de búsqueda que tiene para 2 libros diferentes de Excel, lo que le faltaría que al igual que las hojas en la lista desplegable listará los nombres de las columnas que tiene la hoja (de esa manera se pueda escoger la …

Como verán soy muy principiante en el tema Tengo un formulario, y en el combobox1 tengo que poner una fecha, cuando me carga en la hoja, me pone cualquiera, Alguien me puede dar una manito copio el codigo Private Sub CommandButton3_Click() For i = 4 To 3000 If Hoja1.Cells(i + 1, 1).Value = "" Then Hoja1.Cells(i + 1, 1) = Val(TextBox1) Hoja1.Cells(i + 1, 2) = Val(ComboBox1) Hoja1.Cells(i + 1, 3).Value = ComboBox2 TextBox1 = Empty TextBox1.SetFocus Exit For End If Next End Sub Gracias de antemano

Hola a todos Tengo un problema con Excel y espero que ustedes me ayuden a resolverlo pues no sé si aplica alguna fórmula o tenga que actuar con una macro. Me explico. Tengo dos hojas de Excel. En la hoja 1 está la matriz. En la hoja 2, 3, 4, etc. está el reporte mensual que debo hacer. Quiero que en la hoja dos se anoten automáticamente todos los datos que requiero de las distintas columnas de la matriz (hoja 1). O sea que en el reporte en la columna “a”, a partir de la fila 10 se empiece a rellenar hacia abajo automáticamente la información que tengo en la matriz en la columna “a” a partir de la fila 9 y si no hay valor no aparezca nada en la celda correspondiente en …

Buenas foro, ando necesitando un macro para esta plantilla que funcione de la siguiente manera: dependiendo la fecha ingresada en columna B si la fecha es igual a la actual(fecha del dia) en la columna H deberia aparecer el valor 0(cero), si la fecha es anterior pero en el mismo mes deberia mostrar la diferencia de dias con la fecha actual es decir que si en columna B la fecha de ingreso es 08/06/2013 el dia de hoy (10/06/2013) el valor en columna H deberia ser 2; y por ultimo si la fecha de ingreso en columna B corresponde a un mes anterior al actual deberia aparecer la cantidad de dias transcurridos en el mes actual, por ejemplo si la fecha ingresada en columna B es 0…

Buenas, Estoy con una macro para subir archivos a una ruta de sharepoint directamente. Si lo que subo es una copia del libro actual o una hoja concreta no hay problema. Pero si lo que hago es seleccionar un archivo de una ruta para cargarlo desde la macro me sale ese error... he probado con varios tipos de ficheros, tanto de excel como pdf... con nombres sin caracteres raros y no consigo sacarlo, alguna idea? subo ejemplo con el código. Gracias de antemano Se me para en esta línea con ese error: FileCopy archivoSeleccionado, RutaDestino & Dir(archivoSeleccionado) ejemplo_foroAE.7z

Hola, este es mi primer tema y adecir verdad se muy poco acerca de macros, quiero crear una alerta con correo de outlook para determinadas personas siempre, por el momento tengo una alerta de colores donde aplico la funcion =DAYS360(M5,N5,1)donde me salen la resta entre dos fechas, apartir de ahi aplico conditional formatting para que me colore las celas de que estan a 20 dias y ahi voy. Quiero que cada vez que llege a los 20 dias, envie un correo a unas personas especificas, que tenga como subject Recordatorios Predios, y que digamos que se marco de color O8 entonces que como cuerpo del mensaje envie desde el rango C8 hasta AE8 pero sin el O8..... Por Favor, es que re…

Buenos dias, Tengo un problema con una macro que estoy haciendo. En ella lo que quiero es tratar datos de una lista de ciudades y que los copie y los pegue en otra hoja. Hasta aqui todo bien. El problema viene cuando quiero que se muestre un mensaje temporal (MsgBox). El objetivo de este mensaje es pour un lado indicar al usuario la ciudad/municipio que se esta tratando, y también sirve para que el ordenador haga una pausa y actualice los datos de una hoja. Aqui os subo dos ejemplos: Ciudades : En este caso, la macro es solo para mostrar los mensajes y normalmente desaparecen cada 5 segundos (como indicado en la macro). MacroIntento : Se trata de hacer lo mism…

Tengo un archivo de Inventario, al digitar el código en la celda D9 me figura la descripción del producto en la celda D11. Pero lo que me gustaría adaptarle es al digitar el nombre de un producto o solo digitarle las primeras letras como por ejemplo ACETA en la celda D9 que me muestre todos los productos que comience con la ACETA etc. Que seria: 18 ACETA+ERGOTA+CAFEINA SELECPHARMA 21 ACETAMINOFÈN 500 MG ( BLISTER) LAFCO 22 ACETAMINOFÈN 500 MG ( BLISTER) PROMEGAL 23 ACETAMINOFÉN JA…

Hola a todos. Me gustaría saber si es posible que me ayudéis con una macro y me dijeráis si puede hacerse y como. Serían en realidad dos macros y esta es la idea: Tengo un libro con varias hojas en las que yo voy a ser el "administrador". De esas hojas hay 3 en las que quiero que la gente grabe datos y que solo se muestren esas tres hojas. Quisiera también que los usuarios no puedan grabar nada más que en las celdas que yo habilite y que no puedan mostrar hojas ni manipular fórmulas, pero si poder aplicar filtros. La idea es proteger todas las hojas con la misma contraseña y ocultar las que no quiero que vean y además proteger el libro para que no puedan ver dichas ho…

Hola amigos recurro a uds pues no encuentro solucion en internet, mi consulta es: Como envio el foco (SETFOCUS) a un determinado valor de un combobox, les explico el contexto: Tengo un combobox con 3 estados Estado1 Estado2 Estado3 Un formulario que esta en estado1 no puede pasar a estado3, tienen que pasar por estado2, entonces si mi formulario esta en estado1 y le cambio a estado3 y le doy guardar, me envia una alerta y me envia a mi formulario pero pierdo el foco de mi valor inicial "estado1" Muchas Gracias

Buenas tardes y muchas gracias de antemano.Tengo una macro que abre los archivos excel (xlsm) de una carpeta uno por uno y realiza algunas modificaciones y los cierra, el problema surge que los archivos también se encuentran en subcarpetas y necesitaría que estos también los abriera.Tengo las dos macro, peor no se como juntar para que lo haga.Esta macro copia los datos del archivo y los pasa a otro en común:Sub ()On Error Resume NextApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.DisplayAlerts = FalseDim SummarySheet As WorksheetDim FolderPath As StringDim NRow …

Buenas tardes, Tengo la duda, de si existe una macro que filtre filas que cumplan un criterio, las copie en otra hoja, borre el contenido de las celdas, pero que no elimine las filas.