Buenos días Forista, tengo unas tablas en las cuales deseo colocar unas imágenes dependiendo de los números que tenga esta tabla para luego imprimirlas. No se si se pueda definir el tamaño de la imagen al pegarla Anexo archivo con ejemplo. P.D. Es un juego Loteria.rar

Hola amigos, estoy tratando de exportar un rango en formato PDF. Al exportar todo bien, pero cuando quiero agregar imagen en la cabecera no esta funcionando. La imagen lo tengo en la hoja "hjDatosA" del mismo libro, los datos lo tengo en la hoja "hjDatosB" del mismo libro. He buscando publicaciones anteriores y encontre esto ActiveSheet.Shapes("logo.jpg").Select Selection.Copy ActiveSheet.ChartObjects.Add(1000, 1000, Selection.Width, Selection.Height).Select ActiveChart.Paste ActiveChart.Export Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Shapes("logo.jpg").Name, FilterName:="JPEG" …

Amigos, Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón. Les envío el código con el que estoy trabajando, por si le sirve a alguien: Sub EnviarEmail() Dim objOutlook As Object Dim objItem As Object Dim objNamespace As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem) objNamespace.Logon "EXCELSPACE", , True, True ADJUNTO = "Destino.xlsm" With objItem .Attachments.Add (ADJUNTO) .Display .…

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…

hola expertos de excel mi pregunta es como hacer un codigo de acuerdo a esta condicion , si el numero de la hoja 1 se encuantra en cualquier cuadro de la hoja cundi1 colocarlo debajo de este ejemplo el 2687 esta en la hoja 1 y aparece en un cuadro de la hoja cundi1 colocandolo debajo de donde se encontro dicho numero les agradezco su colaboracion ejemplo2.xlsm

hola buenos dias a todos estoy tratando de buscar un patron numerico entre los cuadros de acuerdo a sus movimientos cada vez que cambie el numero y primero me gustaria que los numeros queden en color blanco como en el ejemplo del primer cuadro para visualizar mejor sus movimientos y lo segundo seria que hiciera el movimiento de color rojo en los cuadros de acuerdo a cada celda de la columna A en vez de lo que esta haciendo con las flechas actualmentey como dije desde un principio busco un patron numerico tomando como ejemplo los movimientos en la tabla de ajedrez si alguien tiene una gran idea para identificar o que me acerque al patron numerico se los agradeceria mucho …

Estimados amigos del foro, saludos cordiales Esta es una consulta aparentemente corta, como puedo lograr colocar una cifra cualquiera por ejemplo 994257851 (en formato numero) al ir pulsando cada boton cualquiera y que se vaya llenando en el textbox pero limitarlo a no mas de 10 dígitos ni menos de 2 subo el archivo para que lo vean Gracias anticipadas Colocar numeros en Textbox.xlsm

Saludos amigos! Estoy desarrollando un formulario en VBA y se me ha presentado el inconveniente de que no logro controlar el formateo de mis cuadros de texto para que cuando el usuario ingrese los datos, automáticamente el formulario coloque las separaciones de miles (.) y de decimales (,). Ejemplo: el usuario ingresa 100000 y quisiera que el cuadro de texto coloque 100.000,00. Agradezco su experimentada ayuda!

Saludos, Estoy preparando un archivo el cual se encarga de recopila (acumular) información dìa a día de un determinado archivo y va a uno general, una vez ya copiado aplico formulas las procesa, las selecciono y las convierto en valores, el còdigo de una parte (que es casi todo) es el siguiente: 'RegistrosActuales (es desde donde se quedo el anterior ingreso y lo nuevo continúa) ' Entonces tenemos esto 'Agrega fecha de actualización Range("g" & RegistrosActuales & ":g" & (Cells(1048576, 1).End(xlUp).Row)).Formula = Now() Range("g" & RegistrosActuales & ":g" & (Cells(1048576, 1).End(xl…

Buenas a toso necesito saber como puedo cambiar esta formula: =SUMA(AE17:AT17)/CONTAR.SI(AE17:AT17;">-1")*0,45, en el caso de que estén vacías o sin datos el resultado final me muestre un valor de 0. Gracias.

Buenas noches Foristas, mi nombre es Juan Carlos Jones y deseo que por favor me ayuden con esta plantilla. Lo que deseo hacer es que cuando le coloqu el mes de la aplicacion o uso de un producto este se el mes en el que se le coloque valor economico en el mes o los meses que correspondan. En la cedal C26 coloco la repeticion o cada cuanto se usa o plica el producto y deseo que el valor se coloque solo en el mes de su aplicacion. Ejemplo: Control de malezas se aplica cada 2 meses, esto quiere decir que cada dos meses debe aparecer el valor de esa aplicacion, mes 2, 4, 6 y 8 No he podido resolverlo. Muchas gracias por su ayuda. Anexo…

