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…

Buenas Tardes Tengo un problema con una macro que cree para ejecutar una consulta desde excel y que traiga los resultados en una celda en particular. Hace meses la vengo usando y funcionaba perfecto, pero desde la semana pasada me tira este error: RUN TIMER ERROR 1004 Application defined or objet defined error y se tilda la siguiente sentencia .Refresh BackgroundQuery:=False Llevo toda una semana investigando que puede ser y no encuentro nada. Agradezco su ayuda *******!!!! Dim varSQL ' OBTIENE EL NUMERO SIGUIENTE DE BASE varSQL = Sheets("ArmadoQuery").Range("c23") Sheets("Resultado").Select Range("F15").Select Selection.ClearContents…

Hola, buenas tardes, Estimados. estoy trabajando en una macro de generación de ordenes de trabajo pero me da error al crear una ot y no me enlazan una serie de datos con el modelo final de ot que necesito crear, si alguien me pudiera ayudar se los agradeceria, ya que tengo asociados equipos, patentes horometros, kilometrajes, costos, etc. Al yo pulsar generar ot me deberia crear una pestaña con la ot modelo (se asigna el numero de ot en pestaña; ej; OTTCLM64 y en el encabezado del formato )y asignar todos los datos que le ingrese en la tabla de ingresos,luego al asignar hh de cada actividad y costos asociados (costos que deberian estar enlazados a la planilla de…

Hola a todos como podria hacer un calendario perpetuo en un userform para crear citas para una clinica. CalendarioPerpetuo.xlsm

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

Hola Chicos. Necesito ayuda con un programita. Lo que quiero es buscar un dato que esta escrito en una celda de excel y buscarlo en una carpeta que tiene varios archivos de excel, pero están en varias carpetas y sub carpetas. Lo que el programa tiene que hacer básicamente es copiar el valor de la celda buscarlo en todas las carpetas y libros (en cualquier pare del documento, no en una columna ni fila especifica) y escribir el nombre del libro donde lo encontro y continuar con la celda de abajo y hacer el mismo procedimiento; debe ser automático, Solo presionando un botón tiene que buscar los datos. Se que suena no tan complicado.. pero he estado días intentando. Que …

Buenos dias Tengo un formulario con 10 OptionButtons cada uno dirigido a una hoja del mismo libro, intento hacer una busqueda usando el siguiente codigo, pero me da Error '91' en tiempo de ejecución: variable de objeto o con la variable de bloque no establecida. ¿alguien podria ayudarme? Private Sub ComboBox3_Change() With ActiveSheet var3 = ComboBox3.Column(0) Cells.Find(What:=ComboBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate If var3 = ActiveCell Then TextBox15.Value = ActiveCell.Offset(0, 1) TextBox7.Value = ActiveCell.O…

Buenos días ,Llevo días atascado en un problema relacionado con la función extraer datos. Tengo un nivel de excel muy básico así que cualquier ayuda será de mucho agredecer.La cuestión es que he creado una base de datos excel para gestionar las entradas y salidas de un párquing. El funcionamiento es simple pero eficaz. Se introduce el número de tarjeta o id del conductor y mediante la fórmula extraer se recuperan el resto de datos suyos que le identifican a él y su vehículo (fotografía, nombre, cargo, matrícula del vehículo, marca, modelo, etc), de modo que te indica que está autorizado. En caso contrario, aparece la indicación no autorizado.Estos datos a su vez se copian…

Estimados! Que tal? Necesito de sus conocimientos, estoy trabajando sobre una base de datos para un inventario. Por tal motivo necesito una macro que me inserte tantas filas como lo indique la celda del campo cantidad. Si ven el ejemplo adjunto en la celda E5 indica 2 cantidades, necesito que la fila 5 se repita una vez mas para que me quede 2 filas iguales para colocar el numero de serie correspondiente en cada fila. lo mismo para los siguientes asset ID.. creen que esto seria posible? Saludos Matias Insertar filas segun valor de celda.zip

BUENAS TARDES AMIGOS. NECESITO QUE ME AYUDEN CON UNA PROGRAMACIÓN QUISIERA COMBINAR DIFERENTES CELDAS , SEGÚN EL VALOR ASIGNADOS. MUCHAS GRACIAS, ESPERO QUE ME PUEDAN AYUDAR COMBINAR.xls

Hola buenos días, necesito vuestra ayuda, es urgente. Os explico, cada dia incorporo unos datos en una hoja excel mediante la formula solver, me resuelve una ecuacion en fuincion de varias restricciones. El resultado es correcto, lo que yo quiero hacer es automatizar el solver con alguna macro para que yo, cuando introduzca los datos me los resuelva automaticamente sin tener que darle al solver ni poner los datos ahi. Los datos que van al solver son los siguientes: Establecer Objetivo: N8 Cambiando las celdas de variables: E8 Sujeto a las restricciones: H8<=$G$3 (G3 no quiero que me cambie en ninguna fila) J8>=$G$2 (G2 no quiero que me cambie en ninguna fila) …

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 Buen Día De nuevo yo haciendo preguntas. De ante mano quiero agradecer la amable colaboración que siempre me han brindado. Tengo el siguiente código Private Sub CommandButton1_Click() Worksheets("Hoja1").Select 'selecciona la hoja en la que se va a trabajar Range("A1").Select ' Selecciona la celda de la hoja que se va a modificar sobre esta se crea la nueva fila ActiveCell.FormulaR1C1 = TextBox1 ' a la celda seleccionada le escribe el valor de la caja de texto r1c1 lee o escribe valor Selection.EntireRow.Insert TextBox1 = Empty TextBox2 = Empty TextBox1.SetFocus End Sub Private Sub TextBox1_Change() Dim valorb As String, dato As St…

Amigos como están, necesito que me ayuden con un problema, tengo que agrupar horas de trabajo de acuerdo a la cantidad y una fecha específica. Por ejemplo tengo a la persona: Andrés, él trabajo en las siguientes fechas: 21 enero 2014: entró a trabajar a las 8:00 horas y terminó a la 13:00 horas, total horas trabajadas (5) 21 enero 2024: (ese mismo día en la tarde entró a las 15:00 horas y salió a las 23:00 horas, total de horas trabajadas (8) Se considera el siguiente sistema para agrupar las horas normales y horas extras: - Normales hasta las 8 horas - Extras_1 = entre 8 y 10 horas - Extras_2 = mayor a 10 horas Entonces el día 21 enero 2014 Andrés trabajo 13 h…

Hola! Qué tal? Estoy intenando hacer una mini base de datos en Excel para mi trabajo (Debe ser en Excel si o si y el libro se usará para compartir) Quiero aclarar que soy principiante en tema de VBA y me manejo un poco con Macros pero no es mi fuerte, estoy aprendiendo. Solo necesito un formulario para ingresar datos (Lo cual hice un invento para que funcione ya que no puedo utilizar Tablas y luego compartir el libro) pero se me está complicando la parte donde debo buscar a los pacientes para luego agregar información, les dejo el archivo para ver si me pueden tirar unas ideas. La idea del proyecto es la siguiente: Trabajo en un Consultorio Médico que tiene su parte de Od…

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$](…

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…

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

Hola a todos: Tengo el siguiente problema: Una tabla de Excel que se va a ir alimentando de las veces que ese numero se repita en una lista: Esa lista es Tiradas y Numeros. La tabla que aprece a la izquierda se alimenta de la siguiente forma: Ejemplo: 2 2 5 3 8 2 11 2 14 1 Es decir: El Numero 2 se repitio 2 veces, el 5 3 y asi sucesivamente , con el formato condicional establezco que siempre que la celda tenga un valor >0 me lo sombree. Cuando se sombrean las celdas necesito hacer un copy de las que se sombreen mas de 4, es decir 2 5 8 11 14 1 4 7 10 en otra parte de la hoja o en otro sheet. Adjunto un documento de ejemplo para ver si se entiende, por…

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…

Hola! Tengo una planilla de caja en la que registro los ingresos y egresos diarios. Necesito crear una macro para que al final del día busque en el rango que tiene el detalle y cuando encuentre la leyenda "Pago ....(el nombre de un proveedor)" busque el importe que corresponde en la misma fila, lo copie y lo pegue en la hoja que corresponde al detalle del proveedor. (Tengo una hoja por cada proveedor). Tiene que buscar en todo el rango porque puede haber más de un pago y tengo que poder indicar la leyenda "Pago..." para cada uno de los proveedores. ¿Me pueden ayudar? Desde ya muchísimas gracias por su tiempo Saludos Jazmín

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…

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

Buenas tardes usuarios. De antemano agradeciendo su apoyo expongo lo siguiente. Se solicita que a través de un código VBA para excel filtrar ciertos criterios (vacío), luego "copiar una determinada fila" y finalmente pegar los datos justo en el criterio filtrado (vacío). Mi inconveniente empieza cuando se necesita "pegar" puesto que la macro no la ejecuta. Sub Macro1() [A65536].Select Selection.End(xlUp).Offset(2).Select Selection = "FINAL" Selection.End(xlUp).Select Rows("1:1").Select Selection.Copy ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:="=FINAL", _ Operator:=xlOr, Criteria2:="=" If ActiveShee…

Buenas tardes foristas. Acá les traigo una duda. Estoy trabajando en un Proyecto (aún no terminado) que no es más que rellenar los datos de una planilla o Modelo de Transferencia Bancaria. Por varias razones decidí hacer esto, porque además de agilizar mi trabajo puedo obtener un registro actualizado de Transferencias y extraer varios datos que necesito, pero voy al asunto: En El FrmTransferencia tengo un TextBox (TxtImporte) que se debe colocar el importe a pagar en numero y seguido un Label (LblEnLetras) que es donde se traduce ese importe en letras, pero lo que no quiero es que cuando yo termine de insertar el importe en numero y de Enter o Tab me coloque en …