Bun dia amigos la pregunta es sencilla; quiero hacerle una modificacion al modulo de consulta, quiero que siempre aparezca el titileo en la casilla codigo de barras y que cuando pase ala casilla en blanco que ingrese la cantidad dentro del modulo y cuando se igrese la cantidad salga el titileo en la casilla que quiero obtener es para que me de paso al siguiente items o codigo de barras por medio del lector gracias Prueba de Despacho2.zip

Buenos días, Ojalá y me puedan ayudar con esto.( Yo sé que si ) Tengo un archivo de informe de ventas por año, y necesito saber que clientes compraron en el año 2013 y 2014 y en que mes. Necesito sumar las ventas por mes y por linea(por cada cliente) y pasar los clientes con cada linea en la hoja consolidado, se debe sumar el valor por mes y por linea y pasárselo al cliente correspondiente al 2013 es decir, si el cliente pepito perez compro en enero de 2013 en la linea "ropa Hogar"y pepito perez volvió a comprar en marzo de 2014 en la misma linea, se debe insertar cada suma de cada año en la columna y fila correspondiente. pero si pepito perez compro en el 2014 en fe…

buenas compañeros. aca tengo este ejemplo de userform de divicion. lo que deseo es que cuando divido la cifra no me aparescan tantos numeros. por ejemplo cuando hago esta divicion 14000/3800 = 0.27 que me de ese resultado 0.27 me explico, actual mente como esta me tira 0.27142857142857, lo que no deseo es que me tire ese monto de numero, quiciera que redondee el resultado o que solo tire 0.27 gracias por su ayuda aca subo un ejemplo de como tengo el archivo divicion.rar

hola que tal expertos tengo un problema espero me pueda apoyar mucho, verán tengo una hoja donde se insertan datos pero necesito validar los datos que se van a insertar dado antes de insertarlos debe buscarlos para compararlos si son o no iguales a los que se van a insertar mediante el form, la intensión es saber si el registro que se va a insertar existe o no, porque si existe quiero que los datos me los acumule después delos datos encontrados(al lado derecho) para que asi se vayan acumulando esos antescedentes . los criterios a comparar serán datos del tipo string donde se compara -nombre-, -fecha de nacimiento-,-nacionalidad-, -estado civil-. Les el archivo del avance…

Hola, tengo el problema de que estoy creando un formulario para manejar todo lo relacionado con ventas de un negocio, pero al momento de ingresar dinero de una venta no siempre se ingresa el total y quedan debiendo, por lo que su estado es como deudor, al pagar, hay que cambiarle el estado a al dia,estos datos estan en una base de datos, pero quiero modificarlos desde el formulario que alli tengo, cualquier ayuda gracias, y otro aspecto es que necesito saber cuanto debo producir al dia, por lo que intento con formulas de sumar si poner el criterio que solo me sume las cantidades ingresadas en esa fecha, pero al ingresar la fecha por formulario la formula de sumar si no r…

