Buenos dias. Les cuento. Estoy intentando desarrollar un macro, soy nuevo en esto, y es para mi trabajo. Lo que necesito hacer es lo siguiente: .Copiar el sombreado de todas las celdas Doc A desde J2 hasta J850 al Doc B desde la J2 a la J850, mediante un buscarv donde los codigos unicos del Doc A y Doc B se encuentran desde A2 a A850 de ambos documentos. .Esto necesito aplicarlo solo a aquellas celdas que tengan color distinto al Gris. Se me ocurre un For, con un If adentro, y luego algo asi pero nose como hacer que varie. Dim micolor micolor = Range("'[Pendientes de ingreso.xls]Sheet1'!J2").Interior.color Range("J2").Interior.color = micolor Range("K2").Interior…

Saludos a todos, tengo una base de dato bastante extensa de cuentas por cobrar clientes y me gustaría eliminar los subtotales que tengan saldo en cero para efecto de análisis de dicha data, alguien que me preste el apoyo de una macro que pueda agilizar dicho trabajo; adjunto ejemplo. Saludos; Ejemplo.xls

Hola, Soy nuevo en el foro y necesitaría de vuestra ayuda para realizar una pequeña macro. He estado buscando en el foro antes de crear el tema pero no he encontrado lo que necesito. Resulta que tengo 2 libros: libro A y libro B. Ambos libros tienen las mismas columnas. Hay una columna que se llama ID que identifica la fila. El libro A se actualiza cada día, de manera que aparecen nuevas filas que no se encuentran en el libro B. Además puede ser que alguno de los campos del libro A se modifique por lo que aun existiendo en el libro B hay que encontrar esta actualización. Lo que quiero conseguir es lo siguiente: 1. Comparar cada campo ID del libro A con todos los campo…

Hola a todos, Muchas dar las gracias por los aportes y comentarios. Soy nueva en esto de la programación en VBA. Tengo un formulario que ingresa información básica, este formulario registra en una hoja principal llamada Hoja1 y ordena los datos de manera descendente, hasta ahí, todo en orden, lo que se me ha complicado en que el último registro que se realice en esta hoja debe de copiarse y pegarse en otra hoja y debe ordenarse de la misma manera ( descendente). es decir: 1. Luego de registrar los datos en la hoja de origen, debo de seleccionar el rango de columnas a copiar. 2. ir a la hoja destino y antes de pegar el registro, se debe de ir …

Hola, estaba intentando hacer una macro en el libro inventario que al ejecutarla me abra el libro datos2 y vaya recorriendo la columna producto y comparando cada dato de dicha columna con el que hay en la columna producto del libro inventario, si lo encuentra me copie en el libro inventario el dato que ha encontrado siete columnas a la derecha en la columna cantidad (.offset (0,7)), y si no lo encuentra copie el código, producto y cantidad al final del todo, en la primera fila vacía del libro inventario, pero me estoy liando un poco.... El libro datos2 cambia todos los meses, por eso quiero copiar los datos del mismo en el libro inventario gracias por la …

buenas tardes, necesito cerrar un userform desde un botton de otro userform por ejemplo algo como esto que pense pero no me funcion userform1 unload muchas gracias por la ayuda

Soy nuevo en lo que es programacion VBA a macros,tengo un gran problema en el cual me he quedado estancado,quisiera que el valor de mis columnas puede ser dividido entre 10 y 100 ,adjunto mi excel para un mayor entendimiento. Gracias de Antemano DATOS DE EXAMENES.rar

Buenas tardes, muchas gracias de antemano por la ayuda, ya que sin abrir tema ya me han ayudado mucho viendo los ejemplos en otros temas, solo que este problema no lo pude encontrar. el problema que presento es que necesito que se oculten y muestren filas de acurdo al número de la lista desplegable, el macro funciona bien a mi parecer, pero no logro que funcione al cambiar el número de filas de la lista ubicada en la casilla "D2", espero me puedan ayudar, muchas gracias... ejemplo introcucir filas.zip

Hola amigos, ando buscando una macro para cerrar un libro abierto pero oculto (Solo se ve el userform) después de un tiempo inactivo, encontré varios en la red pero solo funcionan cuando el libro esta visible. Anexo uno de ellos. cerrar automaticamente.xlsm

