Estimados para la siguiente consulta adjunto programa de ejemplo Requiero ayuda para completar el programa de gestión de bodega que adjunto en este mensaje. En la portada del programa hay 3 enlaces para las distintas bodegas. Si vamos a una (cualquiera) les mostrara un listado de productos los cuales están hiper vinculados (hacemos clic en cualquiera de los productos) y nos llevará a su hoja respectiva. Hasta aquí esta todo bien. Ahora la idea es que el encargado de bodega respectivo complete la información de la fila correspondiente y haga clic en el enlace "Obtener Comprobante" y luego debiese aparecer una ventana consultando que número de comprobante es el que quier…

Veamos tengo la siguiente duda se puede capturar un hwnd de cualquier objeto que este en el userform?, por el momento logro esta acción sobre el userform con el uso de api pero no lo logro para por ejemplo un combobox Para la captura del hwnd uso lo siguiente Option Explicit ' declaración api '''''''''''''''''''''''''''''''''''''''''' Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long ' función para la captura '''''''''''…

Estimados Buenas Noches Acudo a uds una ves mas para solicitar de vuestra valiosa ayuda. Arme un codigo de la siguiente manera, me ayude de google para llegar a este: Sub AbrirWeb() Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Navigate "http://www.mercadopublico.cl/Portal/Modules/Site/Busquedas/BuscadorAvanzado.aspx?qs=1" Do DoEvents Loop Until IE.readystate = 4 IE.Document.getelementbyid("txtSearch").Value = "2239-14-LP14" IE.Document.getelementbyid("btnBusqueda").Click IE.Visible = True 'Posibilidad de obtener codigo fuente 'IE.Visible = False End Sub[/CODE] Este código me abre la pagina web, lo hago así porque deb…

Que tal, rápidamente les agradezco el apoyo a todos los que lo necesitamos, en verdad es una super ayuda. Lo que necesito es para pasar todos los datos contenidos en una fila que contengan una palabra determinada. por ejemplo: tengo varios productos que se pagaron de forma diferente, en una columna tengo especificado su forma de pago. lo que quiero es especificar en algún lado la palabra "efectivo" o "cheque" (forma de pago) y que me pase toda la información de las filas que contengan pago en "efectivo". Lo hice mediante una formula de condición "si" pero me deja filas en blanco. me dijeron que seria mejor con una macro. El detalle es que no tengo especificado el …

Hola Amigos, Quiero obtener los dias disponibles de una persona x, y mostrarlos en un listbox por ejemplo, en combobox o listbox marco la persona, y en el listbox, muestre los dias libres o disponibles, algo como esto: los datos estan asi: Gracias

hola a todos: Tengo un inventario de equipos, el cual se tiene que actualizar diario, lo que quiero hacer es que mediante un buscador, buscar el equipo en todas las hojas existentes, seleccionarlo luego poder modificarlo y trasladarlo a la hoja que corresponde según el estado en que se encuentre o desee. Soy recontra novato en esto asi que quisiera saber si alguno de ustedes me podria dar una mano. Muchas gracias estare pendiente a alguna respuesta prueba.zip

Buenos días Tengo una duda de si se puede hacer un multiplicación con vba solo cuando aparezcan unos valores determinados. Me explico: En el combobox1 tengo una selección ( montar cabezal) en el combobox2 tengo seleccionado (0.75)y en el combobox3 tengo seleccionado (48). La idea es que la formula actuara solo cuando apareciera esa selección en el combobox1. " montar cabezal = 48*0.75*0.25"-(0.25 es una constante) . Este resultado se mandaría a una columna de un listbox Gracias de antemano

hola a todos tengo varios libros excel (son 40 en total uno por cada trabajador) de los cuales debo extraer algunos datos determinados y pasarlos a otro libro independiente. todos los libros son iguales en formato, solo cambia la informacion contenida en ellos. en cada libro existe una hoja por cada mes. (se podria preguntar antes de copiar los datos, que mes es el que se necesita ) adjunto archivos para que tengan una referencia. necesito extraer de cada libro: ejemplo. Macarena Jimenez : Total 40 horas actividad código 20122 proyecto 1: 20 horas total primera semana : 12 hrs total sagunda semana: 6 hrs actividad código 14133 proyecto 2: 20 horas …

Buenas tardes, Creo que este es el foro mas acorde a mi consulta, de no ser así, pido disculpas. Soy un usuario de Excel aficionado y tengo un nivel básico, no he trabajado nunca con macros ni programación, por lo que si mi consulta es muy absurda, tambien me disculpo. Ahora la duda. Tengo un Excel con una serie de datos ordenados en una lista (Digamosle Hoja1) con una columna de identificador y una segunda pestaña con una plantilla para imprimir (Digamosle Hoja2). En esta plantilla (Hoja2) introduzco el identificador y con formulas simples se me actualizan los campos necesarios con los datos de la fila correspondiente del identificador de la (Hoja1) y pulso imprimi…

