Hola a todos!!! Gracias por vuestra ayuda, que siempre me saca del apuro...:encouragement: Adjunto un libro: CLIENTES, que contiene 13 hojas, la 1ª hoja se llama FICHA CLIENTE y las 12 restantes van de ENERO A DIC. Las Hojas que corresponden a los meses del año, tienen listados de las facturas del mes correspondiente. Desde FICHA CLIENTE, introduciento código de cliente en la celda B6 recupero en forma de listado las facturas correspondientes a ese cliente de todos los meses del año (rango A18:L ). Ahora necesito ampliar la busqueda y producir dos listados nuevos, además de que todos los listado tienen que traer la información con hipervinculo para poder modificar da…

Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…

Hola a todos, por favor si alguien me puede ayudar con lo siguiente: Tengo un reporte de varias boletas de pago, cada boleta tiene un número de DNI Necesito que en base al criterio de la celda número de DNI (celda color verde), de la hoja “BOLETAS”, haga una búsqueda en la hoja1 Columna “A” y si coincide con el número de DNI de cada boleta, que copie el cargo (columna C) que le corresponde y la ubique debajo de la celda Cargo (celda color rojo) de la hoja “BOLETAS”. De la misma forma con los datos de la columna D de la hoja1, se hace una búsqueda en base al número de DNI y de coincidir con lo asignado en cada boleta de la hoja “BOLETAS”, se debe copiar los …

Hola a todos, Necesito ayuda con una macro para buscar un texto y que me devuelva un valor. Os cuento, en la hoja 1 tengo una tabla en las celdas de la columna B se selecciona mediante una lista el tipo de alimentación y en la columna C tiene que aparecer el valor que le corresponde al tipo de alimentación. En la hoja 2 tengo la tabla con los tipos de alimentación y el valor que me tiene que devolver es la Uadm en la hoja1. Gracias por vuestra ayuda. Buscar.xlsx

Buen día a todos, les escribo debido a que acabo de crear una macro que copia y pega información de una hoja a otra, pero no llega a realizar la ultima tarea, que es pegar, y en lugar de hacer esto aparece en la barra inferior de la ventana el siguiente texto: "Seleccione el destino y presione entrar". Les agradezco mucho. Les adjunto el codigo: Public Sub CommandButton1_Click() Dim c As Object '############################################################################################################ 'PASO 1 BUSCAR LA ESTACIÓN EN LA COLUMNA DE ESTACIONES dato = ComboBox1.Value Set c = Sheets("Base").Range("A4: A400").Find(dato, LookIn:=xlValues, Lookat:=xlWhole) …

Hola amigos, quisiera que alguien me ayude, tengo un archivo al cual le e colocado un calendario, mi problema es que cuando lo activo me aparece por defecto una fecha que no es la actual, por lo que debo empezar a buscarla y es un poco tedioso. Estoy adjuntando el archivo para que puedan ver y entender mi problema, les agradezco la ayuda que me puedan brindar. Gracias. Calendario.zip

