Hola a todos nesecito de su ayuda, antes esta funcion de estas 2 formulas me corrian, esta macro convierte la celda en mayuscula y a la vez incresas 2 veces datos y automaticamente se bloquea la celda. -------------------------------------------------------------------- Esta es la formula la que antes me corria bien: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, [d33:f33]) Is Nothing Then Target.Value = UCase(Target.Value) Hoja6.[a1] = Hoja6.[a1] + 1 Application.EnableEvents = True If Hoja6.[a1] >= 3 Then ActiveSheet.Unprotect "colorbol54321.-" …

Buenas tardes, Estuve averiguando como cargar gifs en mis formularios ( con la funcion Webbrowser..etc) no tuve problemas hasta ahi, pero en realidad quisiera utilizarlo de fondo de pantalla del formulario, asi q al agrandarlo del tamañao de mi formulario, insertarle botones y ejecutarlo, mas alla que el tamaño del gif no coincide q no me preocupa por ahora, no figuran los botones, como si estuviera el webbrowser por encima de eso.... hay alguna manera que quede de fondo ? gracias

Hola Estimado, Saben si es posible leer una imagen desde vba excel y colocar lo que dice la imagen en una celda de excel? Encontré este ejemplo en internet, pero no me sirve, ya que alcambiar la imagen por otra, sigue poniendo el dato de la imagen anterior, https://drive.google.com/file/d/1Oah4v6U1pX0jvhGDQExKqkGhoSSRkWxS/view

Estimados, Favor su apoyo, en el archivo adjunto he colocado dos pestañas: 1. La base que necesito agruparlos con macros 2. La base como debería de quedar Estuve consultando, y me compartieron este código pero no lo he logrado realizar, les comparto el código: Favor su apoyo con eso, gracias!! Generar_Agrupadores_Macro.xlsx

buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias

Buen día Foro, Master Antoni para molestarlo nuevamente estoy modificando el formulario Buscar editar que es el mismo de Ingresar Datos, solo que le cambie el nombre a Buscar editar http://www.mediafire.com/file/qmcudvobtdnzxw7/ENVIAR_Haplox_Parte2.rar/file Estoy cargando en ListBox4 los datos guardados en la Hoja BASEDATOS, pero NO consigo cargar solo los datos de 1 solo cliente, me carga todos los clientes Deseo es cargar 1 solo cliente del ListBox2 (al hacer doble clic en listbox2) al Listbox4 para modificar los productos que se le cargaron al dicho cliente (solo que me traiga y me deje modificar los productos que tiene grabados ) https…

Hola, Lo siento por las molestias pero me paso algo muy extraño. Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo. Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error: Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución: No se guardo el documento La macro que me habéis ayudado en conseguirla es la siguiente: Sub PdfMail() Dim Archivo As String, Destinatario As String Dim Asunto As String, Cuerpo As String Dim OutlApp As Object, H1 As Worksheet '-- Applica…

Buenas tardes, Tengo una data extensa que resumí para efectos del ejemplo que aquí anexo. Sucede que no se si existe alguna manera (ya sea macro u otras funciones) de ordenar esos datos de forma diferente, o sea... que los mismos se puedan mostrar con más claridad... organizar.xlsx

Buenas tardes. Tengo una tabla la cual tengo las celdas protegidas con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, …

