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…

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

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

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

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

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

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…

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

Buen día. Amigos, alguien puede darme una mano, estoy haciendo una macro para calcular un surtimiento, ya casi la tengo lista pero en la ultima parte requiero que haga un filtro y de los datos filtrados solo copiar 6 filas de una columna para después pegarlas en otra hoja con la opción de transponer, aunque ya tengo todo el filtro y el pegado no se como indicarle que solo me copie 6 filas, adjunto archivo de ejemplo ya que la original pesa mas de lo permitido, básicamente es después de aplicar ciertos filtros poder copiar 6 filas de la columna F. Muchas gracias. Filtro.rar

Buen día compañeros, espero que estén bien. Quiero molestarlos, ya que no logro encontrar solución a lo que necesito. Lo que no logro encontrar es cómo crear una lista validada en Excel, pero que tenga datos consecutivos, es decir, colocar en la lista los números del 1 al 1000 (por ejemplo), pero sin necesidad de estar escribiendo los números dentro de la lista. Sé que muchos dirán que con hacer una lista en una hoja vacía del 1 al 1000 se logra el cometido, pero no es lo que necesito, ya que no quiero llenar el archivo de hojas inútiles y que en algún futuro pueda ser manipulado. Entendería que no es necesario un archivo, puesto que no solicito macro o sim…

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…

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

Buenos días, He puesto una barra de desplazamiento en la hoja excel que está ligada a una macro, aprovecho a dar las gracias a @Antoni que me ayudo a solucionar ese problema. Resulta que cuando protejo la pestaña la barra no la puedo mover. ¿Existe alguna forma de que con la pestaña bloqueada se pueda mover la barra de desplazamiento? He estado haciendo pruebas con todos las opciones que salen a la hora de bloquear la pestaña y ninguna me ha funcionado. También he quitado al objeto la casilla de bloqueado. Gracias a todos!!!

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…

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…

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

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…

Hola. Resumo un poco el archivo : Es una tabla donde en la Columna A se encuentra el codigo de barras. Si el codigo de barras que introduzco esta en dicha columna salta un segundo formulario para introducir el valor. El Enter_click se encuentra en un formulario donde permite poner un texto ( un codigo de barras ) y al hacer click ejecuta el codigo a continuacion. Cada X productos salta el error : "se ha producido el error '-2147417848 (80010108) en tiempo de ejecucion : Error de Automatizacion". Si pulsamos en depurar la fila que marca es la del Set. Si paro el programa y vuelvo a intentarlo salta un error diferente aunque lo marca en el mismo sitio :…

Hola, necesito ingresar a una página,. Para ello necesito adjuntar dos documentos de autentificación, sin embargo, no he logrado hacerlo. Ayudaaa La página es https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligaciones-fiscales&tipoLogeo=c&target=principal&hostServer=https://wwwmat.sat.gob.mx Allí se encuentra el código fuente. El error se encuentra al adjuntar los archivos, pues la página no los reconoce como adjuntos... Direc = "https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligacio…

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…

Buena Tarde Tengo una macro en la que tengo algunas variables, una de ellas string pero es para recorrer las celdas, la inicializo con E, la siguiente debe ser F, G, H, I asi consecutivo para que realice una suma al avanzar en la macro de cada una de las celdas, corriendo el filtro, pero esta variable no he podido, hacer que pueda decirle next y sea la siguiente letra del alafabeto, como podria hacer esto ? Gracias Esta es la macro Dim n&, cCriterio$, H&, LE As String j = 5 LE = "E" For H = 5 To 10 For n = j To 19 If n = j Then cCriterio = "<>0" Else cCr…

Buenos dias a todos, Os cuento mi problemática: Estoy generando un libro de excel para hacer un seguimiento de los gastos realizados en dos obras de construcción en función de un presupuesto general (Hoja 1: GENERAL) que se subdivide en dos presupuestos (Hoja 2: OBRA A y Hoja 3: OBRA B ). La idea es que solo se manipule la Hoja 1: GENERAL, insertando filas de gasto en el capítulo del presupuesto que corresponda y que según el valor de "% gasto por obra" que se asigne a cada obra, genere una fila en cada Hoja correspondiente. Por ejemplo: Inserto Fila 10 en la Hoja 1: GENERAL e introduzco los datos de "nº factura", "concepto", "total gastado" y "% gas…

Hola Foro nuevamente para pedir una orientacion, ayuda..... Deseo copiar los datos de la Hoja Datos a la Hoja Formato, actualmente lo realizo por medio de formulas pero es un rompecoco cuando los datos inician aumentar (Cantidad de Datos a Grabar) La idea es copiar los datos de las columnas que estan de color rojo como ID, NOMBRE APELLIDO, DNI, LUGAR DE NACIMIENTO, EMPRESA, y todos los ARTICULOS a la hoja Formato, respetando los articulos y sus medidas (Kilos, Unidades, litros, Metros etc, etc) Nota: cada articulo tiene sus propias medidas ver hoja excel guia. Como siempre muy agradecido por la colaboracion buen dia gracias. Espero haberme explicado EN…