Buen Dia! Por favor que alguien me ayude con el siguiente caso: Se tiene un archivo de Excel(adjunto) con una tabla de datos. A éstos se les necesita filtrar por la columna Negociador y por los estados "Próximo a Vencer" y "Vencido". Una vez se haga el filtro, la información debe ser copiada y pegada en una nueva pestaña la cual llevara el nombre del negociador filtrado. Esto se debe hacer con cada uno de los negociadores. Luego cada una de las pestañas, debe ser enviada via E-mail (Microsoft Outlook) al respectivo correo el cual estará en un archivo aparte de Excel con dos columnas, Nombre negociador y correo electrónico. Al final el archivo creado debe guardar…

Bueno amigos, necesito su ayuda. tengo este archivo exel para gestionar ligas. La cosa es que en la pestaña "tabla de posiciones" tengo una tabla que se actualiza según los valores agregados en la pestaña FIXTURE, el problema es que cada fila tiene una imagen al lado, pero al momento de actualizar la tabla, tengo que mover las imágenes manualmente. Habra alguna forma de que las imágenes se muevan junto a los datos? Tal ves usando VB o algo, Me podrían dar una Mano. Espero se entienda. Aquí dejo la tabla https://www.dropbox.com/s/56ew0g1rjjpf8yt/2da.xlsx Gracias amigos.

hola forist@s tengo la duda de como resolver esto, acudo a ustedes para resolverlo espero me puedan ayudar. intento generar un informe estadistico de actividades por fecha, es decir; quiero que sea flexible para que cuando le ponga que me genere el informe digamos por todo el mes de febrero que me diga cuantas actividades se hicieron en ese mes, o si le digo digamos que por dia se genere esa actividad y de ser posible se grafique. Espero no haberme salido de la espectativa y haber pedido algo complicado y me puedan ayudar. de antemano muchas gracias. saludos informeporfechas.xls

Estimados Expertos Muy cordiales saludos. Me encuentro entrampado en algo muy simple, pero que no había tocado, búsqueda de fecha usando application.Worksheetfunction.Vlookup Me propuse un cuadro simple, para buscar fechas, para tratar de ser más simple posible, pero aún así no doy con el error. Esta es la macro: Sub prueba() Dim FeCha As Date FeCha = cDate("02/10/2022") Range("C2").Value = Application.WorksheetFunction.VLookup(FeChita, Range("A2:B20"), 2, 0) End Sub Donde el Rango A2:B20 contiene fechas en la columna A y datos en la B, pero siempre me sale error. Es frustrante. Gracias adelantadas por su apoyo en la res…

Sub GuardarEXEL() ' 'Guardar archivo exel ActiveSheet.Copy Selection.Copy Ruta = Range("H13") nomb = Range("C16") ActiveWorkbook.SaveAs Filename:=Ruta & nomb & ".xls ", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Necesito que solo guarde la hoja activa y de la columna A hasta la E Gracias

Hola Maestro GERSON o alguien que me pueda ayudar con esta pregunta no se si sea posible o no quisiera sumar en el ListBox que esta en el UserForm aqui les dejo el ejemplo por si alguin me puede Ayudar GRACIAS po adelantado Y Saludos Para Mandar.rar

El archivo se le almacenado mucha informacion, son muchas lineas, no tengo ideas de cuantas podria ser pxq ahora aqui en mi compu me dice que no tengo recurso suficiente para aseguir trabajando con ella. Me congela el excel. ESPERO AGUIEN ME AYUDE, YA LO INTENTE CON ARCHIVO QUE SUBIERON EN ESTA WEB, PARA DIVIDIRLO, PERO NO ME FUE BIEN. aqui la descagarga, ya que, no me dejo adjuntarlo. Dropbox - PARA ORDEN DE EXPEDIENTES.xlsx DESDE YA MUCHAS GRACIAS.