Buenos dias, Necesito ayuda para ver y aprender como modifico algunos detalles sobre la siguiente macro. Me explico. He encontrado esta macro por internet y quiero que las celdas tengan un color antes de introducir los datos, para que despues de introducir los datos el formato de las celdas sobre el color de fondo y la fuente quede igual como en toda la plantilla. Adjunto el documento, para que se haga una idea de lo que pretendo. Gracias. Saludos, COLOR CELDAS.xlsm

Amigos, quiero pasar el color de fondo de una celda a un control textbox he intentado con este pero no sale, por favor sus comentarios For X = 2 To Productos.Range("A1").End(xlDown).Row If Me.CbPoductos.Text = Productos.Cells(X, 2) Then TxtLunes.BackColor = Productos.Cells(X, 2).Interior.Color End If Next[/CODE] a la espera de sus comentarios Celest3 [/b]

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez el usuario hace clic arroja un tiempo en formato "hh:mm:ss", este tiempo sale después de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo si es < de 00:02:00 p…

Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.V…

algun codigo que arroje todos los colores de excel en una sola columna gracias

Hola Amigos, nuevamente solicitando su ayuda, lo que quisiera saber es como colocar a toda una fila según condición de una celda, en la hoja1 tengo mis registros, y en la hoja2 los colores según estado, si yo cambio el estado me coloree según condición "PENDIENTE, REPARADO, IMPORTADO", gracias. adjunto archivo. COLOR SEGUN SELDA.xls

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez se le hace clic arroja un tiempo en formato "hh:mm:ss" en el mismo textbox, este tiempo sale después de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo si es &lt…

Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez se le hace clic arroja un numero decimal en formato "0.##0" en el mismo textbox, este numero decimal sale despues de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango decimal le ponga un color u otro, de la siguiente manera si es >= 0.333 ponga el color del forecolor del textbox15 rojo si es > 0.166 y <0.333 ponga el forecolor en amarillo si …

hola buenos dias maestros mi idea es la siguiente tengo en una columna un listado de numeros de cuatro cifras en mi ejemplo columna N y necesito resaltar aquellos numeros de las tres ultimas cifras en el rango e1:k40

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

He revisado los temas con el buscador y aunque he encontrado algunos que pudieran valerme no he sido capaz de adaptarlos a mi necesidad obteniendo por ello toda clases de errores. Mi petición es la siguiente: Llevo el control de uso de una serie de edificios y salas donde se realizan diferentes presentaciones y actos y necesito destacar el final o inicio de cada Orden coloreando la fila correspondiente con un color suave (gris, violeta, ..). Agradeceré las ayudas que me podáis prestar.Control de actividades.xlsx Un saludo

Hola buenas, me gustaría saber cómo hacer una macro que me coloree una fila según el criterio de una celda. Tengo una columna "tipo" en la que puede haber diferentes valores, pero quiero que por ejemplo en la celda que aparezca la palabra "garantía" aunque luego haya más palabras me marque la fila de color rojo. ¿Es posible o tiene que ser el texto exacto? Muchas gracias. Saludos. color fila.xls

hola que tal compañeros? al parecer hago preguntas complicadas:mask:, bueno solo trato de hacer lo mejor posible para que este foro sea util para todos:pride: como es de notarse no soy un experto en programacion:numbness:, pero en fin, bueno he aqui lo siguiente: intento hacer que se coloreé toda la fila despues de la ultima celda activa, pero necesito validarla (cosa que no se) para que cuando inserte un dato se coloree la fila despues de este siempre y cuando sea final de mes, es decir, si el dia 31 de octubre insertaron datos y el dia 3 de noviembre se vuelven a insertar datos quiero que me ponga una fila coloreada antes de la insercion de estos datos (del 3 de noviem…

Buenas noches a todos. Otra vez en busca de ayuda acudo a este gran foro. Bueno, no consigo colorear de forma alternada rangos de celdas. Es decir que las celdas que tengan el mismo valor se rellenen con un color y cuando el valor de la celda cambie que se rellene con otro color y así de forma alternada con 2 colores tal como está en el archivo de muestra adjunto. Desde ya agradezco cualquier solución u orientación que me pudiesen proporcionar. Saludos desde Bolivia. Colorear condicionado.xlsx