Hola a todos!! Tengo un problema con la siguiente macro: Código: Sub Correo() strReportName = "C:\Users\xxx\Documents\Pedidos nacional\Pedido Norte Chico&FechaHora&. Pdf.pdf" Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(olMailItem) Set objOutlookAttach = objOutlook.CreateItem(olAttachMents) With objMail .To = "[email protected]" .Subject = "Pedidos" .Body = "" .Attachments.Add (strReportName) .Send End With Set objMail = Nothing Set objOutloo…

HOLA necesito ayuda, tengo un label y sobre el botones, y cuando clikeo el label se posiciona al frente, como hago para que al hacerle click al label no haga nada, saludos

Hola le pido ayuda para la siguiente cuestión Tengo un Excel con dos hojas visibles en pantalla. Hoja1 y Hoja2. Con datos variables cada vez que lo abro el Excel Lo que necesito es que situándome en Hoja1 celda A1 me filtre en Hoja2 las filas que tengan el mismo valor Si me situo en Hoja1 celda A1 apareceria en pantalla lo siguiente Si me situó en Hoja1 celda A2 me aparecería Y asi sucesivamente Muchas gracias duda1.xlsx

He creado 10 botones en una hoja de excel que quiero que hagan lo siguiente: Cuando pulse el 1, me gustaría que abriera un documento de word y me colocara en la página 1 de ese documento, cuando pulse el 5 que me coloque en la página 5 ¿es eso posible? A ver si podeis ayudarme.

hola como estan mis estimados colaboradores me veo en la necesidad de realizar una idea que no he podido aterrizar y es hacer una especie de regulador de fechas donde requiero que cada vez que se inicie un formulario (donde tengo dos DTpicker y un label ) el DTpicker1 muestre la fecha actual y el DTpicker2 muestra el valor de una celda (que es una fecha), entonces lo que quiero es hacer la comparacion de dias donde quiero que me muestre la cantidad de dias transcurridos desde la fecha (valor de la celda) hasta la fecha actual; asi tambien como puedo comparar fechaActual con fecha1: es decir que: si la fechaActual es mayor 3 dias transcurridos en comparacion con la fech…

Saludos cordiales, Necesito ayuda con una macro que estoy programando. La cuestión es la siguiente: Necesito exportar una hoja especifica de mi libro de resultados a la dirección path que el usuario indique, guardándola en formato .txt. Colocándole un nombre especifico con el dia y la hora, por ejemplo: "VaR Parametrico 15042013.txt" Agradecería mucho la pronta respuesta que me puedan ofrecer.

