en un formulario he colocado un webbrowser el cual es controlado por unos botones los cuales abren ciertas paginas de internet, el problema consiste en que las paginas web que se abren tienen un botón para cerrarlas, al hacer clic en este cierra el webbrowser del formulario, y al dar clic en otro botón manda un mensaje de error en el método 'Navigate' de objeto 'IwebBrowser2', como se le puede hacer para que el formulario se actualice y asi vuelva aparecer el webbrowser en el mismo. Gracias por la ayuda.

Buenas a todos, este es mi primer post, y lo primero decir que me parece un gran foro, con gente que controla mucho y tienes ganas de ayudar. Por eso, enhorabuena a toda la comunidad. Al grano con un problema que me tiene un poco loco: Primero decir que soy totalmente novato en vba y estoy haciendo una aplicacion simple para gestionar una tabla con datos, a modo de base de datos, para consulta con filtros predefinidos y posiblidad de impresion de reportes. Mi problema es con las fechas...tengo un listbox para las busquedas y desde esos datos filtrados saco el reporte (son 11 columnas), todo funciona correcto y me lo muestra dentro del control listbox perfectamente, p…

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

Estimad@s: Les comento, mediante VBA estoy aplicando la formula contar.si.conjunto que cuenta una cantidad de documentos en un rango de tiempo el tema es que la formula no calcula y se queda con el valor de la primera celda aqui el codigo para que puedan nentender mejor: Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select ActiveCell.FormulaR1C1 = "=COUNTIFS(RC2:RC" & columna & ",""<>""&"""",R2C2:R2C" & columna & ",R4C)" Selection.AutoFill Destination:=Range(ActiveCell, Cells(lastCell, ActiveCell.Column)) Range(Selection, Selection.End(xlDown)).Select ActiveS…

Hola amig@s... Quiero hacer una macro en la que a partir de una seleccion de archivos de una lista, al precionar un botón localice un archivo, lo abrá, copie cierta información y lo pegue en una hoja de trabajo del mismo libro donde esta el botón. Si no encuentra el archivo, lo que quiero es que dé un mensaje que diga que el "Archivo no existe". Inicie con el siguiente código en casa y si funciona, pero en la oficina no abre el archivo, aun que la ruta sea correcta: Sub IMPORTAR_EDO_CTA() ' ' IMPORTAR EL ESTADO DE CUENTA DE UN CLIENTE DETERMINADO X = Range("M6").Value Nota: esta es la ubicación de la lista en la hoja de excel On Local Error Resume Next Workboo…

Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo: Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA") Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011") Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO") End Sub en el otro caso estoy cargando los valores mediante la utilidad RowSource. El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funci…

Hola buenas tardes! Intentaré expresar mi problema... Tengo una base de datos de dos registros en una hoja de excel llamada "DBMain" En otra hoja "Diseño" tengo un formato que se llena con los datos contenidos en "DBMain". Ahora bien deseo que suceda lo siguiente: 1. Se llena el formulario con el primer registro 2. Se manda a impresión previa 3. Se vuelve a llenar el formulario con el segundo registro 4. Se manda a impresión previa 5. Al término de los registros se debe mostrar al usuario una vista previa de los archivos a imprimir (los dos formularios) Pregunta adicional: ¿Es posible hacer esto en excel apoyándome en VBA?

Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión. Recibo Inmobiliaria 1.xlsm

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…

hola, necesitaria si se puede eliminar el excel que contiene la macro en uso. Si no se introduce bien la clave y para que no generen copia Lo que pense es que se cierre el libro y se elimine, puede ser con la instruccion: ThisWookbook.close y luego kill mas el Path en donde esta? pero no me lo toma, como podria hacerlo?

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

Buenos días, Estoy realizando una aplicación en excel en la cual desde un TextBox escribo el elemento que quiero buscar en la base de datos. Según los caracteres que escribes mira en otra hoja (Base de Datos) toda una columna (10000 elementos) buscando coincidencias exactas. Todo funciona con el código adjunto lo que ocurre es que es lento ya que para cada carácter escrito realiza una búsqueda completa. ¿Tenéis alguna idea para darle mayor velocidad a la búsqueda? Interrumpir la búsqueda para coger el nuevo carácter escrito y comenzar la búsqueda... Private Sub TextBox_Producto_Change() Dim Producto As String Dim StringCoincidir As String Dim StringEscrito As String D…

Hola a todos, Tengo el siguiente problema: Me gustaría desactivar las casillas "Código" y "Nombre Fiscal" de mi formulario cada vez que un usuario activa la opción "Cliente", tal y como se ve en la siguiente imagen. Es decir, cada vez que se activa la opción "Cliente" que aparezca un fondo color gris y no se pueda escribir nada sobre las casillas tachadas de rojo. Cómo se haría? Con un evento change? Y cómo hago para identificar la página "Denominación" activa dentro mi formulario multipágina? He buscado ayuda por internet, por manuales y por videotutoriales, pero no he conseguido encontrar nada al respecto sobre este tema complejo. Si algui…

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

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…

Hola, Necesitaria saber como hacer que al clickar la pestaña de una hoja para cambiar de pantalla se me abra un MsgBox preguntando si estoy seguro de querer salir ya que al pasar a la hoja principal se me reinician todos los valores. Como lo puedo hacer? Muchas gracias

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…

que tal buenas tardes amigo quisiera saber como puedo extraer un varios xml en una celda toda la infornmacion que viene en el xml en una tabla de excel, por favor se lo agradeceria demasiado ya que son un buen de xml los que me falta de ver para hacer una cuenta de gastos, eh intentado exportar el xml en excel , pero me sale repetido muchas veces informacion del xml, simplemente lo que me intresa del xml es el rfc el nombre del proveedor el subtotal el iva retenciones de isr iva y sie esta en dolares la factura asi como lo mas importante la descripcion de la factura asi como si es ingreso o egreso para eso quisiera extraer el xml amigos, ya que eh visto muchos ejemplos y …

Hola como estas? Bueno les pido que por favor me ayudaran con algún codigo "VBA para excel" en ordenar una fila de datos (códigos) de manera ascendente por ejemplo: 0001345 00012 0173 100-1A 100-1AC 120-A 2002 2A00 Y asi sucesivamente. Les adjunto el archivo de los datos que realmente quiero ordenar. En la columna "B" coloque la idea de como empezar a ordenar. ORDENAR.xls

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 buenos días y Feliz año a tod@s A ver si alguien me puede ayudar con esto. Tengo un UserFrom el cual me realiza entradas, edita, elimina, etc. Las entradas generales siempre se hacen el pagina 1 del Multilistbox, y estas en tienen una condición de que si por ejemplo en la columna de observaciones pongo "HANGAR", entonces debe realizar el registro en la pagina 1 (Principal) y la pagina 2 (Hangar). Todo esto funciona perfecto, el problema que tengo es que cuando elimino o edito un registro, estas acciones solo me las hace en la pagina principal (hoja1 del Multilistbox) Es posible editar y eliminar registros y que según el numero de Tracking haga l…

Hola, Tengo una problema con unas columnas lo que sucede es que tengo muchas columnas de 27 filas cada una y quiero que todas esas columnas solo esten en una, por ejemplo: 1 | 2 | 4| 2 | 4 | 6| 3 | 5 | 8| . | . | . | . | . | . | . | . | . | 27 | 3 | 5| -------------------------------------------- Y al final quiero que quede asi en una sola coumna: 1 2 3 . . 27 2 4 5 . . 3 4 6 8 . . 5 ---------------------------- Lo podria hacer copiando y pegando pero el problema es que tengo algo d…

Buenas tardes, me pueden ayudar con una macreo tengo un archivo txt necesito abrirlo en excel, el archivo txt es el siguiente REPORTE DE COLABORACIONES GERENAL TIENDA 0003 SECTOR|PROVEEDOR|DESCRIPCION|FECHA INIC|FECHA FINA|PERIOD|CONCEPTO|%| 1 0|147.0|CASA VINICOLA LOS FRAYLES S.A.|01/01/2012|12/31/2012|M|DCO|4.0| 1 0|147.0|CASA VINICOLA LOS FRAYLES S.A.|01/01/2012|12/31/2012|M|PUB|4.0| 1 0|165.0|COLDECOM LTDA CIA S.C.A.|01/01/2012|12/31/2012|M|CAB|7.0| 1 0|165.0|COLDECOM LTDA CIA S.C.A.|01/01/2012|12/31/2012|M|DCO|1.0| 1 165.0|COLDECOM LTDA CIA S.C.A.|01/01/2012|12/31/2012|M|PUB|2.0| 1 0|166.0|COLOMA LTDA|02/01/2012|12/31/2012|M|DC…

Buenas Noches, encontre un archivo con una macro para un archivo de consolidacion que estoy generando, pero no encuentro la forma de que junto con la informacion, en cada fila, me ponga en la celda de la "E" correspondiente, el nombre del archivo del cual esta obteniendo la informacion. Espero alguien pueda ayudarme con este tema. Incluyo archivo zip con el ejemplo. Saludos Consolidacion.zip

Hola, estoy intentando crear una macro que busque las filas con contenido en una hoja y que haga varias copias de este contenido en otra hoja, numerando el numero de copia. Hasta ahora he conseguido que me encuentre los valores y que copie y pegue pero no que me haga la cantidad de copias y las numere, adjunto codigo por si alguien me puede ayudar y también imagen de datos y resultado final que me gustaría obtener. Sub Copiar_Filas() 'inicializo la variable j j = 2 UltimaFila = Cells(Rows.Count, 2).End(xlUp).Row Dim xCount As Integer LableNumber: xCount = Application.InputBox("Copias de Kits", "Total de copias", , , , , , 1) If xCount < 1 Then M…