Estimados yo devuelta.... Les dejo esta macro y quiero ver la posibilidad de mejorar la velocidad de respuesta al momento de ingresar una consulta. Al momeneto de ejecutar la macro, muestra la totalidad de datos de la hoja base, pero cunado se ingresa una consulta, en lo texbox, se demora mucho en responder. La encontré en algún lado y la adapte a mi medida. El filtro opera según los datos ingresados: ejemplo Campo cliente: si ingreso la "S", mostrara todo lo que contenga "S", si le agrego una "E", filtrara todo lo que comience o contenga "SE" y así sucesivamente. - - - - - Mensaje combinado - - - - - La bse de datos puede llegara tener mas de 800 filas por mes, e…

Hola muy buenas queria saber si se podria hacer lo siguiente, adjunto archivos; listaprecios.txt es archivo que bajo proveedor tal cual Lo paso a excell y se queda en listaprecios.xls Luego realizo unas modificaciones y se queda en nuevo hoja de calculo(2) En listaprecios.xls aparecen los articulos separados por las categorias a la que pertenecen cada uno, estos aparecen con ...... Yo se quitar esos ...... y dejarlo sin ellos pero necesito que las categorias aparezcan en un cuadro a lado de cada articulo en nuevo hoja de calculo 2 en vez de separado asi como aparece en listaprecios.xls He tenido que quitar articulos en realidad para que cupiese el .rar aqui. Se…

Hola! Espero puedan ayudarme, estoy utilizando un userform para ingresar datos, he logrado que los datos ingresados aparazcan en las celdas correspondientes sin embargo, cuando se ingresa un nuevo registro se copia en la celda anterior modificando el ingreso. no puedo lograr que el nuevo ingreso aparezca en la siguiente fila. Esto es lo que he utilizado: Private Sub CommandButton1_Click() Dim Referencia As String ' variable para almacenar referencia del control Dim Control As String ' variable para almacenar el control Dim Actividad As String ' variable para almacenar descripcion del control Dim Responsable As String ' variable para almacenar el responsable Dim …

Buenos dias.. Saludos desde Tijuana, Mexico!... nececito su ayuda por favor... tengo un archivo ("libro1.xlsm" ejemplo) que es un formato para realizar pedidos, al iniciarse abre el userform1, pero dentro del userform1 hay una opcion que renombra el archivo y despues abre el userform2, pero antes de eso investiga si ya existe el archivo ("libro1 dd-mm-aaaa.xlsm") y si ya existe entonces lo abre... Lo que nececito es que al abrir el libro, primero pregunte si el archivo que se esta abriendo se llama "libro1.xlsm" si es correcto entonces que despliegue el userform1, si es falso entonces que abra el useform2 Espero darme a entender de antemano muchas gracias!!

Estimados amigos del foro hoy he avanzado con códigos para la manipulación de imágenes vectoriales con los que se crean freeforms. En el archivo que subo se puede ver como, luego de crear la imagen, en base a las coordenadas dadas en la hoja 1, con X1, Y1...., se puede insertar segmentos o eliminarlos, enderezar segmentos o hacerlo curvos, colocar texto dentro de la imagen. No he logrado hacer funcionar el botón añadir nodo o editarlo. Este avance lo he logrado gracias a la gentil colaboración de Macro Antonio y Gerson Pineda. Ahora bien, lo importante aquí, es como hacer que con los botones de diferentes direcciones que he colocado en la parte de abajo de las coordenad…

buenos dias, el problema es el siguiente, debo hacer la siguiente labor a muchas tablas dinamicas todos los dias With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields( _ "Suma de enero - 2013") .NumberFormat = "#.##0_);[Rojo](#.##0)" End With el problema radica en ("Tabla dinámica1") ya que no se como hacer que esto aplique a la tabla dinamica activa no a la #1. espero haberme hecho entender gracias

Buenos días a todos y feliz año. Quería saber si se os acurre alguna forma de ejecutar un mensaje de recordatorio en la aplicación si no se guarda el archivo en un tiempo determinado. Muchas gracias! Saludos

Saludos Necesito una macro que autorellene las formulas de cada celda, desde B5:K201 Esto lo puedo hacer manualmente seleccionando desde B5:k5 y arrastrarlo la fila hasta 201, sucede que necesito hacer esto para unos 100 cuadros como estos que ven mostrare en el adjunto en realidad esto lo hice manualmente seleccionando desde B5:APH5, pero perdi algunos formatos de las lineas dibujadas en el proceso... Intente grabar una macro y obtube este resultado: Sub Macro1() ' ' Macro1 Macro ' ' Acceso directo: CTRL+a ' Range("AOY6:APH6").Select Selection.AutoFill Destination:=Range("AOY6:APH201"), Type:=xlFillDefault Range("AOY6:APH201").Select End Sub Sucede…