Saludos amigos del foro, en el andar viendo el modo de abrir un archivo solo en una máquina, me encontré con una solución interesante, funciona con el artificio en la Hoja1. Le hice unos pequeños cambios, por la hoja3 y otras cosas más.. No obstante, cierro y trato de abrirlo,...... ya no se abre pese a ser la misma máquina, no obstante me sale el mensaje msgbox programado... Intente detener la macro con la famosa tecla shift pero aun no logro que ese truco me funcione.. Envío el archivo, si ustedes lo abren y pueden ver el código, algo no estoy haciendo bien con lo de la tecla shift. Si el codigo esta bien, entonces la macro no funciona para el propósito.…

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Bo…

Buenos días: Ante todo saludados y agradeceros lo que, poco a poco he ido aprendiendo en este foro, aunque de forma anónima, Este es mi primer post y entro preguntando y con una consulta ya que me encuentro atascado en una hoja y no se como solucionar mi problema, os cuento: Tengo una hoja en la que dependiendo de la categoría profesional que se le ponga, permite poner dietas o no. La Categoría se coge de una lista desplegable y la celda dietas tiene una validación de datos personalizada con formula que "mira" en una celda que número hay, el número viene de una función "O" que analiza anteriormente las categorías que se han introducido y solo muestra "VERDADERO" si s…

Hola buena tardes, necesitaría ayuda si es posible. Voy a intentar explicar lo que necesito. Yo trabajo con tres libros diferentes (1, 2, 3), en el numero uno y en la hoja1 cargo datos. En el numero 2, que es creado por intermedio de una macro que esta en libro1. Y en el libro 3 donde guardo al finalizar el trabajo los datos totales. Yo necesito que al cargar nuevo trabajo en libro 1 (hoja listado) se copien automáticamente en el libro 3 (hoja horas) manteniendo el formato del libro 3 Y en la hoja material del libro 3 me cree un lugar para que yo les pueda cargar los materiales. En definitiva, yo actualmente copio los datos del archivo 1 en el archivo 3 manualmente …

consultas de un combo box No encuentro la forma de consultar la segunda columna de un combo box (de un registro seleccionado). Ag}lguien que me pueda ayudar con esto

Hola y gracias de antemano por cualquier ayuda tengo una exportación de datos en una pestaña (original ) y necesitaría que me pegase las lineas nuevas en otro listado de otra pestaña ( copia ).. y al mismo tiempo, que me borrase del listado COPIA los que ya no encuentre en la exportación ( Original ) BUSCAR Y ESCRIBIR EN OTRA PESTAÑA.xlsx

Buenas tardes estoy aprendiendo esto de Macros y VB, estoy haciendo una aplicación que capture desde una macro e inserte los valores en una hoja de excel, la verdad es que ahí la llevo solo que cuando llego a un TextBox que debe llevar mucho texto y meto mas de 910 caracteres me marca error 1004 en tiempo de ejecución, error definido por la aplicación o el objeto. Buscando y buscando en Internet no he encontrado como hacerle para hacer funcionar esto, lo que me interesa es que 2 textbox puedan capturar un texto ilimitado sin marcar error o algo que los sustituya. el código es el siguiente (aclaro que lo he copiado y modificado de internet): Private Sub CommandButton1…

Hola. Hay forma de que exporte una tabla que tengo un archivo a otro?? Los libros tienen diferente nombre, Lo que quiero es que Me pida abrir el libro lo seleccione y que de ese libro copie la tabla y extraiga los datos al libro donde ejecuto la macro.

hola a todos, tengo una macro de excel que me abre unos archivos de un directorio, uno a uno los imprime en pdf con Acrobat y los cierra. Es muy sencilla. Lo que quisiera es que al imprimir no me saliera la barra de progreso ya que me va más lento que si lo hago manual y no consiguo cerrar la barra y el boton que sale de ocultar tampoco me funciona. ¿Sabe alguien algo de este tema?? Muchas gracias:peaceful:

