Buenas tardes, tengo esta macro que lee caracter a caracter y los concatena con su mismo formato, en este caso concatena manteniendo color de ambas celdas. La he probado y es muy lenta cuando hay muchas lineas con muchos carcateres en cada celda. Como en realidad sólo tengo texto en dos colores que se encuentran siempre en celdas separadas, no sé si se podría optimizar y hacerla más rápida y ligera. Os copio el código y adjunto ejemplo: Sub COPYPASTECOLORINDEX() Set myRange = Range("A:B") 'aquí le digo el rango del aprimera columna For Each c In myRange.Cells If c.Value <> "" Then If c.Offset(0, 1).Value = "" Then …

Buenas tardes, necesito sumar los valores de dos columnas y restarlas de una tercera columna, por ejemplo A+B y el resultado - C que luego me lo ponga en D y que me vaya haciendo esto hacia abajo en 10 filas que tienen las columnas, Sería por supuesto una macro en VB. ¿Sería posible hacerlo? Gracias

Encontre una amcro en el foro de newton raphson la trate de adaptar para una funcion que tengo pero no funciona me sale que es #valor y derive la funcion usando mathematica asiq eu al derivada no croe que este mal peor nsoe que pueda hacer ojala puedna ayudarme les adjunto el arhivo de la macro y de la funcion en word Gracias Newton.zip

Estimados, alguien me podría dar una mano con este tema? necesito poder contar celdas de colores, los cuales cambian en función del formato condicional, estuve buscando por la web pero ninguna de ls publicaciones me fue de utilidad. Gracias. Saludos.

Hola amigos, tengo la siguiente macro: Sub Tabla_de_Excel_a_Word() 'Copia el rango de Excel seleccionado en un nuevo documento Word Sheets("Reporte").Select Range("C8:T20,C89:T92").Select 'copiar rango selecionado Selection.Copy 'Crea nueva aplicación Word Dim swMSWord As Word.Application Set swMSWord = New Word.Application With swMSWord .Visible = True .Activate End With 'Abre nuevo documento Word swMSWord.Documents.Add 'Pegado con vínculo de las celdas Excel swMSWord.Selection.PasteSpecial link:=True 'Libera el objeto Word Set swMSWord = Nothing End Sub La cual copia mis tablas de Excel a un Word, pero tengo dos problemillas y necesito de …

Hola a todos y gracias por anticipado por echarme una mano... Estoy trabajando con la API de JavaScript para Excel a través de Script Lab (esto no es muy importante) Estoy tratando de cambiar el ancho de una columna... Rango.format.columnWidth=100,81; Mi pregunta es, Ese 100,81 ¿a qué medida hace referencia? porque cuando lo veo al cambiar el ancho de la columna manualmente muestra 18,29 y en cm muestra 3,78 cm ¿Alguien sabría decirme en que unidades están esos 100,81? Debe ser una medida americana. Saludos Jose

Hola a todos, queria hacer una consulta, tengo este codigo: Public Sub Worksheet_Selection_Change(ByVal Target As Range) Dim nFilas As Long Dim nFila As Long Dim i As Long nFilas = Cells(Rows.Count, 4).End(xlUp).Row nFila = 1 For i = 11 To nFilas + 11 If Cells(i, 4) = "" Then Cells(i, 27) = "" If Cells(i, 4) <> "" Then Cells(i, 27) = nFila nFila = nFila + 1 End If Next End Sub con ese código numero las filas en el rango deseado, desde la celda 11 hacia abajo las que hayan.. el tema que yo aplico filtro y obvio la cantidad total se reduce de q se 20 aprox.. a 5 filas.. el tema que ese código numero perfecto pero no le im…

Buenos días gente, bueno es simplemente lo que dice el titulo, quisiera que en una determinada hoja (no en todo el libro) se resalte la fila activa con algún color, sin que modifique los formatos condicionales que pueda llegar a tener esa hoja No lo intenté hacer con formato condicional ya que es una tabla muy extensa y supongo que el rendimiento del libro bajaría en comparación si usaría VB Desde ya muchas gracias y saludos Buena Vida

Buenas noches. Soy yo de nuevo. Estimados, en esta oportunidad quisiera por favor me orientaran sobre como incluir de manera automática la firma que grabé en outlook a los correos que me genera el archivo que anexo. El mismo lo utilizaré para enviar correos masivos. La ruta donde tengo la firma es: C:\Users\Administrador\AppData\Roaming\Microsoft\Firmas\Firma Jezreel.htm Y esta es la macro que ejecuta el envío de los correos '***Macro Para enviar correos Sub correo() 'Por col = Range("J5").Column For i = 6 To Range("D" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("D" & i) …

Amigos, Estoy nuevamente por acá para que me ayuden con un código: Lo que estoy haciendo es enviar un mail de Outlook - en su versión 2010 -, mediante una Macro; ésta Macro envía un correo con un archivo adjunto más un rango de celdas específico. Hasta el momento todo bien, pero al momento de cambiar la propiedad Display por send es donde falla, ya que me envía el archivo adjunto pero no el rango de celdas. Les adjunto el código que estoy utilizando: Sub rangoCeldas() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim Adjunto As Variant …

Buena tarde amigos: tendrá alguien por ahí algún macro para buscar e insertar imágenes pero al desplegar la ventana de búsqueda esté direccionada a una carpeta especifica?. saludos

Hola, quisiera una ayuda con esta macro: Sub copiarNuevo() Dim hj As Worksheet, x As Long, celda As Range x = 8 y = 0 For Each hj In ThisWorkbook.Worksheets If hj.Name <> "Index" And hj.Name <> "Plantilla" And hj.Name <> "Consolidado" Then If celda <> 0 Then y = y + 1 With hj For Each celda In .Range("v8:z48") If celda <> 0 Then Worksheets("Consolidado").Cells(y, x) = celda x = x + 1 End If Next End With End If Next End Sub Lo que deberia hacer es recorrer todo el libro (menos las hojas indicadas), copiar las celdas ocupadas en el rango v8:z8, y pegarlas en otra hoja, fila tras fila. El problema es que…

Buenas y Felices Fiestas!!!! Busco una Macro que elimine Filas en base a un Texto “X”, elimine desde ese texto incluido 85 Filas, estarán ahora en la columna A. Saludos….

Buenas, es una cosa fácil pero se me esta resistiendo, con Application.hWnd saco la de la ventana activa, el excel, y con FindWindow("notepad", vbNullString), la de notepad, pero cuando intento otras que tengo activas como por ejemplo el word no me da nada... alguien me puede indicar como indicar en el findwindow / ex el titulo de la ventana, gracias

Hola: Quisiera saber si hay alguna manera de conectar excel con access remotamente, intente hacerlo con un macro que supuestamente conecta excel con MYSQL que debe encontrarse en servidor web, pero no logré hacer que me funcione, por lo que quisiera hacerlo entre excel y access y de forma mas "casera" ya que lo que necesito es actualizar precios cuando ando en la calle desde el servidor de la oficina. saludos

Hola amigos: Tengo este código que convierte a texto el contenido numérico de la celda A2 en la celda A1, y todo funciona bien el problema es que deseo hacer lo mismo pero dentro del textbox1 ubicado en un formulario que esta en el ejemplo y no logro hacerlo hay alguna manera de hacerlo. adjunto ejemplo. saludos numeros a letras.rar

Tengo una tabla dinámica y quiero que se actualice el filtro por el valor puesto en una celda. Ya busque codigos que hagan esto y si existen, el problema es que mi tabla viene de PowerPivot y estos codigos no funcionan Al hacer una macro el sistema tira el siguiente codigo: ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").ClearAllFilters -(hasta aquí funciona bien)- ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").CurrentPage = _ "[Cuenta_Externa].[N_extendido].&[(05-002) Mano de Obra Directa]" (Esta …

Buenas tardes. Me podrían apoyar por favor en darme una guía de como puedo obtener lo siguiente: tengo una macro que recorre la fila 1 hasta el último dato.. ejemplo A1 hasta AA1. Lo que trato de hacer es que si el valor es mayor a 3 letras entonces me limpie el contenido, pero cuando se encuentra con celdas combinadas me marca error. No puedo eliminar las celdas combinadas, porque me descuadraría mi archivo. Sub Eliminar_texto() Dim lc As Long, col As Long lc = Cells(1, Columns.Count).End(xlToLeft).Column For col = 1 To lc If Len(Cells(1, col).Value > 3) Then Cells(1, col).ClearContents Next End Sub Gracias por la ayuda y su tiempo. ☺️ MiEje…

Buenas tardes a todos, ¿Alguien sabría como invertir los valores de una columna? Tengo un rango que va desde A3 hasta A50 y quisiera encontrar una macro para invertir los valores y ubicarlos en el mismo rango, pero al revés..... es decir; el valor de A3 debe ser el que tiene A50, el de A4 debe ser el de A49 el de A5 debe ser el de A48 ....y así hasta llegar la final, que el de A50 sea el de A3 ¿alguna idea? Gracias por adelantado.....

Buenos días, Tengo una duda sobre el funcionamiento de una futura aplicación. Actualmente en uno de los departamentos vienen utilizando, para guardar el mismo tipo de datos, varios ficheros excel. Un fichero para cada zona o destino. Esos ficheros están conectado a uno "global" y mediante una macro genero una hoja con todos los datos de TODOS los ficheros, para luego hacer una dinámica, un par de gráficos, etc. Mi idea es migrar todo eso a un fichero access y utilizar excel con formularios para manejar esos datos y extraerlos cuando sea necesario. Pero no tengo claro cómo hacerlo. Supongo que deberé crear un excel para cada uno de los usuarios ¿verdad?, por aquello …

Que tal !!! La cuestión es que tengo una base de datos en excel y necesito que la buscar en la tabla un registro, me muestre los datos correspondientes en un formulario que ya creé. Pude programar un botón para limpiar los datos que pudieran estar impresos en los cuadros de texto, y otro botón para salir, lo que no he podido programar es el botón de consultas. Necesito un ejemplo para buscar el registro en base al nombre del empleado. En el archivo de excel tengo 2 hojas y en una de ellas tengo una plantilla que ya hace lo que deseo, pero quiero hacer eso mismo ahora con un formulario. Directorio.zip

Buenas, Estoy haciendo una macro que consiste en lo siguiente: Vaya a una carpeta, abra el primer excel, aplique un RefreshAll, lo guarde y cierre, y pase al siguiente. Estos exceles tienen conexiones de datos externas, que son las que quiero que me actualice, pero no lo hace. Pero si lo hago manualmente (abro excel, le doy en Datos a RefreshAll), sí me funciona. Este es el código que estoy aplicando: Sub AbrirArchivos() 'Paso1: Declarar las variables Dim Archivos As String 'Paso2: especificar una carpeta y el tipo de archivo que buscamos. 'En este caso la carpeta se lla "RFC2" y el tipo de dato es "xslx" Archivos = Dir("C:\Users\Desktop\2. RFC2…

Hola amigos foreros, Necesito una macro que me saque los cumpleaños que tengo en un determinado tiempo. Me explico, tengo una hoja con una base de datos con los nombre, apellidos, fecha de cumpleaños...... y en otra hoja me gustaría tener un par de calendarios con las fechas que quiero que me filtren los cumpleaños, Ejemplo del 5-Mayo al 15-Mayo --> me cumplen años María Díaz 10-Mayo. No se si me explicado... si hay algún problema me lo decís. Si no se puede poner dos calendarios que tiene que ser uno y se va seleccionando la fecha no pasa nada. O si con calendario no funciona pues algo que me ponga la fecha. Soy novato en esto y no sé si será posible. Para cualqui…

Hola Estimados, pido Disculpas por el Titulo del tema, vi que ya estaba con anterioridad, pero bloqueado, lo que quiero saber es que si hay alguna manera de que al ejecutar la macro en la hoja protegida me aparezca en la cinta de opciones habilitados la fuente el tipo de letra combinar celdas entre otros, ya que al ejecutar la macro aparecen todas esas opciones bloqueadas. adjunto archivo e imagen foro.xlsm

Buenas tardes foreros, he buscado información en la web para contar celdas según su color, pero la función "CONTARCOLOR" no me funciona, alguien sabe cómo puedo contar celdas con un color específico en un rango dado??