Hola Amigos del Foro Recurro a su valiosa ayuda para avanzar en un archivo que he venido adaptando para una automatización que requiero. Tengo 2 Archivos 1.-Filtro Archivo.xlsm 2.-Mayor.xlsx El archivo 1.-Filtro Archivo.xlsm tiene 2 Hojas 1.a.- En esta hoja “PROFIT” esta la data de la información a filtrar en 5 columnas Código/Fecha/Referencia/Descripción/saldo CODIGO FECHA REF DESCRIPCION SALDO 110102 31/1/2020 4 223 0000008291 TRAN,J306725024AUTOMERCADOS PLAZA'S, C.A./J306725024 AUTOMERCADOS PLAZA'S, C.A. …

Hola a todos, por favor si alguien me puede ayudar con el siguiente caso: Tengo una hoja llamada "sin formato" la cual necesito dar formato en la hoja llamada "con formato". lo que necesito es que a partir de cada fila vacia de la hoja "sin formato" se inserte una debajo de otra el siguiente texto : SALDO ANTERIOR : MOVIMIENTOS MES : SALDO ACTUAL : SALDO TOTAL : debiendo quedar tal como se muestra en la hoja llamada "con formato" y si se pudiera hacer el respectivo calculo tal como se muestra en las columnas "F" y "G" que se encuentran sombreadas de color celeste. Muchas gracias Consulta_Libro.xlsm

Estimados, soy nuevo en el foro y estoy empezando a experimentar la utilizacion de macros y vba, la verdad me a servirdo mucho y me parece muy interesante. Ahora mismo estoy con un problema en la configuracion de una macro. La cuestion es que esta macro me importa de una carpeta ( que contiene varios archivos ".txt", los cuales dia a dia van cambiando de nombre) pero solamento me los importa si los tengo en mi maquina, lo que necesito es que me importe estos datos desde un servidor en comun que usamos en el trabajo. Por lo que tngo entendido el codigo "chdir" no sirve para importar datos desde una red o servidor. Me podrian ayudar con este problemita. Aca les dejo la mac…

Hola, pretendo agrupar y sumar los artículos dentro del mismo listbox, pero sin tener hoja secundaria donde realizar las operacines. En el archivo adjunto pongo un pequeño ejemplo. Prueba.xlsb