Buenas tardes amigos! Necesito de su valiosa ayuda para la solución a un problema que estoy presentando con un código, En resumen, tengo dos hojas en el libro, una llamada DATA y la otra GESTION, cuando ejecuto el siguiente código me lanza el error "No se puede obtener la propiedad SumIfs de la clase WorksheetFunction" Sub test() Dim rango As Range Data.Select Set rango = Range(Range("A6").Offset(0, 14), Range("A6").Offset(0, 14).End(xlDown)) Gestion.Range("O7") = Application.WorksheetFunction.SumIfs(rango, Data.Range("K6:K60000"), "manzanas", Data.Range("A6:A60000"), "verde", Data.Range("B6:B60000"), "casa", Data.Range("C6:C60000"), "peru") End Sub[/CODE…

buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente tengo este código de pagina fuente <a href="www.google.com" data-original-title="" title=""> <span itemprop="category">Hola</span> "Adios" </a> con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios por favor agradecería mucho su apoyo y gracias por …

Hola me gustaria saber como puedo copiar de dos archivos diferentes (libro1 y libro2) los datos de cada uno de la hoja1 por ejemplo en otro archivo libro3 en la hoja uno y que me lo pegue seguido, hacia abajo. gracias!

Buenos dias comuninidad Ayuda Excel, estoy realizando un poryecto, en el cual estoy detenido en lo siguiente: necesito pasar de un listbox1 del userform1, a otro listbox1 del userform2, para empezar; ya que necesito realidad pasar el valor del userform1 de 4 listbox, o sea del userform1 listbox1 listbox2 listbox3 istbox4 al del user userform2 listbox1, y el valor de este userform2 listbox a una celda "x" Espero me puedan apoyar con el codigo, para poder adaptarlo al proyecto ya que estoy hecho pelotas. Saludos buen dia.

Buenos días a todos; -Necesito una pequeña ayudita. A ver si sois tan amables de echarme un cabo. En una hoja Excel y en el evento "doble_click" hay un procedimiento que abre la ventana emergente de archivos de Windows y al seleccionar un elemento me inserta su nombre en un rango de celdas que he determinado. He hecho lo mismo desde un módulo. A este módulo hago la llamada a través de menú contextual de Excel. Supe configurarlo, pero me funciona con todas las celdas. No sé como hacer para que sólo funcione con un rango determinado, (igual que he puesto en el procedimiento de la hoja) Saludos y buen día a todos. Adjunto macro. MModulo.x…

Hola amigos, nuevamente solicitando su ayuda, ya que no tengo mucho conocimiento con respecto a macros, he creado un formulario para registrar datos, el cual tengo dos etiquetas registrar y modificar, las cuales al hacer clic me muestra los botones según sea el caso, Ok, Modificar, Eliminar y cancelar, bueno ustedes saben como puedo hacer para llenar mis registros y modificarlos, asimismo quisiera: 1) al seleccionar según sala que elija, me registre en la hoja indicada del archivo. 2) al poner Nº serie en los campos Marca y Modelo me salgan los datos automáticamente según hoja Data. 3) en el Campo Suministro al seleccionar uno de ellos, en el campo Repuesto utilizado me s…

Hola a todos! Mi primer tema acá, espero sean comprensivos si se me pasa por alto alguna normativa y desde ya muchas gracias por la ayuda! Paso a comentarles: Estoy trabajando sobre unos indicadores de métricas de la empresa y necesito colorear según el resultado de una fórmula en una celda, una forma (en este caso, un círculo). Ya estuve intentando solucionarlo, usando el evento Worksheet_Change, como estuve viendo en otros post que trataban el tema de una manera similar y en realidad, no era 100% como lo necesito yo, ya que el dato proviene del resultado de una fórmula. El problema que se me presentó, es que cada vez que quiero que se modifiquen los indicadores, te…

hola buenas tardes tengo una duda aver si me pueden apoyar despejando mi duda tengo un userform el cual contiene varios textbox en uno de ellos deseo que solo se pueda dijitar la pabra niño o niña y otro textbox solo acepte numeros del 1 al 12 he intentado con uno pero me marca error solo logro validar una palabra o otra de antemano muchas gracias dato introducido.xls

Hola soy nuevo en la programación en vba, tengo un libro compartido en el que al abrirlo se auto ejecuta un macro que hace que el libro se guarde a los 10 mins. de haberlo abierto, este se ejecuta como bucle. Pero tengo un problema, y es que a pesar de que yo cierre el libro de excel, este se vuelve a abrir y ejecutar el macro. Quise usar la opción "Exit Sub" pero no supe cómo programarlo, agradeceré mucho su apoyo. Mis macros para efectuar la tarea son los siguientes: Sub Auto_Open() Hora = Now + TimeValue("00:10:00") Application.OnTime Hora, "Guardar" End Sub Sub guardar() ThisWorkbook.Save Auto_Open End Sub

Buenos dias Tengo en el rango K2:M3000 celdas con datos y celdas vacias. Desearía saber la macro para copiar solo las celdas con datos a la hoja2 en las columnas AA2, AB2 y AC2 Podrían ayudarme? Quedo muy agradecido por su atención Saludos ejemplo.zip

hola amigos de excel tengo una inquietud, he diseñado un menú estándar en la una hoja que la denomine menú, esta desde el rango A1:M40, confomarda por 15 botones, dos imagenes y texto, me gustaria saber como hago para que la hoja de menu se adapte a cualquier pantalla de pc ya que se sabe que todas las pantallas no son iguales saludos, espero me puedan colaborar