Hola a todos, soy Juan Carlos y la verdad estoy recién adentrándome sobre el tema de los macros. Quería hacerles unas consultas respecto a macros sobre copiar el molde de una hoja de manera que pueda renombrar las hojas posteriormente. Y también saber si existe algún macro para poder hacer un resumen de las diferentes hojas y quede una tabla automatizada. Lo importante es que a la hora de ir creando hojas en el resumen pueda verse reflejado por el orden de cada hojas y de manera vertical. Cabe mencionar que los datos que quiero que se vea reflejado son de distintos rangos pero obviamente el mismo orden de estos rangos. De antemano muchas gracias por s…

Columna A Colum B Columna C Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 4) Efectivo y Equivalentes de efectivo (Nota 4) en la barra de fórmulas la columna B se refleja asi: Columna A Colum B Columna C Efectivo y Equivalentes de efectivo ="(Nota"&d2&")") Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo="(Nota"&E30&")") Efectivo y Equivalentes de efectivo (Nota 4) Hola A todos, como se observa en la …

hola amigos buen dia construyo una base en acces que se alimenta a traves de un formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao, Call conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable End With For a = 1 To 130 If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then combo1.Add CStr(rs.Fields("FACTURAPOST").Value) End If rs…

Buenas noches a todos.. Tengo 3 columnas (C,D,E) con datos de correos electrónicos, los quiero unir en un sola columna (F). Para ello, utilizo la función concatenar, y los separo mediante el punto y coma Pero cuando una celda está vacía, al concatenar me pone el punto y coma.. Y como se puede ver en la columna "F", aparece al principio los puntos y comas, y cuando la columna D, no tiene datos, me aparecen en medio de los datos de las columnas C y E. Alguien me podría indicar como crear una macro para que se juntaran los datos, y cuando la celda está vacía, no incluya el separador punto y coma. Gracias a tod@s.. Feliz Año 2022.. Concatenar Em…

Buen dia estimados... por favor me pueden ayudar con esta solicitud Llevar los Valores de los textbox a las celdas que indique, pero Sin insertar celdas llevar textbox 26 a hoja "Reclamo " celda E8 llevar textbox 27 a hoja "Reclamo " celda F8 llevar textbox 28 a hoja "Reclamo " celda E9 llevar textbox 29 a hoja "Reclamo " celda F9 y en Textbox 51 Vaya Mostranto total desde ya muy agradecido de Uds Reclamo2.xlsm

Hola como estan? Me he pasado todo el dia, intentando revisar en donde tengo un error y no lo logro. Les comento, estoy haciendo la suma de un producto de cantidades. Ej unidad1 * cantidad1 = subtotal1 unidad2 * cantidad2 = subtotal2 unidad3 * cantidad3 = subtotal3 Saco un suma de los subtotales Subtotal = subtotal1 + subtotal2 + subtotal3 A este subtotal le saco el IVA IVA = Subtotal*0.16 Y hasta ahi va bien, pero cuando quiero sumar el subtotal y el IVA, en un textbox que se llame total, no funciona nada Estoy subiendo el archivo para ver si me pueden asesorar Pedidos.rar

Lo que busco sería posicionarme por ejemplo en A y que a partir de ahí elimine dos columnas, osea B y C, que D la deje intacta y siga con E y F y así sucesivamente. Es para eliminar dos columnas de info que ya no necesito únicamente.

Hola a todos. Me llamo Fajardo y soy nuevo en este foro por lo que aprovecho para saludaros. He intentado crear un formulario para rellenar una ficha y cuando llego al cuadro combinado 3º para rellenar las celdas consecutivas con direrentes conceptos (desde la celda B10 en adelante) se me duplican éstos y si busco algún otro se van seleccionando y escribiendo solos otros conceptos en las celdas. El código de este cuadro es: Private Sub ComboBox3_Change() fila = 10 col = "B" Do While True If IsEmpty(Cells(fila, col)) Then Exit Do fila = fila + 1 Loop Cells(fila, "B").Value = ComboBox3.Text End Sub Intentaré añadir el fichero para que se pueda entender mejor to…

Buenos tardes a todos, Una vez mas recurro a vuestro conocimiento e imaginacion. Os explico tengo una tabla de datos que consiste en la descripcion de un producto y las siguientes filas de datos de ese producto, bien pues lo que necesito es insertar una fila antes y despues en blanco de cada descripcion de producto. Bien como mas vale una imagen que mil palabras os subo un ejemplo. La hoja original es qcomo lo tengo y la hoja bueno es como me gustaria que quedara, haciendolo de algun modo que no sea como lo he hecho yo una a una con insertar fila. Gracias por la ayuda por adelantado. insertar filas.rar

Estimados ExcelFanaticos, Quisiera compartir con ustedes una Macro simple que hice para mi trabajo y pedirles ayuda con otra cosa similar al trabajo que hice. Lo que quiero hacer si ven el ejemplo, es el proceso de forma inversa, esto quiere decir desde una base de datos mediante una macro y una combobox seleccionar el nombre de un "Trabajador" y obtener una ficha de personal donde me simplifique la información y por ende me muestre solamente una ves los valores duplicados y los valores que requieren de repetición (Ej: Promoción, o Cambio de Zona) me los especifique con la fecha en que el suceso ocurrió (Ej: Juan Peres fue promovido el 20-03-2012; Cargo Antiguo "Chofer"…

Buenas tardes compañeros, tengo una consulta y no doy con la solución, por si alguien podría ayudarme. Quiero dar las gracias de antemano. Tengo un excel con un formulario creado en el que doy de alta un usuario con sus correspondientes datos, hasta aquí todo ok. Después tengo un campo BUSCAR, que busco cualquier dato introducido y cuando lo selecciono para modificarlo o verlo me tira un error , y por más que doy vueltas no doy con la solución. También tengo un botón "Generar listado" que me gustaría que al pulsar me cogiera el registro seleccionado y me lo mostrara en un txt para copiarlo a otro programa.(Saben con hacerlo, sería posible). Vuelvo a d…

Hola saludos. alguno que tenga alguna hoja excel con macros para hacer prorrateo. para tener una idea como se hace.

Hola a toda la comunidad, tengo un problema con unas listas y les agradecería mucho que me pudieran ayudar. Les explico brevemente: Estoy haciendo un recibo de gastos en el cual relaciono una base de datos de trabajadores y otra de servicios. Con el número de trabajador, usando BUSCARV(), obtengo los datos básicos como nombre puesto, etc. Cada trabajador puede tener dependientes o no, el problema empieza cuando: 1. Quiero listar los dependientes del trabajador como si fuera una lista de validación, al seleccionar el beneficiario, necesito que me regrese, el nombre del beneficiario, parentesco, edad. La lista de trabajadores puede ser de mil o más registro y e…

Buenas tardes expexto, recurro a su ayuda para pedir sus valiosas ayudas, se trata de una dos hojas primero la hoja registro donde registra los pagos desde la columna D en la hoja pagos trabajo muy bien, pero necesito hacer otra macro que me copie los montos dependiendo del numero de cantidades de cuotas y en la fecha donde lo corresponde en la table del lado derecho donde comienza en la columna K. Por favor agradecere mucho la ayuda. Adjunto el archivo. Macro Neo.xlsm

Buenas tardes a todos, trato de aplicar dos filtros discriminatorios de datos procedentes de dos hojas distintas de un libro de excell, de tal forma que al seleccionar el primer filtro solo aparezca en el segundo filtro los campos que contenga el primero. Adjunto un ejemplo y lo explico mejor. Gracias. Ejemplo 2.xlsb

saludos a todos, por favor solicitando su apoyo con esta duda que no puedo desatar, tengo varios textbox en un Form que deben sumar y restar en otro textbox el problema es que el resultado no es el correcto, me parece que es por los formatos de los textbox, sin embargo necesito que conserven dichos formatos y a la vez arrojen el resultado correcto de la operación, Adjunto archivo, muy agradecido por su apoyo... Libro1.rar

Buenas Tardes, tengo el siguiente código, que lo que hace, es enviar la hoja activa de excel via outlook, pero por cuestiones de seguridad aparece una ventana emergente donde me pregunta si quiero permitir que un programa envie un correo por mi.No puedo desactivar la notificacion por seguridad de la empresa.La pregunta es: que puedo ingresar al codigo para que tambien pueda dar "click" en permitir y que se envie? la codigo funciona bien, si le doy click manualmente, el correo se envia con la info. Sub Enviar_Correo_HojaActiva()On Error Resume NextActiveSheet.CopyWith ActiveWorkbook.SendMail Recipients:="colocar email", Subject:="Inventario".Close …