Hola a todos, en esta macro que adjunto os muestro tres maneras de cambiar la imagen de un botón o label en tiempo de ejecución de manera muy sencilla,. Decir que a veces es un poco difícil encontrar el icono requerido. Saludos a todos. MBoton(ConBuscador).xlsm

Hola a tod@os, Estoy con un proyecto para mi trabajo, se trata de una plantilla que relleno con una serie de datos, ya he creado los botones de : guardar: Crea un clon en una hoja nueva con el nombre de serie que se ha especificado, a la vez genera una fila en una tabla con parte de la información que se introduce, (precio, fecha, serie, cliente..) limpiar: Limpia los datos para una nueva inserción imprimir: imprime la plantilla con los datos pdf: crea un pdf de la plantilla con los datos y el nombre de la serie eliminar: elimina el clon de hoja y la fila correspondiente en la tabla modificar: Aquí estoy estancado, he creado una s…

tengo una pregunta de como automatizar la funcion de buscar objetivo con fomrula o alguna forma mas comoda pero sin botones tengo esto epro no funciona aver si alguein me ayuda Option Explicit Private Sub Worksheet_Calculate() automatizar End Sub Private Sub automatizar() Static tb As Boolean Dim i As Long With hoja 1 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Round(.Cells(i, 3).Value, 6) <> 0 And Not tb Then tb= True .Cells(i, 2).Value = 0 .Cells(i, 3).GoalSeek Cells(i, 4).Value, ChangingCell:=.Cells(i, 2) tb = False End If next i End With End Sub

buenas tardes amigos del foro, tengo un problema el cual no he podido resolver, necesito crear una macro que filtre mas de 1 codigo desde el campo filtro de informe. he buscado declarando variables pero me arroja errores del tipo que no se puede obtener la propiedad pivotitem. debo aclarar que la base de datos original contiene 1900 codigos aproximadamente y la idea es que a traves de un listbox se pueda seleccionar varios codigos dependiendo de las ventas, yo tengo macros que he hecho a travez de codigos y ejemplos que he sacado del foro, pero todas filtran a traves de los campos de filas y columnas, no se si es posible hacer lo que solicito, sino se puede por lo menos …

Muy buenos días, Les escribo por un tema que llevo dándole vueltas bastante tiempo y que no he conseguido resolver. Se trata de evitar que me "salte" un mensaje de alerta cuando no hay información en la tabla de datos que utilizo para un gráfico. El mensaje dice: "Your formula contains an invalid external reference to a worksheet. Verify the path, workbook and range name or cell reference are correct, and try again" Y como les digo, aparece cuando borro los datos de la tabla del gráfico... Les he adjuntado un ejemplo para que puedan ver mejor a lo que me refiero. Cualquier ayuda estaré muy agradecido. Atentamente, Error.xls

Hola ojala me ayuden con esta macro q en el 2003 funciona perfecto , pero en 2007 se cae al toque me aparece algo de un error 1004 tiempo ejecución , pero no logro repararla, esto pq me borraran el 2003 y me urge q funcione, es una macro para enviar varios correos con información de excel la macro es Private Sub ENVIAR_EMAIL() Application.ScreenUpdating = False Application.DisplayAlerts = False ' para q no salga aviso al final HMAIL.Activate HSAL.Cells.Clear HMAIL.Cells.Copy HSAL.Cells 'Workbooks(L3).SaveCopyAs ThisWorkbook.Path & "\LOCAL " & COL.List(x, 0) & ".xls" ActiveWorkbook.EnvelopeVisible = True 'permite enviar mas de 1 correo a la v…

Hola buen día. Tengo aquí un detalle para agregar una formula a una celda de excel mediante VBA. Agrego la formula Sub Botón16_Haga_clic_en() For i = 26 To 2381 If Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(11, AU) Or Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(14, AU) Or Sheets("Pin(mm)").Cells(i, C) = Sheets("Pin(mm)").Cells(18, AU) Then ||||||||sheets("Pin(mm)").cells(i,C) End Sub [/CODE] Ya tengo el for que me indica que celdas comparar para que en otra celda le iinserte la formula, entonces pongo un if para guardar algunos datos que necesito, despues del then viene el detalle, tenia pensando en poner algo asi [CODE]…