Hola!!, Aquí voy con mi duda que por más vueltas que le doy no doy con ello. En esta macro estoy intentando escribir en la fil a 29 que filtros se han "SELECCIONADO" en el /los SEGMENTOS de la Tabla dinámica. Si filtro por [Tamaño de Empresa] = "Pequeña", implica que sólo me muestra un [Concepto], "Concepto AAA". Hasta ahí bien. En este caso los filtros que me muestra como "SELECCIONADOS" son: Para el segmento [Tamaño de empresa]: "Pequeña" Para el segmento [Concepto]: Todos los items de este segmento, cuando en realidad no se ha seleccionado ningún item en este segmento , además me muestra los 2 items cuando tendría que selecc…

Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

hola expertos buen dia , estaba analizando si existira algun codigo que me grabe o guarde los movimientos que realice en un tablero de ajedrez les agradezco las ideas que me ofrezcan

Saludos a todo Ayuda execel , queria pregunta sobre un problema que no logro resolver : en el formulario tengro un txtbox donnde ingreso una fecha ( 03/09/2021) , cuando corro la macro esta coloco en la tabla de datos la fecha en otro formato es decir 09/03/2021, Se que bva trabaja con formato americano(ee.UU)asi que probe inclullendo en el codigo de registrar lo siguiente Sheets("Auxiliar").Range ("A2:A")=Format ("mm/dd/yyyy" pero sigue poniendo la fecha con formato americano, que estoy haciendo mal?

Buenos días, amigos. Excel 2003 + SP3 A ver si soy capaz de explicarme con claridad. Tengo un libro que contiene mucho VBA, muchas fórmulas y con una base de datos que me ocupa unas 40 hojas completitas de registros. Por lo tanto, es normal y lógico que el archivo pese cerca de 8 Mb. Este libro es un proyecto (por cierto, que creía ya terminado), hecho para una tarifa de precios junto a una hoja diseñada para presupuestos. Cada vez que hacemos uno, se guarda en una ruta establecida y con el nombre según el valor de una celda, y el guardado se ejecuta con una macro con el siguiente código: [COLOR="#0000FF"]Sub GuardarDirecto() Dim ruta As String On Error Resume N…

Buenas tardes. Gracias de antemano por la ayuda. Os explico mi problema. En la hoja 4 (Datos 2), quiero poner un pequeño buscador, lo más simple posible. He insertado un cuadro de texto de ActiveX con lo siguiente (llamado BuscadorPrueba); Private Sub BuscadorPrueba_Change() Dim DatoConsultado As String If Hoja4.BuscadorPrueba.Value <> "" Then DatoConsultado = "*" & Hoja4.BuscadorPrueba.Value & "*" Range("C10").CurrentRegion.AutoFilter Field:=1, Criteria1:=DatoConsultado Else DatoConsultado = "" Range("C10").CurrentRegion.AutoFilter End If End Sub No necesit…

Hola, tengo esta macro para buscar un código en una macro y copiarla en una hoja específica. Necesito ayuda para realizar la siguiente acción. La base de datos es la hoja Compras. Los datos los necesito sacar a la Hoja Tomate, Acelga, Albahaca, etc. los códigos que necesito buscar los tengo en la columna A de cada hoja (Tomate, Acelga, Albahaca, etc.) Hoy la macro que tengo solo busca la hoja Tomate en la Celda A2, pero tengo códigos en A3, A4, etc. Necesito que la macro busque los código de la Hoja Tomate y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto). Luego que termine con esta acción, quiero que cambie de hoja y busque lo…

Hola compañeros, Necesito que al pulsar sobre un botón y ejecutar una macro, se quede bloqueada toda la pantalla y no pueda acceder ni a la cinta de opciones ni al menú de acceso rápido, así como abrir las hojas del libro. He adjuntado una imagen, para ver si se puede apreciar mejor. Debe ser algún método de la clase application, pero no sé cuál... Sub BloquearLibro() application.(no sé qué método) = true End Sub Gracias.

Hola, tengo la siguiente duda, necesito pasar de columna a fila de manera masiva, ejemplo: Lo que tengo: 4321; A04 4321; A03 4321; A04 8765; A01 8765; A02 8765; A03 Y lo que necesito es: 4321; A03; A03; A04 8765: A01; A02; A03 Son varios códigos distintos (4321, 8765q), con distintos datos que cambiar de columna a fila, ocupar la función trasponer me ocupara mucho tiempo.