Estimados, Junto con saludar, quisiera pedirles ayuda con la siguiente macro. Resulta que tengo un formulario en el cual no quiero que se guarde si las celdas D11 y D13 no se han ingresado datos, pero dada esta macro necesito algo que a la vez me permita guardarlo si el formulario esta completamente en blanco. Esta macro me funciona bien al permitir que el archivo se guarde si ambas celdas no tienen datos, pero a la vez me genera problemas para guardar el formulario si este esta en blanco. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Sheets("Formulario").Range("D11") = "" Or Sheets("Formulario").Range("D12") = "" Or Sheets("For…

Hola chicos, no sé por qué razón dentro de mi módulo de login cuando introduzco mal la contraseña una vez, se repite el mismo proceso dos veces... Cuando introduzco mal la contraseña dos veces, se repite el mismo proceso tres veces... Cuando introduzco mal la contraseña tres veces, se repite el mismo proceso cuatro veces, y así sucesivamente... Adjunto el fichero para que lo echéis un ojo. Las contraseñas son: programador@email.com > "asdfg" administrador@email.com > "zxcvb" Por favor, cualquier aclaración por vuestra parte me sería de muy grata utilidad. Saludos. PRUEBAS.xlsm

Buenas tardes, Amigos del foro estuve buscando información del tema en la web, antes de realizar mi consulta en el foro , pero no encontré nada que coincidiera . Detallo mi necesidad: Parte I 1, Deseo "Generar" mediante un botón en una hoja de Excel (Ver botón generar código en el libro adjunto), busque un valor en una tabla de Access" Clave dinámica "de forma aleatoria. la tabla esta compuesta de valores numéricos ordenados en filas y columnas : 2. En la hoja "Base "en la celda E1 colocar el valor del resultado del aleatorio. 3. Devolver el valor encontrado en un msgbox. Parte II 1. En el botón validar se desplego un userform com…

Hola, tengo hecha una macro la cual tiene 6 botones en una hoja de excel, y lo que necesito hacer es que cuando abra dicho documento me salga uno panel con los 6 botones y no la hoja de excel.​

tengo un libro que despues de llenarse ciertos campos almacena algunos campos en otra hoja (Cita.- tomado de un post del usuario "Principiant"). a grandes rasgos los que hace la macro toma el formulario activo y la hoja donde hace el vaciado y las pone a punto para ser enviadas por correo. el problema viene que cuando me llega el correo si lo abro dice que tiene vinculos y lo que necesito es que se rompan dichos vinculos. ya lei que cuando hace el pegado debe ser valores y agregue una segunda linea en Sheets(Array("Carga", Formulario)).Copy Selection.PasteSpecial Paste:=xlPasteValues ' linea intermedia en que agregue el pegado solo valores Application.D…

Estoy intentando imprimir un rango de hojas de un pdf en una ruta en concreto pero no me funciona. Imprime el ramgo pero del Excel en ve del Acrobat. Sub imprime() Dim rutaPDF As String rutaPDF = Sheets("Hoja1").Range("D2") F = Cells(2, 7) T = Cells(2, ? pid = Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & Chr(34) & rutaPDF & Chr(34)) Worksheets.PrintOut From:=F, To:=T DoEvents 'Paso 5 - Esperar que se Imprima el PDF hnd = OpenProcess(PROCESS_TERMINATE, True, pid) 'Paso 6 - Obtener el handle(manejador) del proceso(Adobe Reader) …

Hola que tal Buenas tardes Nuevamente aquí con una duda, tengo un formulario en el que doy de alta a los clientes, estoy usando un multipage, el la page2 tengo un pequeño botón el cual manda llamar otro formulario, lo que quiero es que desde este nuevo formulario pueda seleccionar un archivo de imagen el cual se mostrara ahí mismo y si es correcto, este archivo se guarde en una dirección establecida con el nombre de la clave del cliente para poder utilizarla después en otros formularios, he buscado en otros temas pero ninguno se apega a lo que necesito, por favor si alguien me puede ayudar se lo agradecería muchisimo trate de subir el archivo con los formularios para qu…

quiero que las persona que tengan mi libro y alguien actualice algo los demás los vean desde su casa como seria eso

Hola a todos. Mi nombre es Maurizio y mi problema es este. En una hoja de Excel, creo utilizando una serie de hallazgos producidos según el día y el mes insertados en la celda (B1: B2) y hasta ahora todo parece estar bien. Pero ahora me gustaría que las dos coordenadas que se entrelazan entre ellas en la fila y la columna que van desde la celda (B7: M37) una vez identifiquen la celda de color de color (rojo) El número que se inserta en esa celda en particular podría adherirse a la celda (B4) En tu opinión, es posible hacer todo esto! Gracias como siempre a partir de ahora por toda la ayuda que me puedan brindar; Saludos desde A.Maurizio ######################…

Camaradas tengo el siguiente problema con esta macros (Adjunto) Ingreso los primeros datos de forma normal y la macros funciona y me lo almacena en una base de datos, asta ahí estoy bien pero necesito que al en pesar a llenarse la base de datos esta automática mente corrija lo ingresos e egreso de un inventario que esta en la hoja numero 3. Entonces no se como poder lograr esa formula y que todo sea automático Atento a sus comentario Saludos prueba 1.xls

¿Es posible declara una variable Tipo Range como Private? Ej: Private cel as Range ----------------- Sub Prueba Dim cel As Range Set cel=cells(1,1) Call Prueba2 End Sub --------------- Sub Prueba2 Msgbox cel End Sub Es que no lo consigo de ninguna forma y no he visto nunca nada al respecto. Gracias

Buenas tardes, ¿Me podéis decir si esto lo puede hacer Excel? Tengo una hoja con datos en tres columnas, 2 numéricas y una de texto, el problema que tengo es que estos datos los cojo de una aplicación diferente y se van modificando diariamente, necesito actualizar los datos de estas columnas sin perder las que no se hayan modificado, solo cambiar los que coinciden con el texto y primera columna y añadir si no existe añadiendo los tres campos. Lo he intentado en otra hoja del mismo libro pero no soy capaz. No se si me he explicado, bien. Un saludo a todos, Paco

Buenos dias, necesito ayuda tengo una lista de nombres hypervinculados y he creado una macro para q me copie esos nombres de una hoja a otra del mismo libro pero el problema es q me copia solo los nombres sin el hypervinculo como lo puedo solucionar para que me haga una copia exacta? Muchas gracias Un saludo Este es el código q tengo: Public Const columna_inicio = 4 Public Const fila_inicio = 21 Sub prueba() Application.ScreenUpdating = False Sheets("Inicio").Select Servicios = Cells(fila_inicio, columna_inicio) Sheets("Hoja1").Select i = 2 j = 13 Do While Cells(i, 2) <> "" If Cells(i, 2) = Servicios Then servicio = Cells(i, 1) Sheets("Inicio").Sel…

Estimados, Necesito vuestra ayuda con una macro. Básicamente necesitaría una macro que busque en el rango B2:B, el texto "Completar con Documento UUID". Si lo encuentra, me devuelva un MsgBox que diga "Ingresar Documento UUID". Y si no encuentra, que termine la macro, para que luego siga con otra que ya tengo armada. Adjunto planilla con ejemplo. Muchas gracias Gonzalo Ejemplo para Macro.xlsm

Buenos días, En la empresa recibo un archivo Excel con muchísimos datos con los "saltos de hoja", no sé como explicarlo, de forma vertical. Quisiera ponerlos de forma horizontal. Las hojas, constan de la columna A a la L y 39 filas, y me gustaría que cortara datos, colores, etc desde la fila 40 a la 49 y lo pegara en horizontal y así sucesivamente. He estado mirando y no hay manera, todo lo que encuentro hace referencia a ordenar los datos pero yo no quiero que los datos se ordenen y cambien, solo busco un corta y pega. He buscado si existe alguna opción en Excel y no la sé encontrar y he supuesto que se tendrá que tirar de vba. Si existe llamadme **maravilloso…

Tengo un hoja de excel donde por medio de un comno selecciono datos y necesito q estos me guarde en la hoja 2 y cuando en la hoja 1 seleccione otros datos me guarde en la segunda fila de la hoja 2 y asi me vaya guardando una debajo de la otra GUARDAR DATOS1.xls

Hola necesito ******* un macro para realizar lo siguiente tengo un libro excel con los siguientes libros BASE: Donde tengo los datos de los equipos MANTTO: Los equipos con sus numeros de mantenimiento y fechas respectivas FORM: Aca necesito que al momento de seleccionar un equipo segun al numero de manttos (B2:B7) me inserte hojas segun al numero de mantenimiento con los siguientes datos Si mantto=3 Hoja1: equipo, marca, serie, mantto1,fecha1; Hoja2: equipo, marca, serie, mantto2,fecha2; Hoja3: equipo, marca, serie, mantto3,fecha3; agradezco mucha su ayuda insertar hojas.xls

Tengo una macro que me salva un libro preguntándome su nombre: Do fName = Application.GetSaveAsFilename Loop Until fName <> False Workbooks("destino.xlsm").SaveAs Filename:=fName El problema es que una vez creado, no se como utilizarlo, ya que siempre me pide un objeto y lo único que conozco de él es el fName, que es el string de la ruta completa del archivo Quiero activarlo y hacer referencia a sus hojas, pero no se como referirme a él. ¿Podeis echarme una mano?

Cómo están foreros? Tengo una duda sobre un procedimiento. Tengo las rutas en unas celdas de excel y quiero que este comando, obtenido de la grabadora, me permita realizar el query con esta macro. La macro, busca en la web la direccion y descarga cierta info ya que en la ruta solo cambian ciertos valores de manera recursiva. Dim Ruta As Integer Ruta =Cells(1,1).Value With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & (Ruta) & "" _ , Destination:=Range("$D$1")) Help y Gracias.

Buenos días, Me gustaría que me ayudasen con unas macros que tengo que realizar y soy bastante novato en programación. El objetivo es registrar datos de varios excels en uno Consolidado. Todos los archivos tienen el mismo formato y se modifican semanalmente. El consolidado tiene que ir "chupando" esa información y acumularla una debajo de otra. De esta forma, aparecerá en el consolidado toda la información de todos los otros excels. No puedo adjuntar archivos porqué ocupan demasiado. Agradecería cualquier tipo de ayuda. Muchísimas gracias!!:peaceful: