Macros y programación VBA

en el adjunto tengo 3 alertas dependiendo del valor que se digite en la celda d3 necesito que cuando el valor de la celda d3 sea cualquiera de las alertas (a3,b3 o c3) la macro inserte una flecha del color de la alerta, asi: alerta rojo celda a3, la flecha debera apuntar hacia abajo y en color rojo alerta amarillo celda b3, la flecha debera apuntar hacia la mitad y en color amarillo alerta verde celda c3, la flecha debera apuntar hacia arriba y en color verde muchas gracias

Buenas, tengo esta macro para obtener el tipo de cambio de cualquier moneda que ponga en B4 contra el Euro, lo consigo con este código: [/FONT][/COLOR][COLOR=#2E8B57][FONT=Monaco]Sub Macro1()[/FONT][/COLOR] [COLOR=#2E8B57][FONT=Monaco]Dim currency1 As String[/FONT][/COLOR] [COLOR=#2E8B57][FONT=Monaco]currency1 = ActiveSheet.Range("Currency")[/FONT][/COLOR] [COLOR=#2E8B57][FONT=Monaco]With ActiveSheet.QueryTables.Add(Connection:= _[/FONT][/COLOR] [COLOR=#2E8B57][FONT=Monaco] "URL;http://uk.advfn.com/p.php?pid=fxcalculate&action=convert&amount=1&from=" & currency1 & "&to=EUR&btn=Convert", Destination:=Range("C1"))[/FONT][/COLOR] [COLO…

Saludos Cordiales!!! A manera de Estudio Personal me gustaria iniciarme en los temas de VBA y Macros. Si me podrian recomendar algunos sites y/o manuales para estudio.. Comenzando Basico!! Muchas Gracias!!

Amigos estoy metido en un proyecto donde necesito generar un numero consecutivo para los registros guardado, lo primero que se me ha ocurrido es generarlo manualmente mediante la digitacion en un textbox pero al cabo de cierto tiempo perderé el hilo del consecutivo porque seran muchos registro. entonces lo que necesito es que al momento de llamar el userform se asigne automaticamente el numero consecutivo en el textbox Idregistro. me pueden orientar como seria este caso. y nuevamente les agradezco su apoyo.

Hola!! Muchas gracias por tu deseo de ayudar, pero ya he resuelto el caso. El problema es que los administradores no me dejan borrar el tema y tampoco hay manera de darme de baja en el portal. De todos modos, muchas gracias por tu intensión. Cuídate! Prono.rar

Amigos, Tengo un problema con un código, espero me puedan ayudar a solucionar el problema. Tengo excel 2010, y estoy tratando de enviar un reporte por email desde excel, intenté hacerlo con gmail directamente pero no pude insertar en el cuerpo del mensaje con texto enriquecido, es decir incertar una tabla con colores etc... por lo que lo hice con outlook, pero el problema que tengo ahora es que no me adjunta el archivo. el codigo que utilizo es el siguiente: Option Explicit Sub Mail_Range_Outlook_Body() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim ruta As Variant With Application .EnableEvents = False …

amigos muchas gracias por este espacio que nos brindan a las personas que necesitamos tanta ayuda amigos necesito crear un historial cada vez que se actualiza un valor de determinada celda, navegando en la red e conseguido este codigo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub With Range("A" & Cells.Rows.Count).End(xlUp) .Offset(1) = Target .Offset(1, 1) = Format(Now, "hh:mm:ss") End With End Sub (perdon si no referencio la pagina pero de tantas que busque ya perdi el link) este codigo me funciona de maravilla siempre y cuando yo oprima enter y necesito que no sea asi habe…

Hola a todos y gracias por vuestra ayuda. Utilizo excel 2007, en mi sistema de facturación tengo una macro que al pulsar un botón me guarda en pdf, imprime, crea siguiente numero de albarán y manda la información a la Hoja2 "VENTAS" en forma de listado, hasta ahí, todo estupendo, pero ahora quiero modificar la macro para que haga un vinculo o hipervínculo desde la celda donde esta ubicado el nº de albarán al archivo pdf creado, que está en otra carpeta, lo he intentado de varias maneras y nada, me da varios errores y lo tengo que hacer manualmente uno por uno cada albarán, no sé si podrá ayudarme, pero se lo agradezco de antemano. Adjunto archivo, donde se puede ver en …

Queria saber si me podrian ayudar necesito elaborar una encuesta en macro y con sus estadisticas favor si me podrian ayudar adjunto los resultados AuditoriaFinal.rar

Hola, estaba tranato de encontrar una macro o similar que diera formato a unas 100k+ filas Tengo un txt que lo he puesto en exel para desde aquí hacer algo. He pensado en la posibilidad de extraer tdoas las filas entre el primer [f_id] hasta el siguinete [f_id] y luego utilizar la funcionalidad de excel para separar cada columna con el caracter "]" pero no estoy muy seguro de como hacerlo Tambíen dependiendo de cómo se haga estaría bien algñun tipo de control del tipo, si data a es true then copy para que las columnas no se mexclen tipo [data b] aparezca en la columna [data c] Muchas gracias de antemano Antes Col A 1 2 [f_id] => 1 3 [data a] => bla bla …

buenas tardes queria ver si alguno puede ayudarme en la creacion de una UDF o MAcro para el calculo de bono nocturno y escala de antiguedad dependiendo de ciertos criterios, dentro del archivo adjunto estan los criterios y mas explicado lo que necesito gracias por adelantado Bendiciones escala y bono nocturno.rar

Hola Tengo una tabla en una hoja de excel de 6 columnas, y me gustaría que, tras filtrarla, me copiara 4 de estas columnas al final de una tabla que hay en otra hoja ( o insertarlas al inicio). He estado buscando por el foro y, aunque he encontrado temas similares, no he podido o sabido aplicarlos a mi ejemplo Adjunto excel con el ejemplo Gracias de antemano por la ayuda plan.xls

Buenos días, actualmente uso una macro a diario que me genera un archivo CSV de varias hojas de un mismo libro. Como bien indica el tipo de archivo que se genera, los campos resultantes, lo hacen separado por comas, pero para la aplicación final en la que doy uso al archivo CSV generado, necesito de "|" (pipeline) para funcionar correctamente. Copio la macro en cuestión por si es posible modificar o añadir algo que permita que el separador sea Pipeline: Sub Crear_CSV() Dim csvName$, mySh As Worksheet Dim i& Application.ScreenUpdating = False Do i = 1 + i csvName$ = ThisWorkbook.Path & "\ARCHIVOCSV_" & Format(i, "0000") & ".csv" Loop Until Dir(cs…

Fantastico!!!! veo que esto de la programación es un arte y cada uno de los Expertos tienen su estilo a la hora de programar. Gracias por compartir tus muchos conocimientos. Este es un proyecto de [uSER=9328]@Gerson Pineda[/uSER] y me gustaría adaptarle a un proyecto mio pero en la columna de "Legajo" poner fechas para filtrar y en la columna de "Categoría quisiera poner valores alfanuméricos...como lo harías?. Me puedes compartir ese conocimiento. Nuevamente reitero mis felicitaciones por hacer de este foro el mejor de la red. Muchas gracias Copia de Turbo_filtro_form_gp.xls

¡Hola a todos! Soy nuevo en este foro y tengo un problema en Excel y bueno pues a ver si hay suerte y alguien me puede echar un cable. Antes que nada comentar que mis conocimientos son casi nulos y el código contenido en el ejemplo no es de mi autoría sino que lo he ido sacando de internet buscando y adaptándolo a mis necesidades. Tengo una plantilla para facturas en la que introduzco datos en la hoja1 (Factura) y un seguimiento de las facturas que se van realizando , en la hoja 2 (Control Facturas) Mediante código tengo la posibilidad de insertar filas según la extensión de la factura en cuestión. También por código copio la información necesaria de la factura a la h…

Hola Buenas. Por lo que he podido informarme de lo que necesito veo que es una macro, mezcla de combinar números y coincidencias, de lo cual en macros salvo meterla en un módulo hecha ya y crear el botón en hoja para ejecutar poco más. Bueno explico lo más resumido que puedo de lo que se trata en el libro que subo. Como ejemplo, en columnas naranja Q: AN celdas en blanco 2, 8, 9,10 a su vez en columnas azules AQ: BN fila 5 debajo de sus encabezados correspondientes las veces que se repite la cadena de 4 números en columnas naranja Q: AN O sea se trata de buscar las coincidencias POR FILAS en Q: AN a bloques o grupos de 4 números y reflejar el resumen de estos en colu…

Hola: Tengo un Listbox que lista una carpeta y al hacer doble click en cualquier item se debería abrir el archivo. Antes de hacer pruebas, se me abrian todos los tipos (doc, pdf, y jpeg entre otros), salvo los tipo excel (xls*), pero ahora no se abre ninguno. Aun así, la consulta es para saber cómo abrir cualquier tipo de archivo incluyendo los de Excel, porque tengo varios códigos que abren archivos (del tipo ShellExecute, etc) , pero fallan con los xls* Abrir archivos.rar

Buenas tardes! Soy nueva en el foro ya que comence hace poco a trabajar con Excel. Hace unos dias que necesito reemplazar valores de varias planillas para poder subir a una pagina web. El problema es que son miles de productos a los cuales debo agregarles sus colores principales por medios de codigos que solicita la pagina para poder realizar un filtro. Tengo dos hojas, en una todos los productos por talle donde ingreso el color primario y la segunda hoja, los colores que quiero reemplazar por su respectivo código: https://fbcdn-sphotos-g-a.akamaihd.net/hphotos-ak-xlp1/t31.0-8/14311264_1659514134359551_3946213478181993442_o.jpg https://fbcdn-sphotos-…

alguien de ustedes me puede colaborar realizando un codigo para buscar cualquier numero que coloque en la columna A y lo resalte en en rango "C1:HB42" tengo en en libro dos modulos de guia Libro1.xlsm

Buenas tarde estimados: Les agradecería me ayudaran a darle una nueva presentación a los registros de una base de datos. Lo que preciso es extraer los datos de la Hoja1 para que los muestre en la forma en la Hoja2 del ejemplo. Gracias de antemano Libro1.xlsm

Buenas tardes Maestros, estoy intentando crear una macro, que además de borrar las lineas en blanco, según la condición de si celda vacia, además si dentro de un rango especifico, la colunna , en este caso la D, no contiene datos, me borre ese rango especifico. Lo he estado intentando, y no lo consigo. Todo esto, es para una hoja de datos, para realizar pedidos a proveedores. Les adjunto archivo de ejemplo, por si pudieran ayudarme. Ejemplo.xlsm

hola expertos quisiera desarrollar esta idea como puedo enviar la informacion de la columna b de la hoja estadistica y el cuadro de estadisticas descriptivas a la hoja archivo cada vez que se termina de ejecutar un proceso la diferencia son 6 columnas despues de cada proceso estadistica-descriptiva.xls

Intento abrir un archivo CSV con una macro y quiero cambiar los paramentros de TextFileColumnDataTypes. hice una macro con la que a través de las caracteristicas de cada columna puedo incluir en una variable los parematros que necesito, pero al abrir la QueryTables.Add, no se como suplir el array. Los datos que incluye la variable son: MyVariable = "4,2,2,2,1,2,1,1" With ActiveSheet.QueryTables.Add(Connection:= _ ImpFile, Destination:=Range("$A$1")) ' .CommandType = 1 .Name = "salidas_merc" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True …

Buenos días En un formulario tengo varios checkbox que los uso para señalar si requiero un equipo o no. Ahora me de vuelve verdadero o falso , pero necesitaría una solución para que me devolviera si o no. sl2

¡Hola! Me encuentro trabajando con un archivo ubicado en un servidor Sharepoint. Deseo obtener la ruta local de dicho archivo en vez de la URL de SharePoint. He utilizado la función CELDA ("nombrearchivo") pero siempre me devuelve la URL También lo he intentado con una macro: Sub sss() FilePath = ThisWorkbook.FullName FileOnly = ThisWorkbook.Name pathonly = Left(FilePath, Len(FilePath) - Len(FileOnly)) [a3] = pathonly End Sub Pero también me devuelve la URL. Ni que decir tiene que el archivo está alojado en OneDrive empresarial y ubicado en mi equipo (con la opción de mantenerlo siempre en mi equipo). ¿Alguna idea para obtener la ruta…