Buenas tardes y agradecer cualquier ayuda sobre el tema : Necesito extraer las filas relacionadas con un valor el cual tiene un rango de búsqueda de dos columnas, el código creado sólo me extrae lo que aparece en la columna AT, pero necesitaría que me extrajese también si el valor buscado aparece en la columna AU. ´ Lo he intentado con dos códigos pero no llego a conseguirlo Opción 1- sólo me saca la columna AT If Range("DIARIOCABAL!AT" & I) = Range("MAYORES!C4") Or ("DIARIOCABAL!AU" & I) = Range("MAYORES!C4") Then Range("MAYORES!b" & J) = Range("DIARIOCABAL!F" & I) Range("MAYORES!c" & J) = Range("DIARIOCABAL!B" & …

buenas noches Las barras de las fechas salen automaticamente, pero para probarlo, ingreso los 2 primeros número del día y luego agrego una barra y enseguida se coloca la barra que por default lo indico en la programación, cuando le doy grabar, me salen mis mensajes, que está bien, pero luego me sale mensaje de Microsoft Visual que me dice: Se ha producido el error '13' en tiempo de ejecución. No coinciden los tipos. Al darle Click a depurar se posiciona en estas variables: fechaactual = TextBox2 fechadelivery = TextBox3 Ejemplo de fechas ingresadas: Fecha Actual ingresada: 12//02/6 o Fecha Delivery ingresado: 11//02/6 ¿Cómo puedo haber para corregir este error…

Estimados tengo un problema en una lista, ya que cuando le doy Buscar Articulo se me habré un form con una lista y una imagen, pero cuando le doy click en la imagen se hace un zoom pero se me duplica los items dentro de la lista adjunto unas imágenes y el archivo Gracias por su ayuda espero que me puedan ayudar Sistema.rar

buen día tengan, eh aqui yo con los problemas de horas y fechas, pues ahora con la problemática que tengo que resolver que un textbox solo permita un horario determinado, es decir en un textbox al inicializar el formulario o a traves de un boton necesito determinar que solo acepte en horario de 24 horas desde las 09:00 horas hasta las 23:59 horas; es decir, si es menor a las 09:00 horas y mayor a las 23:59 horas me marque algun mensaje de error o en otras palabras que si la hora que esta en el textbox esta entre el rango de las 00:00 a las 08:59 horas me marque como hora invalida....¿como lo logro?, alguien que me pueda ayudar porfavor. determinar horario de horas xD.x…

Buenas tardes, agradezco si alguien me puede ayudar, con lo siguiente: Tengo un Excel con una tabla, donde la primera columna es un ID identificador único, luego 13 columnas que contienen links de imágenes y los dos últimos en Pdf. Lo que requiero es que, alguien me colabore con una macro que simplifique las siguientes tareas: 1. Crear una carpeta por cada ID único del listado. 2. Abrir y guardar cada contenido de los links a la carpeta ID único del inciso anterior. Gracias.

Hola Amigos, Quiero ordenar unas cuantas columnas, en el fichero lo dejo explicado, el orden también. Creo que es algo sencillo pero soy demasiado novato y no he sido capaz. Gracias por estar siempre ayudando. un abrazo vic Ejemplo Ordenar Cumple.xls

En el formulario tengo 100 Proveedores y elimino el de la linea 42, me queda la numeracion salteada como se ve en la imagen, la numeracion no continua porque las lineas se corren hacia arriba COMO DEBE SER y esta bien pero la numeracion queda salteada Para ordenar los datos al ingresar o editar datos, tengo desde la columna B hacia adelante porque no puedo ordenar por la A porque entonces me quedaria los nombres desordenados y los quiero seguir teniendo ordenados Rem Ordena la columna NOMBRE ( alfabeticamente (A a Z) X = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row Set myrange = ActiveSheet.Range("B2:J" & X) 'ordena hasta la columna J myrange.Sort Key1…

Estimados buenos dias Agradezco su apoyo en la siguiente línea que no me funciona, deseo cerrar un archivo excel tener presente que nombre archivo lo tengo celda B10 . Dim nombre As String nombre= Range("B10").Value Workbooks("nombre").Close SaveChanges:=False

Bueno basicamente necesito una macro que me ordene la columna A por los colores que tengan las celdas. Seguramente se habrá abierto este tema anteriormente pero aunque he buscado en los foros no lo encuentro. Tengo un archivo con varias columnas y quiero que se ordene la columna A junto con los datos que contienen las demas columnas. ordenar por color.xls

hola de nuevo, tras la ultima consulta que hice (adjunto fichero) necesito crear un aviso o mensaje, cuando se genere el documento en pdf si no se cierra aparece un error, pues bien no se como arreglar esto, y lo unico que se me ocurre es que si el usuario tras generar el pdf no lo cierra para una nueva consulta, que salte un aviso informando que antes debe cerrar el documento. me podeis ayudar por favor? gracias. TARIFICADOR (1) (1).xlsm

Hola a todos: Creo que para lo que necesito, necesito una macro. Tengo una columna con cerca de 5000 filas, donde hay números del 0 al 25. Necesito que en otra parte de la hoja u otra hoja, me da igual, me agrupe (me cuente) los datos que son superiores a 19, y que además, me los agrupe de tal forma que: - Cada valor de cada celda, es como si fuera "1 segundo", y cada valor por encima de 19 se denomina "sprint". - Hay veces que los datos vienen así: 4, 5, 19, 4,10... Lo que significa que en ese rango hay 1 sprint de 1 segundo. - Hay otras veces, que los datos vienen de tal forma que: 6, 7, 19, 20, 10....lo que sería 1 sprint de 2 segundos (puesto que hay 2 numeros c…

buenas!, como están gente!, pues aquí estoy con una consulta sobre macros, de lo que yo no tengo idea, por eso acudo a ustedes por ayuda. Busque en el foro pero lo que encontré no es lo que estoy buscando. Desde ya gracias a todos. la consulta es la siguiente: mis datos originales como ejemplo son estos: (la lista original contiene mas de 1.000 filas) y necesito crear una macro que me inserte filas y copie el original pero con las sumas de +1 para "inicial" hasta llegar al mismo monto de "final" y +30 en las fechas, para que quede de esta manera: adjunto archivo ejemplo ayuda.xls

Queridos amigos, Aca en el foro me han ayudado para realizar un calculo de una comision segun criterio, pero estoy tratando que este mismo dato se pueda realizar a traves de un userform que hice y ademas que se visualise una tabla que esta en este libro. en el archivo adjunto va el userform creado...... Esperando de una buena acogida por favor. comision.rar

Señores agradecere su apoyo con esta ayuda que necesito soy nuevo en esto y necesito de su apoyo . 1: Ingrese 2 botones , cuya finalidad deberia buscar = buscar un cliente si se encuentra ingresado en la lista creada y permita modificar y eliminar segun los botones ya creados( Ya programado ). 2: El boton reporte : El cual me genere un excel con todos los nombres cuyo estado sea muerto y otro excel vivo , o me de la opcion de generar el reporte por vivo / muerto. 3: Asi mismo agregue una columna la fecha de hoy y me gustaria que me permita modificar y que se muestre en pantalla como los campos (nombre estado , etc etc .) Agradecere mucho su apoyo con estas pequeñas …

cordial saludo, quisiera que me ayudaran con el siguinte caso, tengo un archivo en donde extraigo los datos del programa de la empresa que trabajo, pero esta consulta sql me los agrupa y no me los muestra de forma individual. Private Sub UserForm_Activate() Dim Db As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim SQL As String Dim i As Integer Call InicializarVariables Db.Open CONSTRING For i = 0 To 365 Me.cmb_Fini.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD") Me.cmb_FFin.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD") Next i Me.cmb_Fini.ListIndex = 180 Me.cmb_FFin.ListIndex = 0 SQL = …

Bunas tardes chic@s; No sé ni cómo explicaros lo que estoy intentando hacer, a ver si consigo. Estoy intentando filtrar datos de una hoja Excel ( Hoja1) y que se copie en su hoja correspondiente ( hoja con el nombre de la condición filtrado ). Las condiciones a filtrar están en un userfrom, os pongo un ejemplo. Si abro el userfrom ( menú ) y marco TACON Y PIEL, al pulsar generar, lo que quiero es que me filtre por TACON y me copie los datos en la hoja llamada TACON y me filtre por PIEL y me copie los datos en la hoja PIEL, si marco todo, quiero que me vaya filtrando por cada una de las condiciones y se vaya copiando en la hoja correspondiente. Com…

Hola a todos. Tengo el siguiente código para copiar columnas de una hoja a otra, pero si en la primera tengo fórmula, me copia la fórmula; y ahora necesito que me copie solamente los valores, como cuando hacemos un pegado especial manualmente. Dim ShER1 As Worksheet Dim SHDestino1 As Worksheet Set ShER1 = Worksheets("b.p.") Set SHDestino1 = Worksheets("b.d.") ShER1.Range("b10:D1500").Copy SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlAll Application.CutCopyMode = False ¿Alguien puede decirme el código para hacer lo que pretendo? …

Estimad@s buen día, Tengo una consulta estoy trabajando en un Proyecto con base de datos, y tengo una consulta haber si me pueden ayudar con ello: Tengo una lista con resultados que se extraen de una tabla, lo que quiero es que cuando valla marcando cada checkbox que esta en el orden de la lista, se valla agregando a las posiciones(textbox) si en caso no marcara un checkbox deje en blanco la posicion de acuerdo a su orden. adjunto un ejemplo de formulario. Muchas gracias por el apoyo. Saludos Cordiales, formulario_Muestra2.xlsm

Hola buenas noches: En una hoja donde listo mis archivos necesito mandarlos a imprimir celda x celda En la columna B tengo listado los archivos con su ruta completa. Ruta y nombre del archivo. Me gustaría poder imprimir estos sin necesidad de abrir cada uno de ellos. ya que previamente hice una revisión. Tengo una macro, que me había funcionado en otro archivo, pero no puedo aplicarlo aquí. Esperando que me puedan ayudar. Muchas gracias Mario Imprimir Rutas con archivo.xlsm