Hola amigos tengo el siguiente código para cargar una imagen: Private Sub foto_Click() On Error Resume Next Dim Ruta, Lista As String Ruta = ThisWorkbook.Path nombre = Worksheets("MATRIZGENERAL").Range("b6").Value If Lista = "" Then Exit Sub marcofoto.Picture = LoadPicture(Ruta & "\prueba\" & nombre & ".jpg") End Sub [/CODE] y todo funciona el problema es que cuando las imagenes son muy grandes solo se ve una parte en el cuadro marcofoto (image), como puedo solucionarlo para que redimensione la fotografia antes de cargarlo al marco y poder ver la foto completa. espero puedan ayudarme. saludos

Hola amig@s! Estoy intentado crear una macro que inserte una imagen en Excel pero que antes la comprima. Le he dado muchas vueltas a este tema pero no hay manera, lo único que he conseguido es lanzar la ventana de compresión de imágenes y pasarle los valores para que la comprima, pero esto a veces funciona y otras veces no... Set octl = Application.CommandBars.FindControl(ID:=6382) Application.SendKeys "%w~~" No se si hago algo mal... o hay otra forma mejor. Un saludo, gracias de antemano

Buenas tardes, Tengo una tabla en la que capturo bastantes datos relativos a horarios de salida de vehículos y los retrasos que se producen en cada evento de salida. Registro cada retraso en franjas de 15 minutos (0:15), hasta un máximo de 4 horas. En la tabla tengo insertadas en la celdas destinadas a registrar éstos retrasos una lista desplegable que contiene cada uno de esos valores (0:15, 0:30,......,3:45, 4:00). El problema es que la tabla, para que muestre la mayor parte de los datos, tiene aplicado un zoom de 70% y la hora de desplegar la lista en esas celdas hace que los valores de lista se vean demasiado pequeños. Por ese motivo había pensado en que cada vez q…

Hola, buenas tardes, Estimados. estoy trabajando en una macro de generación de ordenes de trabajo pero me da error al crear una ot y no me enlazan una serie de datos con el modelo final de ot que necesito crear, si alguien me pudiera ayudar se los agradeceria, ya que tengo asociados equipos, patentes horometros, kilometrajes, costos, etc. Al yo pulsar generar ot me deberia crear una pestaña con la ot modelo (se asigna el numero de ot en pestaña; ej; OTTCLM64 y en el encabezado del formato )y asignar todos los datos que le ingrese en la tabla de ingresos,luego al asignar hh de cada actividad y costos asociados (costos que deberian estar enlazados a la planilla de…

Hola a todos, He buscado para ver si había algo como lo que busco y si lo hay no lo encuentro. Lo que necesito es lo siguiente si el valor de la celda A1 esta entre 1 y 2 que la celda A2 cambie a verde. Se puede hacer. Muchas gracias

Hola, veréis tengo una idea para ejecutar una macro que no se como resolverla. Me explico, tengo un libro con siete hojas de las que necesito eliminar, en cuatro de esas hojas, las filas en la que al menos una de sus celdas no tenga contenido. Hasta el momento lo vengo realizando con la macro: Sub EliminarRegVacios() ActiveSheet.Columns(ActiveCell.Column).SpecialCells(xlBlanks).EntireRow.Delete End Sub Pero el problema que me encuentro con esta macro es que tengo que ir hoja por hoja ejecutando la macro y mi idea es poder realizarlo en todas las hojas automáticamente de una sola vez. Además se da la circunstancia que una de las hojas no cumple la condición de …

Hola, Estoy intentando de adaptar una macro que tengo de otro proyecto y me da error "run-time 424 se requiere un objeto". He buscado información sobre el error en causa pero no me aclaro. Lo que pretendo, en la hoja "LISTADO" atraves de un TEXTBOX en cuanto voy escribiendo un nombre completo o parte de un nombre se me muestra solo la/las fila/s que se aproximan o contienen el nombre completo de la lista de base de datos que tengo en los rangos "B7:H10000". Tal como lo tengo ahora escribo en la celda "C4" el nombre completo y me marca en amarillo la parte de la fila que contiene dicho nombre. Si la lista es demasiado larga costara mucho en localizar la…

Tengo un formulario form aplicativo excel , que se habre ejecuta el formregistration y pide algunos datos para registrar un usuario lo tipico , luego se da click en camera y se habre otro userform que muestra la webcam en vivo para luego darle en capture y tomar la foto al usuario que se carga en el userformregistration como vista previa , y luego regresar y darle click en salve al formulario userformregistration, donde la imagen del usuario se guarda en una carpeta donde se tiene este excel form, guardado y los datos se guardan en las celdas del libro sheets1 junto con un dato de la foto en letras, en la celda GAMBAR,, necesito que este aplicativo me deje tomar 2 …

Buenas días, tengo un Libro de excel "nuevos_datos" cuyos datos actualizan otras personas y me lo pasan a mi. Lo que tengo que hacer es pegar en mi libro "referencia" aquellos datos que son distintos del libro "nuevos_datos" y todas las celdas que se actualizan en "referencia" cambiar el color de la celda a Amarillo. Necesitaría una macro que hiciera las siguientes órdenes (o algo similar): Si Referencia.(A1) =nuevos_datos.(A1) 'comparar celda a celda los dos libros entonces Referencia.(A1); 'el valor de la celda se mantiene sino Copiar nuevos_datos.(A1) 'copiar el valor de la celda Pegar en referencia.(A1) Formato= amarillo 'tras pegar el valor tiene que cambiar e…

buenas tardes amigos , tengo un problema al realizar una macro que realice una tabla dinamica tengo los siguientes datos. Nombre Nombre_Concepto Año Mes Valor MONTES DEL CASTILLO JAIRO ASIGNACION BASICA-SUELDO 2002 1 1225174 MONTES DEL CASTILLO JAIRO AUXILIO DE TRANSPORTE 2002 1 34000 MONTES DEL CASTILLO JAIRO AUXILIO DE ALIMENTACION 2002 1 50848 MONTES DEL CASTILLO JAIRO PRIMA ANTIGUEDAD EMP.PUBL 2002 1 67385 MONTES DEL CASTILLO JAIRO PRIMA TECNICA 2002 1 263412 MONTES DEL CASTILLO JAIRO AJUSTE FONDO SOLIDARIDAD 2002 1 16809 cuando grabo la macro para que me cree la tabla dinamica me genera el siguiente error agradezco cualquier ayuda para solucionar e…

Buenas tardes, Quisiera que me ayuden con un problema que tengo lo que pasa es que tengo una base de datos de algo de 2000 correos a los cuales quiero enviarles mi publicidad pero todos los correos estan en un cuadro de texto y asi no los puedo importar a outlook adjunto una muestra de como estan los correos a ver si alguien puede ayudarme con una macro ya que estoy en 0 de como hacerlo. Gracias anticipadas. otro.rar

buenas tardes a todos los compañerossss... les agradezco de antemano su colaboración e intención con mi duda... tengo un documento de excel y vba (programa) que al ejecutarlo me abre inmediatamente el primer formulario, donde se debe escribir un nombre de usuario y contraseña.... mi pregunta es la siguiente... hay alguna forma de poder incluir en este formulario o en el documente en gral, una macro o aplicacion de tiempo que se ejecute cada 30 días a modo de licencia en programasss...de modo que cada 30 días el programa se bloquee y cambie de contraseña automáticamente....(contraseña que deberé saber yo únicamente) dicho formulario contiene dos textbox (textbox1 =usuar…