Estoy haciendo un formulario, y deseo que cuando yo de click en el boton agregar me copie los campos llenados y me genere un folio consecutivo al ultimo generado, pero realmente no se como poder hacerlo espero me puedan ayudar. ya adjunte mi archivo, acabro de hacer una macro que lo que hace es que copia todos los campos que yo llene y los pone en la hoja de "Base", pero el unico campo que me hace falta que genere y copie es el de folio, y no se como hacerlo. Ejemplo.xls

amigos de ayuda excel espero su aporte para resolver las deudas por cobrar de un negocio adjunto archivo para que se pueda entender mejo, de antemano muchas gracias por su ayuda... CONTROL DEUDAS.rar

Hola buenas tardes Gusto en saludarlos a tod@s Tengo la siguiente consulta a ver si me pueden ayudar, necesito una macro para generar archivo txt que me quede de la siguiente manera: "06","0601017","477505,00000000","0,00" "06","0601432","477505,00015784","0,50" "06","0601662","477505,00000000","0,00" "06","0601685","634499,73333333","0,00" Al inicio me coloque las comillas " luego los separadores sea "," y al final cerrar con las comillas Mi archivo de excel esta así A B C D 06 0601017 477505,00000000 0,00 06 0601432 477505,00015784 0,50 06 0601662 47750…

Buenos días; Me acaba de surgir un problema en la macro que estoy haciendo y por mas que lo he dado vueltas no he conseguido solucionarlo, a ver quién me puede echar una mano. Tengo varios datos que tengo que transformar en fecha los datos son como el siguiente " 18/04/13/ 0", primero reemplazo “/ 0” por nada y luego quito el espacio que tiene al principio, una vez realizado esos 2 pasos ya tiene el formato de fecha, si lo hago sin macro el Excel solo me pone “18/04/20132, pero si lo hago desde la macro se me queda así “18/04/13” y con el símbolo de error para que elija entre convertir en xx en 20xx o en xx en 19xx. Como podría hacerlo con una macro??. Muchas gracia…

Buenas Tardes Tengo un formulario, que contiene unos 10 textbox, para los cuales quiero configurar las siguientes propiedades Private Sub TextBox_Enter() TextBox4.BackColor = RGB(245, 245, 245) End Sub Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.BackColor = RGB(255, 255, 255) End Sub Quisiera saber si hay alguna forma de configurar esto para todos los textbox con un solo código, y no tener que hacerlo para cada textbox..

Buenas tardes, tengo un libro con pedidos( cada pedido es una hoja) todos exactamente igual con el mismo formato , y quiero llevar una relacion de estos pedidos ( para eso la macro) , esta hoja la llamo resumen y siempre es la ultima. he creado esta macro con ayuda, pero no me funciona. Me pone que no se puede ejecutar codigo en modo interrupcion. ¿ que es eso? Ademas solo me saca 5 registros Sub alfredo() Application.ScreenUpdating = False destino = ActiveSheet.Name primvac = 100 For Each pestaña In Worksheets If pestaña.Name = destino Then GoTo otra: pestaña.Activate pedido = Range("q3").Value fecha = Range("q4").Value cantidad = Range("p29").Value importe …

Buenas, necesito una macro que me permita abrir un cuadro de dialogo, seleccionar una carpeta y copiar todos los archivos que hay dentro a otro destino. Gracias de antemano Saludos!

Hice una macro en Excel 2007 que copia un rango de celdas, las pega y centra como metarchivo mejorado en una presentación de PowerPoint, esto lo repite varias veces y en varias presentaciones. Si ejecuto el código con F8 lo hace sin problemas, pero al momento de ejecutarlo con F5, me envía un error en la línea donde pega la selección, pero si depuro y presiono F8, sigue el código sin problemas, incluso si presiono F5 pega las tablas en todas las diapositivas. Ejecute el mismo código en Excel 2013, y se traba en la misma línea con el mensaje "se requiere un objeto", pero en esta ocasión no sigue el código incluso si depuro. En ambos casos aun con el error, siempre pega l…