Hola amigos quisiera saber si alguien me puede ayudar con lo siguiente: Tengo un userform con dos combobox un commandbutton, un listbox y un textbox. de los cuales los combobox buscan fechas inicial y final de una hoja de calculo y al ejecutar el boton muestra en el listbox todos los resultados entre esas fechas incluidas las mismas, estos resultados debieran ser 4 columnas en la primera la cantidad en la segunda el articulo o producto en la tercera el precio y en la ultima el total, además en el textbox debe aparecer la suma de todos los totales el codigo que estoy utilizando es: Private Sub CommandButton1_Click() ListBox2.Clear Dim fecha1 As Date Dim fecha2 As Da…

Buenos dias, por favor me pueden ayudar estoy tratando de insertar datos a una hoja de excel mediante sql atravez de adodb. pero me da error en la linea de connection y tambien en el values he puesto los nombres d elos controles pero no los reconoce. por favor me pueden orientar sobre este error. Private Sub CommandButton1_Click() Dim Cnn As ADODB.Connection Dim Sql As String Set Cnn = New ADODB.Connection With Cnn .provider = "Microsoft.ACE.OLEDB.12.0" .connectionstring = "data source=& ThisWorkbook.Path & " \ " & COSTOS MOTO.xlsx" .Properties("extended properties") = "Excel 12.0 Xml;HDR=YES" .Open End With Sql = "insert into [prueba$](…

Estimados amigos, Estoy trabajando en un cuadro (adjunto) donde tengo el botón "pasar a la siguiente línea" y crea una copia exacta de la última línea en blanco justa arriba de ésta. Al ingresar el código en la columna A, si es un código que ya he ingresado con anterioridad, en la columna "K" (Ult_Venc) me aparece la fecha de vencimiento (de la columna "J") del último registro del mismo artículo. Por ejemplo, hice click en el botón y apareció su copia en la fila 15. Ingresé el código "720000001" y en la columna "K" aparece la fecha de vencimiento "20-10-12". Hasta ahí, todo funciona OK. Luego asocio una macro con MsgBox si FE.VENC < ULT_VENC para que me genere un …

Hola a todos, tengo un excel que en Windows XP funciona bien, pero en Windows...no sé si es 7 u 8 (pero seguro que es 64 bits) da el siguiente error: "No se puede encontrar el proyecto o la biblioteca" Cuando le doy a aceptar me resalta una ¿orden? (no sé como llamarla) que es "msofiledialogopen" que es el típico botón de examinar para buscar un archivo. ¿Alguien sabe por qué sucede esto? He mirado por internet y pone algo de las referencias, pero como siempre es por otra causa....pues ya no sé si funcionaría lo mismo o no. No puedo subir archivo, porque no lo tengo, el problema me lo han pasado a ver si yo sabía por qué era... Adjunto foto del error y de fondo se p…

Estimados, buenas noches Ando buscando algun archivo interesante que pueda controlar los tiempos de vehiculos o camiones, tanto como reparto y descarga en la planta. Gracias y espero que me puedan ayudar Saludos Cordiales

Estimados foreros, Adjunto un archivo de ejemplo que me genera error con Excel 2010 en Windows 7. Para reproducir el error: Abrir el libro adjunto en Excel 2010 con Windows 7. Hacer click en la imagen Aceptar el mensaje informativo. Cerrar el libro sin guardarlo. ATENCIÓN: No cerrar Excel. Repetir los pasos 1 y 2 Se produce el error la segunda vez que se llama al procedimiento: Set objChart = .ChartObjects.Add( _ Izq, Arr, Ancho, Alto) 'Add ChartObject [/CODE] [ATTACH]41432.vB[/ATTACH] No encuentra el ChartObject en el diccionario según se explica en: [DBOX]BUG: Run-Time Error Message -2147417848…

Necesito implementar en el formulario un contador que me retorne un valor numérico a partir de la cantidad de "X" que encuentre en los campos.:confusion: Como siempre agradeciendo la valiosa colaboración,, q sin saber nada de macros en excel he dado avances importantes para mi vida,, Problema.rar

Saludos a todos Estoy tratando una macro para realizar lo siguiente: En la hoja BASE tengo varios datos y en la columna G (TIPO) tengo una P o D, necesito acomodar todas las P de un "Id" y luego las D y totalizar, en la celda siguiente sacar la diferencia, poner un T en la columna J Adjunto un pequeño ejemplo de lo que pretendo realizar Agradezco de antemano sus comentarios y/o ayuda Saludos EJM09052020.xlsm