Expertos tengas un grandioso día, tengo dos problemas con mi aplicación cuando yo busco los datos en mi formulario de combobox me muestran lo datos en los textbox donde tienes que mostrarse, pero el detalle es que en dos textbox salen muchos decimales; quiere decir en campo saldo de crédito y la otra donde muestra el valor de crédito, e intentado de muchas maneras solucionarlo pero no doy con la solución, agradezco sus ayudas. El otros tema es cuando todo la transacción en el formulario debe registrar y también debe imprimir e insertado el código y no imprime solo registra cosa que debe hacer ambas cosas a la vez (los datos se registran en la hoja recaudo y para impresión…

Buenas tardes. Necesito ayuda con el archivo adjunto. Tengo un archivo donde realizo un control sobre las cuentas de varios empleados (+ de 50 en total), donde al apretar el botón de "CTROL CTAS. EMPLEADOS", automáticamente se copia el primer numero de cuenta del Excel, se activa otro programa llamado "Emulación 3270", se realizan un par de acciones donde dentro del programa se pasa por diferentes opciones para luego pegar el numero de cuenta, y lo pega en el programa Emulación donde luego imprime la pantalla con "F6", vuelve a la pantalla de inicio del programa y empieza nuevamente con el siguiente numero de cuenta, así sucesivamente hasta que llega a la celda …

Buenos días, Necesito ayuda para evitar borrar una formula en la ficha que tengo. En las celdas "I6:K6" hay una formula. Al ejecutar la macro BUSCAR, quiero que me devuelva el dato grabado en la hoja BD, pero NO quiero que me bore la formula en cuanto me trae el dato. La formula quiero que se mantenga y se aplique solo para los casos "PRESUPUESTO / CONFIRMACIÓN". La parte de la macro "BUSCAR" que es '[I6] = .Cells(encontrado.Row, "E") 'Fecha de confirmación / cancelación para estas celdas esta desactivada. Adjunto el documento a donde he dejado el comentario sobre problema que tengo. Saludos, EVITAR BORAR FORMULA 15.12.2019.xlsm

Buen dia Recuerro a ustedes papar poder validar el correcto cierre del ciclo de esta macro. El ciclo afectado es el FOR que tiene la variable n debe trabajar hasta el 23, pero cuando llega a 24, sigue con el ciclo de numero1 y de suma y continua trabajando con errores. como puedo hacer para que la n al llegar a 24 finalice la macro y no realice las demas actividades ? ya movi los Next pero no lo he logrado, espero me puedan dar una guia Gracias esta es la macro Sub Union() ' Dim fila, RR As Long Dim n&, cCriterio$, H&, g&, y& fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row …

Buenas noches tengo este problema, tengo un archivo Excel con conexión a una base de datos Access, que funciona bien solo, le adicione un visor de archivo pdf que encontré en la web. Al implementarlo en un solo archivo al ejecutar la macro para ingresar información a Access funciona bien; llamo al visor de pdf y visualizo correctamente, cierro el formulario. El Problema: se origina al ingresar información por segunda vez a Access. saliendo el siguiente error Microsoft Excel dejo de funcionar: Firma con problemas: nombre del evento de problema: BEX64 Nombre de la aplicación: EXCEL.EXE Versión de la aplicación: 16.0.12228.20364 Marca de …

Hola a todos, Estoy intentado crear un código en macros que dependiendo del rango que tenga seleccionado en determinado momento (rangos variables, pueden ser celdas combinadas) se copie y pegue en otra hoja, pero justo en la misma posición que se encontraba en la hoja origen. Acorde a las imágenes compartidas, digamos que en parrilla_registro tengo la duración de un programa, siempre variable, pero requiero que en cuando seleccione un programa, rango, este se copie en la hoja de parrilla_ingreso justo en la misma posición, la cual dependerá de la ubicación que se selecciono en la hoja origen. Espero puedan apoyarme. Gracias por su atención. Quedo aten…

buen dia tengo este archivo que copia los numeros no repetidos en la columna correspondiente lo que necesito es que copie los 4 numeros no solamente 2 gracias pares1.xlsm

¡Hola! Estoy intentando hacer una macro para que pida dos fechas (una de inicio y una de fin) y filtrar según esos valores en la columna "fecha de cierre de recomendación". La cuestión es que no sé si es necesario que a las Inputbox les especifique que están recibiendo fechas. Lo digo porque no me funciona bien y no logro atinar por qué. Os pongo a continuación el código: Sub Filtrar_fecha() fecha_inicio = Application.InputBox("Introduzca fecha desde la que quiere ver las recomendaciones. Por favor, asegúrese de que el formato introducido es dd/mm/yyyy") fecha_fin = Application.InputBox("Introduzca fecha hasta la que quiere ver las recomendaciones. …

hola a todos quiero que mi tabla se rellene por columnas por meses ejemplo aqui les adjunto el archivo en la tabla que les adjunto quiero que cuando ingrese una cantidad en el form que hice. el numero se agregue automáticamente en el mes que lo estoy agregando, y automáticamente lleve el total al final de la columna que si yo ingreso el numero 1 en caja rota y presiono agregar, se agregue en el mes que lo estoy ingresando y al final lleve el total de cuantas cajas rotas van gracias inventario perdido.xlsx

Como puedo conectarme desde un formulario en excel vba mediante un boton a sql server de forma remota?

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…

Buenos días Me gustaría que me ayudaran a modificar la macro que tengo, para hacer lo siguiente: Tengo dos hoja Base y Resumen, de la hoja Base deseo ir analizando celda por celda de la columna E:K y si la celda es igual a 100, me copie ese registro a la hoja Resumen en el día correspondiente, ademas de copiar los datos de la columna A:D de la hoja Base. Adjunto un pequeño ejemplo con el código de la macro que tengo y un ejem de como me debería quedar Agradezco de antemano su apoyo y/o ayuda Saludos prueba07122019.xlsm

Un salidos a todo el grupo, necesito la ayuda de todos los expertos en VBA lo que pasa es lo siguiente tengo un formulario donde me muestra bien los datos, también opciones para consultar. Cuando realizo la consulta por identificación me muestra bien, ahora viene cuando pongo los rangos de fechas y pulso el botón filtrar lo ocultan todo los datos y los detalles lo vuelve a cero; eso es un tema ahora el otro tema es cuando cuando pulso exportar me exporta bien los datos pero el inconveniente es que la columna fecha lo muestra muy largo y también los detalles no pasa completo: Los detalles son total retiro, total deposito y total de registros, eso dos temas son mis dificult…

Hola Chicos, tengo un detalle con una automatización... El evento .click no me funciona y no sé porque, e buscado en internet y no encuentro la solución... Perdon por no poder compartirles el usuario y contraseña para que hagan pruebas, sin embargo, si tienen ideas o links para que pueda leer al respecto, les agradecería... La página se llama SAP es un aplicativo en línea para el control de la contabilidad, entre otras cosas... No funciona: Private Sub CommandButton1_Click() Cargando objIE.document.getElementById("__button0").Focus objIE.document.getElementById("__button0").Click objIE.document.getElementById("__button0").C…

Buen Dia Tengo la siguiente macro y requiero sumar las columnas con filtrro particular cada una y copiar este valor, para ello tengo el siguiente codigo, pero cuando cambian los valores ya no me funciona y eso que identifico la ultima columna con formula, me podrian ayudar revisandola y viendo como la podria modificar esta es la parte de la suma 'suma Range(LE & 10).Select Range(Selection, Selection.End(xlDown)).Select Range(LE & 11).Select Selection.End(xlDown).Select Range(LE & fila).Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-482]C:R[-2]C)" Range(L…

Buenas tengo un problema con una macro, cuando mando a impimir (ctrl+p) imprime todo bien dejo de trabajr o de usar el libro de trabajo por unos 10 minutos o mas y se vuelve todo blanco el libro, cuando entro a otras hojas todas me salen en blanco, ojo no se cuelga el libro ni se bloquea, solo se vuelve blanco todas las hojas y el libro.Este esta es la macro que estoy utilizando:-----------------------------------------Sub Imprimir()Resultado = MsgBox("¿Estás seguro que deseas imprimir la hoja?.", vbQuestion + vbOKCancel, "Registro Pedagógico v5.2 By Luish@o")If Resultado = vbOK ThenApplication.CommandBars.ExecuteMso ("PrintPreviewAndPrint")MsgBox ("DEBES DE CONFIGURAR LA…