Hola amigos, Estoy intentando que el color de fondo de un ToggleButton cambie de color según si está pulsado (verde) o no (rojo). He probado varios código que he encontrado en la red, pero no lo he conseguido. Además de eso se me produce un efecto no deseado con el contenido. Si pulso el botón en el formulario me muestra "Alta" y si no lo pulso muestra "Baja". Hasta ahí correcto, el problema es al grabar cambios, en la correspondiente columna de la hoja de cálculo guarda "VERDADERO" y "FALSO" y al volver a ejecutar el formulario me muestra precisamente eso, en lugar de "Alta" "Baja". Agradezco vuestro tiempo!! Trabajadores.xlsm

Hola buenas, tengo una plantilla que me gustaría imprimir con un nº a modo de contador, que por cada hoja que imprima vaya sumando uno y se guarde para la vez siguiente. ¿Cómo podría hacer esto? Lo único que se me ocurre es que ese contador aumente en uno justo antes de cerrar la hoja pero esto me limitaría la impresión a una hoja cada vez que abriera el archivo.... ¿alguna idea? Gracias de antemano a tod@s. Saludos.

buenas tardes amigos! En esta ocacion preciso de su ayuda para resolver esta macro. Tengo dudas respecto a como hacer una sumatoria por rangos... Tengo mi hoja con varias columnas, algunas vacias, algunas con informacion, me gustaria que buscara en la columna B y cada que encuentre un NA aplicar la sumatoria en esa fila y que sume el rango comprendido. Despues se vaya por cada NA y sume lo que esta en ese rango. Nunca tengo el mismo numero de columnas ni de filas, unicamente se delimitaran los datos por cada NA que encuetre. Anexo ejemplo para que quede un poco mas claro, de antemano muchas gracias por su tiempo y esfuerzo. Saludos Gerardo Sumatoria.xls

Hola a todos. Tengo un problema. Estoy intentando hacer un archivo en Excel donde a través de un cuadro de diálogo abro un archivo Excel y quiero importar esos datos a Access. Como estoy haciendo pruebas solo intento importar varios campos, pero no consigo hacerlo. Me da este error: El código que estoy intentando hacer funcionar es este, que no es obra mía, he encontrado en la Red y he intentado adaptarlo. Option Explicit ' Public Conn, Sql$, rs_AV, Rs2 As Object, Rst As Recordset ' Sub Conexión() ' On Error Resume Next: Rst.Close: rs_AV.Close: Rs2.Close: Conn.Close: On Error GoTo 0 Set Conn = CreateObject("adodb.Connection") Conn.Open "Provider=…

Hola amigos. El tema es el siguiente: Quiero pasar los datos de un formulario en un fichero Excel a un documento Word en un servidor. En el mismo formulario he creado un procedimiento de apertura del documento pero al pasar los datos del formulario al documento me sale "Error 438 en tiempo de ejecución, el objeto no admite esta propiedad o método". He implementado los objetos Word en Excel. Este procedimiento desde el mismo Word funciona pero desde Excel no. Todo va bien hasta que abre el documento y empieza a pasar los datos. Mi intención es que abra el documento, vuelque los datos del formulario, imprima y cierre el formulario sin guardar. De todas formas el docu…

Tengo el error 13 en tiempo de ejecución no coinciden los tipos La verdad no se como puedo solucionarlo estoy apenas aprendiendo la programación VBA si alguien pudiera por favor se lo agradeceré mucho.

Buenos dias tengo 200 archivos con extencion xlsm y necesito pasar cada uno a formato csv esto lo estoy haciendo manualmente con cada archivo desde la barra de herramientas de excel asi archivo guardar como csv, por lo tanto me demanda mucho hacerlo entonces lo ideal seria una macro que se ejecute en los 200 libros abiertos me convierta todo a formato csv, pongo los dos formatos el original xlsm y el csv como debe de quedar ya qye he probado varias macros que estan en la web pero me desordena la estructura del encabezado entonces pido por favor su ayuda de alguien que sepa de esto. gracias Archi.rar

Amigos, la siguiente macro se ejecuta perfectamente, pero al terminar de ejecutarse aparece Error 13 "No coinciden los tipos", no he podido encontrar la solución. Alguien me puede ayudar? (Ya probé instalando el Hotfix KB983246). Saludos......................................................................................................................................................................Sub Tramos() 'Borrar Datos Anteriores '**************************************************** Range("L4:M175").Select Selection.ClearContents Range("L4").Select '**************************************************** Dim m, j As Double Dim p, n, u, r, t, k, w…