Hola a todos! tengo una duda, resulta que tengo dos libros, en los cuales al hacer un buscav para extraer unos datos, me extrae el primer resultado que encuentra, es decir de un cliente puedo tener 45 registros, necesito saber la forma que me busque el cliente pero me extraiga el ultimo valor osea de los 45 registro me extraiga el 45... si son 3 que me extraiga el 3.. yasi sucesivamente mis datos del libro1 son ID columna A, Columna B, dato a extraer... el libro1 tiene mas de 450000 y el libro 2 solo 4870, pero estos datos son variables... Del libro 2 tengo unicamente el ID en la columna A y si encuentra el resultado me gustaria que lo pusiera en la columna B... Gracia…

Buenos días a todos de nuevo. Busco ayuda en este asunto porque voy muy perdido. Tengo un archivo con dos hojas, "Principal" y "CargaWeb". En la hoja Principal quiero traerme las filas de CargaWeb donde los datos no se repitan en Principal. Pero el primer problema es que la hoja CargaWeb no siempre tiene las columnas en el mismo orden. Aunque es cierto que los títulos que necesito en Principal están en CargaWeb. He creado un fichero de muestra y veréis que en Principal hay muchas columnas, las que está coloreadas son las que necesito rellenar. Es decir tengo dos problemas, uno que los datos no se han de repetir (en este caso por ejemplo PROVEEDOR y NUMERO DE DOC…

Estimados, Buenas tardes Tengo el siguiente Código en VBA para seleccionar impresora distinta a la predeterminada y a su vez imprimir copias según valor de celda CE15, si bien selecciona la impresora, el problema es que solo imprime una copia y no el valor asignado a CE15. Si alguien me pueda ayudar. Sub imprimir() Sheets("C2t-Small").Select ncopias = Hoja1.Range("CE15").Value actPrnt = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="RICOH SP 310DNw PCL 6", Collate:=True Sheets("Etique").Select Range("CE15").Select Range("CE15:CQ19").Select ActiveCell.FormulaR1C1 = "0" En…

Estimados amigos del foro tengo dos formularios para una base de datos de preguntas. En el primer formulario selecciono las preguntas que al hacer click en el botón seleccionar aparecen en el segundo formulario. En este segundo pretendo usar el modo de selección único en el listbox pero deseo que al hacer click en cualquiera de las preguntas se vaya viendo las opciones y respuesta correcta en textbox. Actualmente las opciones están en listbox que cambian si uso un spinbutton pero eso es lo que deseo dejar de usar. Me gustaria usar solo textbox que cambia su contenido correspondiente al seleccionar en la pregunta en el listbox de arriba. Quedo muy agradecido por la co…

Estimados muy buenas tardes, tengo un problema y espero que me puedan ayudar Estoy haciendo un sistema de facturacion, y cuando busco un producto en el botón de "BUSCAR PRODUCTO", al costado sale una imagen si hacemos click la imagen me va abri un form con la imagen mas grande, el problema es que cuando lo cierro y pongo a buscar otro producto ya no se muestra la imagen de producto como que se quedo congelado con el primero que hice el click, espero que me puedan ayudar :(, los adjunto los archivos

Hola He creado el siguiente código para introducir datos en excel. De manera que el código detecte cual es la última fila escrita, se sitúe en la siguiente y vaya pidiendo la información y la vaya colocando en la celda correspondiente de la columna. Private Sub CommandButton2_Click() Dim Nombre As String Dim tipología As String Dim CSAP As String Dim CANTG As String Dim Sistema_Operativo As String Dim Características_Tecnológicas As String Dim Fecha_Inclusión_Catálogo As Date Dim Terminal_sin_Alta As Integer Dim SPGE As Integer Dim Apoyo_Canje As Integer Dim Pantalla As Integer Dim Duración_Batería As String Dim Dimensiones As Integer Dim Peso As I…

Buenas Noches!!! Escribo para que si por favor me pueden ayudar a hacer lo siguiente: tengo una grafica en la que represento al lado izquierdo un porcenteje de 0 a 100% tiena una imagen de regla atravesada lo que necesito, es que al mover la regla de arriba para abajo, esta en el lugar que la deje ponga en una celda el porcentaje en donde se quedo es decir si la dejo en 50% escriba 50% en la celda, o 60, 70 etc. de acuerdo a la posicion de la regla. anexo ejemplo, Gracias https://www.mediafire.com/file/j3mcj61f1dfh0qp/nivel.xlsm/file

Buenas, solicito su ayuda para saber como buscar un dato de varias hojas y una vez encontrado sumar su subtotal en una hoja resumen. el fichero lo envió con una macro que hace parcialmente lo que necesito solo que no me busca el dato Suma Total Anual.zip

Jelow, Vengo con una duda muy tonta, pero que me está dando quebraderos de cabeza en el código (aunque funciona todo bien, para mi sorpresa...) Tengo una tabla, que borro fila por fila, hasta dejarla vacía y dolo dejo, la cabecera y la última fila sin borrar. El caso es, que en el bucle que hago, al darle vueltas al código, veo que esto quizás me puede dar algún error y he lanzado un debug.print para ir testeando detalles. DUDA: Si la tabla tiene CABECERA + FILA CON DATO + FILA FINAL (es decir, 3 filas)... ¿Porque el debug.print de "Tabla".rows.count me da 4? Entiendo que no puede empezar la cuenta en 0 ni en 1, porque …

Adjunto un archivo zip con un formulario vba basico para enviar mail desde excel desde mi cuenta de gmail. En el botón "enviar" del formulario no sé como modificar el codigo de la macro para insertar una línea de código para permitir enviar archivos adjuntos. La idea es utilizarlo desde excel, no de otros programas predeterminados como outlook Con la macro actual sólo puedo enviar mails sencillos ¿Alguien puede ayudarme? Gracias por adelantado. Borja enviar email.zip

Retomando el tema que tanto dolor de cabeza le dio a mi amigo Macro Antonio, tengo la siguiente duda.. Como puedo incrustrar una imagen en un cuadro de diseño. Oj0 mi imagen trae hipervinculos. Anexo tema. Incrustar.xls

Buen día. Tengo este archivo en excel con un ejemplo de pasar datos en tiempo real con programación VBA, este ejemplo me lo creo una persona de aquí mismo de este foro y estuve interactuando con el código del ejemplo. Mi duda es, en el archivo viene explicado lo que busco lograr pero no sé como, tengo datos aleatorios de la columna A a la columna F, al hacer doble click en cualquier dato lo posiciona automáticamente en la columna K a partir de la fila 2 y de ahí cualquier dato lo va colocando hacía abajo. Mi duda es ¿Como puedo posicionar estos datos en cualquier fila ya sea a partir de la fila 10 y así hacia abajo, de la fila 2 hacia abajo o de cualquier fila q…

Este código va en un botón el cual inserta datos pero al presionarlo me sale: Se ha producido el error '-2147417848(80010108)' en tiempo de ejecúcion: Error en el método 'Insert' de objeto 'Range' A continuación les dejo el código en cuestión: Private Sub CommandButton1_Click() Range("Alumnos!A2").EntireRow.Insert Range("Alumnos!B2") = TextBox1.Value Range("Alumnos!C2") = TextBox2.Value Range("Alumnos!A2") = TextBox3.Value Range("Alumnos!D2") = ComboBox1.Value Range("Alumnos!E2") = ComboBox2.Value MsgBox "Registro completo" LimpiarCampos End Sub Si alguien me puede ayudar se lo agradecería mucho, saludos.

Buenos días, He estado investigando y probando y no hay forma de conseguir lo que quiero. Dentro de una carpeta X voy a tener un conjunto de archivos: todos tienen el mismo formato, desde la fila 9 y columnas A-L, se tendrá la información que quiero pasar a otro archivo resumen "201509_inspecciones.xlsm" que tendrá un encabezado y demás por encima de la fila A9 y luego a partir de dicha celda quiero pegar el contenido de los archivos. Bueno he intentado muchas cosas y esta es mi última versión. Si alguien me puede ayudar se lo agradecería. Saludos Sub copiar_libros() Dim NRow As Long Dim ruta As String Dim LastRow As Integer Dim WorkBk As Workbook Dim archi As S…

Buenos días, Requiero de su ayuda amigos del foro, ya que tengo unos pequeños inconvenientes con las modificaciones que se han hecho en la plantilla de mi trabajo, las cuales son: Se tiene que presionar 2 veces para borrar los campos que han sido filtrado (no sé por que pasa eso) y cual seria el código para limpiar el Combobox de la "Semana", estuve probando con lo mismo de los anteriores pero genera error. Al seleccionar un "Proceso", no respeta el "Turno" ya seleccionado, sino muestra todos los turno. No sé si exista alguna manera de que los ComboBox tengan la forma de seleccionar más de una opción, así como cuando se aplica filtro, estuve buscando pero no …

HOLA MUY BUENAS A TODOS. NECESITO AYUDA. QUISIERA HACER UNA MACRO QUE ME EXPORTARA LOS GRAFICOS (7 GRAFICOS) DE UNA HOJA DE MI LIBRO DE EXCEL A UNA PLANTILLA DE WORD Y ME LOS COLOCARA EXACTAMENTE EN LOS LUGARES DE LA PLANTILLA DONDE YO QUIERO QUE ESTÉN. LES AGRADECERÍA QUE ME PUSIERAN TODO EL CÓDIGO YA QUE MIS CONOCIMIENTOS DE VBA SON MUY EXCASOS. MUCHAS GRACIAS POR SU AYUDA.

Saludos apreciados; Estoy realizando un codigo, donde tengo dos hojas En la Hoja "Relación", los datos que a partir del rango b4:c4 hasta abajo dentro de esas dos columnas (estos rangos varian, pueden ser 25 filas o 60 filas). se copien en la hoja denominada Bd_Bingo, en la ultima fila vacia, de la de la columna "A". De antemano gracias bingo ayuda 1.zip

Buenas Tardes, una vez mas necesito su valiosa colaboracion: Realizo la siguiente macro: Sheets("Hoja1").Select Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="DATO", RefersToR1C1:="=Hoja1!R2C1:R26C1" Cuando ingreso una fila mas esta no hace parte del rango ya creado por esto R2C1:R26C1, como hago sin necesidad de hacer una tabla pra que cuando ingrese una nueva fila esta haga parte del rango llamado "DATO", gracias

Buenas tardes bueno la idea es la siguiente tengo que dar soporte a usuarios de una empresa pero cada usuario tiene que solicitar sobre el formato que adjunte y yo darle un resultado a cada solicitud , lo que necesito es que cualquier usuario o varios usuarios puedan ver el libro de excel y colocar el requerimiento , y por otro lado yo como la persona que da el soporte pudiera ver una alerta o algo asi que tengo cosas que hacer y estan pendientes , no se si fui claro o no la idea es algo a si como un ticket que me alerte a mi que alguien necesita algo. de antemano muchas graciasd si me pueden ayudar o darme una idea de como lo puedo hacer. prueba tecnologia1.xls

Buenas Tardes Gente a continuacion les dejo un ejemplo basico de macros que crea BD,Tabla,LEE,escribe me funciona bien en windows xp., lo probe en windows 7 y no funciona, Si alguien tiene algo referente por compartir o algun tip., Algun Ejemplo de estar escribiendo Datos en excel y que los este guardando al SQL, me seria de gran ayuda ya que la BD ya la tengo creada ya solo quiero estar alimentandola atraves de excel Soy nuevo en esto, pero me estoy esforzando para adquirir algunos conocimientos. Espero de su Colaboracion gracias. Test.rar

Buenas noches Hola soy jugador de poker online oficionado u tambien me gusta mucho el excel pero creo que el proyecto que quiero realizar es un proyecto muy complejo para mis conocimientos por eso espero me puedan colaborar y mirando ideas creo que lo puedo terminar Buanos para las personas que no tienen conocimientos del poker les explico un poco , En una mesa de poker se manejan varias posiciones y es muy importante la posicion , por eso he creado un userform1 con la mesa de poker dibujada y unos botones en cada una de las posiciones lo que quiero es que apenas yo le de en alguna de la posicion me llame la informacion de las manos que puedo jugar en esta pos…

Buenas noches. Estimados es para pedirle su apoyo en optimizar mi trabajo, explicó en el adjunto y también quiero agradecer el apoyo de cada uno de ustedes, del esfuerzo y la dedicación que le ponen al contribuir sus conocimientos incondicionalmente. Saludos. P543a.xlsm

Hola a todos: Tengo un Excel con 2 hojas: La primera, “SEMANA_23” contiene los fichajes con NOMBRE, FECHA/HORA, CODIGO, INCIDENCIA La segunda, “RESUMEN” contiene Nombre, una serie de fichajes y Observaciones Lo que pretendo es que de la primera hoja “SEMANA_23” me pegue, concatenados, los valores de “día de la FECHA”, CODIGO e INCIDENCIA en la columna “J” de la segunda hoja “RESUMEN”. En la macro, he creado 3 variables y las he concatenado de la siguiente manera: dia = Day(Sheets(1).Cells(f1, 2)) 'La variable dia contiene el valor del nº de día de la fecha de la columna "B" "FECHA" de la sheets(1) "SEMANA_23". cod = Sheets(1).Cells(f1, 3…

Hola, soy nuevo me gustaría que por favor me ayuden. Tengo un problema necesito que mi formulario coloque los datos capturados en la hoja actual y no solo en la la primera hoja aquí, ademas de un botón que aparesca para llamar al formulario al crear una nueva hoja, les dejo el archivo. captura VBA.rar

Hola a todxs, Me gustaría que los filtros automáticos aparecieran siempre que se activa la hoja, tal y como aparece en la imagen adjunta. Para ello, he desarrollado el siguiente evento: Private Sub Worksheet_Activate() With Sheets("Hoja1") .AutoFilterMode = False ' Desactivamos siempre los filtros automáticos... .Cells.AutoFilter End With End Sub Sin embargo, no me funciona, porque la primera vez se activan los filtros automáticos, pero a la siguiente no. Es casi como poner lo siguiente: Private Sub Worksheet_Activate() Sheets("Hoja1").Cells.AutoFilter End Sub Es decir, se quitan y se ponen cada vez que se acti…