Estoy trabajando en el libro de "Desing Mode Error Rev1.xlsb", y cuando uso el siguiente código para abrir el otro libro..., ya no me ejecuta la linea de "Range("C5").Select"... Lo que he visto es porque se activa la opción de "Design Mode", en el "Desing Mode Error Rev2.xlsb" ..., ya que si no estuviera activada esa opción si se sigue ejecutando el código... Así que pienso que posiblemente esa sea la causa para que no siga ejecutándose el código..., pero sino fuera esa..., les agradecería me indicaran donde tengo el error. a = Application.ActiveWorkbook.Path e = Left(Application.ActiveWorkbook.Name, 21) Workbooks.Open (a & "\" & e & "2.xlsb") Range("C5")…

Buenas tardes, soy nuevo en el foro y veo que aquí si ayudan a la gente ingenua jeje, necesito ayuda con este problemita, en mi trabajo necesito implementar una aplicación sencilla para auditar el producto que sale de la planta, el producto es empacado en cajas y cada caja contiene un numero de parte con su respectivo código de barras, al menos que ustedes me sugieran algo mejor, a mi me gustaría que el user form contenga: 1 (combobox1) que muestra todos los números de orden de venta, sin duplicados. 1 (listbox2) que refleja todos los números de parte asociados al numero de orden seleccionado en el (combobox1). 1 (textbox1) donde ingresar (con el lector de código de ba…

Buenas noches. Adjunto un libro excel donde hay un código que pretende que pueda logarme de forma automática en mi correo gmail. Consultando el código fuente de la web creo que copié el código bien, pero la macro no me funciona. Cuando la intento ejecutar me aparece el mensaje "error de compilacion. No se ha definido el tipo definido por el usuario". Empiezo a familiarizarme con el mundo vba pero de forma progresiva. No tengo conocimientos de lenguaje HTML y voy leyendo todo lo que cae en mis manos. ¿Alguien puede decirme en qué fallo o aportarme una solución? gracias borja logarse automaticamente gmail.zip

buenas noches, necesito de sus experiencias para este pequeño problema como podría hacer para que esta rutina me permita leer archivo pdf. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub agradezco desde su gentil aporte.

Hola a todos un gran FORO y gracias de antemano Tengo una BD Excel con aprox. 16.000 referencias de articulos y necesito introducir cada una estas el una celda de una pagina WEB para que esta pagina WEB muestre la foto correspondiente a esa referencia; gurdar la foto en una carpeta e insertar el nombre de la foto en la tabla de Excel. Puedo hacerlo con un macro? Gracias y feliz año .-

Buenas noches, amigos he estado adaptando un macro a mis necesidades, lo que hace el macro es filtrar desde una base de datos (hoja3-RENT) en un listbox los valores coincidentes con la busqueda, pero tengo problemas para cargar el formulario porque cuando presiono el boton buscar desde la hoja factura me sale el siguiente error "se ha producido el error 13 en tiempo de ejecucion no coinciden los tipos". Por favor colaboremen con la solucion a este problema. Nota: Si paso el boton buscar a la hoja3 0 pestaña RENT en macro funciona sin problemas. Pero quisiera hacerlo funcionar desde la hoja8 o pestaña FACTURA. Borrador_1_2014_V1.1.rar

Hola amig@s E archivo adjunto lo utilizo para llenar facturas, crear un nuevo mes , registrar nuevo proveedor y modificarlo, todo funciona bien, el procedimiento que realizo es crear una nueva hoja e ingresar su nombre, el cual copia de la hoja "MES" el ejemplo, despues en la nueva hoja creada estan los botones - menu - nuevo proveedor - modificar proveedor, bueno en el boton que tengo problemas es en modificar proveedor, llama al formulario carga mediante combobox el nit y en los textbox lo que corresponde, solo que al modificar el proveedor, pareceria que la hoja se agrupara y no escribe en la celda de la nueva hoja creada, lo escribe en la hoja PROVEEDORES, y tengo qu…

Hola amigos, tengo un libro "Principal" donde tengo unas celdas que uso para registrar pacientes en una base de datos dentro del mismo libro. Pero me gustaria que en el mismo botón, se le añadiese el código para que hiciese una copia del libro "Plantilla" que hay en la carpeta BD, le pegara los datos en las casillas correspondientes y además renombrase el libro con el valor de la celda Nº y Nombre, para que quedara el libro nombrado asi: 1 Ramon Perez Perez, 2 Victoria Ramirez Dominguez, etc No me deja subir el archivo por ser grande, lo dejo en dropbox Dropbox - FORO.zip

Hola a todos: Cada día y cada vez con mas asiduidad, archivos de consultantes me dan este error al abrirlos: Al pulsar Abrir muestra lo siguiente: ¿ Le pasa a alguien mas ? ¿ Tiene algo que ver con el SO de 64 bits ? ¿ Hay alguna forma de evitarlo ? Saludos .

Buen día compañeros: Quisiera pedirles una ayuda de como crear una tabla dinamica y una macro para realizar un un resumen del consumo por unidad/mes en pesos, litros y el porcentaje del incremento o decremento, de tal manera que me sirva para ir midiendo cuales son los vehiculos que mas consumen y determinar la razón. Abjunto archivo para que me puedan ayudar. Saludos CONTROL VALES COMBUSTIBLE.xls

Hola. Después de dolores de cabeza intentando ajustar el código, siguiendo ejemplos de este foro, me doy por vencido y les pido ayuda. Tengo el archivo adjunto que mediante un userform se alimenta una base de datos. Quiero que el botón de buscar me haga eso en otra hoja, y que, además, tan solo me muestre: - ID Socio - Temp Alta - Fecha de Alta - Nombre - Apellidos - DNI todos esos datos están ubicados en otra hoja, simplemente que al realizar la búsqueda mediante el DNI, me salgan esos datos en el listbox. De ser posible, que si introdiciendo el nombre, apellidos o DNI me salgan tambien esos datos, sería genial. Además, tampoco logro implementar el boton para re…

Buenos días foreros: Tengo un problemilla que creo que se podría resolver con un par de líneas de programación. He realizado una serie de medidas (Medidas 1, 2 y 3) que consisten en valores de coeficientes de fricción para un número fijo de frenadas por medida. El número de valores varía ligeramente ya que no todas las frenadas duran lo mismo. Esto es lo que resulta un problema para su representación después. Me gustaría que el número de valores por frenada fuese igual (aunque de una frenada a otra puede ser diferente, por ejemplo, la 2 puede tener 30 valores y la 5 puede tener 50) y podría valerme añadir ceros hasta igualar la longitud de las frenadas más corta…

alguien me puede colaborar y decirme en que esta fallando este filtro? pruebafiltro.xlsm

Hola Antoni, debo decirte que este programa que me hiciste es una maravilla, te lo curraste y mucho, he hecho muchas pruebas con el, y para comprender mejor todo el funcionamiento, se me ocurren unas consultas. 1º En la Hoja "Caja" sobre qué, actúa el botón/macro "Reset" ? 2º En Hojas "Tickets y Detalle" que significa ID de la columna A ? 3º En Hoja "Detalle" en ID, qué significa el mismo número repetido ? 4º Porqué hay Hoja "Ticket" y Hoja "Detalle" ? no hacen más o menos lo mismo ? 5º Me imagino que las filas de las Hojas "Tickets" y "Detalle" no las debo borrar nunca, pues debe coger información de allí, la Hoja "Estadística", o borr…

Buenas Noches Esta macro me da error cuando la ejecuto por segunda vez en Range("A" & ultFila).PasteSpecial xlPasteAll Private Sub copiarceldas3_Click() Dim ultFila As Long, _ wbOrigen As Workbook 'Indicar el libro de Excel destino es la única variable que necesitas Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm") 'Se saca la celda donde está la última fila que agregaste ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row 'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja ThisWorkbook.Activate …

Estimados, soy nuevo en el foro y necesito su ayuda. Tengo un archivo de ventas por cliente y por mes. Necesito extraer los mejores clientes (Cantidad a definir) y el diferencial que quede en otros clientes. Actualmente lo tengo mezclado ya que extraigo con macro registro único y con formula extraigo las ventas por mes cada cliente, de esta manera tengo las ventas mensuales por cliente. Luego manualmente ordeno de mayor a menor según las ventas totales. Elijo los mejores clientes según este ordenamiento y muestro el ranking de los mejores y la diferencia a otros clientes. Todo esto quiero hacerlo con una macro donde solo ingrese la cantidad de registr…

Buenas tardes, feliz año para todos Quería saber si es posible pudieran ayudarme en lo que estoy intentando hacer Tengo una planilla en donde quiero aplicar una macro en donde se borre el contenido de la fila si se cumple una condición En la columna CG11 esta el valor que debe cumplirse (cabe aclarar que desde la fila 11 en adelante quiero que se cumpla la macro, se puede poner un tope si hace falta) el valor es 70 Y desde la columna CH11 hasta EX11 los datos que quiero borrar Agradezco de vuestra atención Saludos

hola buenas tardes como puedo marcar aquellas celdas que coincidan tanto en el primero como en el segundo cuadro de numeros y lo marque de olor rojo como se muestra en el ejemplo MarcaSimilitudes (3).xlsm