Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm

Hola a todos: Cada día y cada vez con mas asiduidad, archivos de consultantes me dan este error al abrirlos: Al pulsar Abrir muestra lo siguiente: ¿ Le pasa a alguien mas ? ¿ Tiene algo que ver con el SO de 64 bits ? ¿ Hay alguna forma de evitarlo ? Saludos .

El usuario Antoni, me creo una macro el año pasado que funcionaba para generar las dos columnas (código y precio) de todo el libro. intento configurar para este nuevo libro, y no logro que funcione. Aclaro que funciono con los tres libros anteriores a este ultimo. El libro original tiene 17 hojas, adjunto una muestra de 5 Hojas. Espero su ayuda! Gracias Lista100.xls

Saludos amigos espero estén bien En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click() If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1 Else Hoja58.Range("B5").Value = 1 End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else Hoja59.Range("B5").Value = 1 End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en l…

Buenas tardes Lo que necesito es crear un macro que copie un rango si coincide con año y mes (solo es necesario que coincida una vez con la celda a2), el rango es de f2:h4460 ya que tengo mas de 10,000 :nightmare: archivos divididos en categorías y necesito jalarlos a otro, un libro por cada categoría seria aplicar el macro 140 veces y necesito pegarla en un archivo llamado carta, cada vez que aplique el macro sera en un archivo llamado carta pero con diferente ruta, y sera pegado en el rango a15:c758 (el rango que necesito copiar tiene un filtro que hace que coincida exactamente con a15:c758). De antemano muchas gracias. acapo e11.zip

Hola amigos de Ayuda Excel Quería preguntarle si hay alguna instrucción en VBA que evite la copia de determinadas columnas. Aún estando una hoja protegida me dí cuenta que se puede copiar columnas (estando ocultas) en otra hoja, claro las que tienen formulas pega solo valor. Pero es posible hacerlo??? Gracias

Estimados amigos de la comunidad, para solicitarles su apoyo referente al asunto: La pregunta es que cada vez que hago una consulta siempre queda registrado en la cadena de conexión la ruta del libro fuente incluyendo el directorio, sin embargo cuando cambio de directorio al libro fuente y ejecuto nuevamente la consulta en el libro destino envía un mensaje : "El motor de la base de datos no puede encontrar el objeto... asegúrese del que el objeto exista... Espero me pueda ayudar Libro1.zip

(Solucionado)Copiar Filas en Respectiva Hoja Hola a todos , les escribo porque hace un tiempo que estoy buscando solucion a mi problema y no encuentro como solucionarlo. Estoy haciendo una planilla de Gastos y quiero q copie en otra Hoja de calculo toda la fila para sacar el total de "x" apartado. Ejemplo. Tenngo varios grupos . Uno de ellos es Cigarrillos , quiero que la fila cigarrilos se copie en la Hoja cigarrillo. Adjunto la planilla excel. Y a ver si alguno con mas conocimiento puede darme un poco mas de luz en este tema. Saludos y Gracias Jon julio.rar

Buen dia Tengo un archivo de excel que se genera con un atabla dinamica lo que pretendo con el siguiente codigo es enviar el libro activo pero como valores, solo que no lo consigo por que me marca un Error: Error en el metodo"SaveAS" de objeto_"Workbook" Sub WorksheetLoop2() Dim Current As Worksheet For Each Current In Worksheets Dim attBook$ attBook = Environ("temp") & "\" & Current.[A4].Value & ".xlsx" Current.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False…

Hola Quisiera de su apoyo!! Resulta que tengo un filtr que busca entre fechas eso lo tengo pero quisiera agregar mas criterios para la filtracion los criterios se sacarian de la columna F que son nombres para luego copiarlos en la hoja2.. Ej Presiono el boton que esta en la hoja1 aparece el userform y selecciono fechas en los dos combobox ese filtro deja los datos en la hoja2 pero me gustaria agregar mas criterios para el filtro que aparte de la fecha sea tambien con la columna F de la hoja1 .. Busco las fechas y solo me filtre los que sean con nombre Hola1 y hola2 de la columna F de la hoja1... Por favor gracias Agregar criterios de busqueda.zip

Hola, que tal, de nuevo con ustedes por que tengo un problema que no puedo resolver, he modificado codigos pero no doy con la tela, tengo la aplicacion de planing, donde sale la ocupacion, el problema es que no consigo cambiar el color del boton segun su condicion, ocupada, libre o reservada, y otro problema es que cuando pulso encima del boton, queria llenar los textbox con la informacion, para poder modificarla, les agradeceria la ayuda. Espero haberme explicado bien, , un saludo Planing

Hola que tal quiera ver si em podrian decir como el hago toye n proyecto y quiero poner un boton que al precionarlo me muetre los libros en otra ventana se los agradeciria mucho si me ayudaran cone ste pequeño problema

hola, amigo encontre este archivo Bookmake, y me parece perfecto, pero necesito que de una hoja me realice 5 copias con las siguientes modificaciones; nombres y cambio a quien va dirigida la hoja anexo el archivo, espero que me puedan ayudar gracias Cinco Copias Choxis.rar

si me pueden ayudar por favor tengo el siguiente problema al aplicar esta formula: SI(Y(AK1>AJ1;AK1=SALIDA!I1);SALIDA!$G$5;FALSO) SI(AK2<>FALSO;SALIDA!$B$5;FALSO) SI(AK3<>FALSO;SALIDA!$B$3;FALSO) SI(NOMXXI<>FALSO;SI.ERROR(BUSCARV(COLXXI;SALIDA!$A$8:$I$27;9;0);"");"") si me busca lo que kiero y todo pero nomxxi depende de otras celdas y todo se hecha a perder cuando en mi hoja cambio el valor de SALIDA!I1 todo se me vuelve y los valores que había buscado con buscarv se me borran y se pasan a la siguiente columna que tiene las mismas formulas hay alguna forma de que los busque ahi me lo deje aunque lo demaqs se vuelva falso Dirección de correo: …

tengo el siguiente problema quiero migrar una macro que tengo en 2003 a 2007, esta macro me busca un archivo pdf de acuerdo a los parametros que le paso, pero no encuentro la forma de hacerlo funcional en 2007 mi codigo es el siguiente la parte que esta en negrita es la que no me funciona en la version 2007 Sub Buscar_POs_PDF() A = 1 B = 1 Path_PDFs = UserForm1.TextBox2.Text & "\" FechaPDF = UserForm1.TextBox3.Value Campo_Fecha = Format(FechaPDF, "dd/mm/yyyy") Windows("Plantilla2.xls").Activate final = Cells(65536, "A").End(xlUp).Row Vector_Exclusion( = "" Vector_PDF(A) = "" Cells(2, 5).Select For i = 2 To final UserForm1.Label9.Caption = "PO: " & Ac…

buenas tardes saludos Expertos, queria comentarles que estaba creando un codigo en el cual despues de una cantidad de datos (revisando que sea un producto y de ahi vaya a otra columna y ponga su nombre ) llega a un numero y busque el nombre de otro vendedor y continue haciendo lo mismo, pero da la casualidad que estaba creando el codigo de acuerdo a la base de datos, pero realmente si la distribucion de nombres seria distinta (x lo que se aprecia es orden alfabetico, pero si cambia) mi codigo genera error podrian ayudarme adjunto archivo no puedo mostrar el código porque es muy grande. gracias Saludos Brian ayudaDatos.zip

Buscar entre las columnas "B" hasta la columna "H" la fecha mas reciente de modificacion de cada fila y poner la fecha mas reciente en la columna "I" con campo FUM.... ESTO POR CADA FILA y que en automatico cada que pego todas las filas con las fechas ...se peguen en la columna "I"... las mas recientes.... no se si sea con una formula solemente o como... por favor ayuda. LES DEJO EL ARCHIVO DONDE ESPECIFIQUE OJALA PUEDAN AYUDARME

Buenos días, necesito con una macro poder comparar dos hojas, extraer un dato y a la vez poder convertir en porcentaje una columna. Adjunto ejemplo. Gracias. Ejemplo.xlsx

buenas tardes expertos mi libro tiene un problema al ejecutar el codigo ordenarhoja2 me pasa los datos de la hoja 2 a la hoja 3 ordenadamente , hasta ahi esta bien y entiendo que en la hoja 2 hay varios numeros repetidos al pasarlo a la hoja 3 desaparecen pero ejecuto el codigo eliminar repetidos en la hoja 2 observo en la barra de excel de abajo que el recuento es diferente la cantidad entre las dos hojas a que se debe ese error ? Libro10.xlsm

Hola, que tal soy nuevo en esta comunidad, de la cual he tomado muchos ejemplos para algunos trabajos, bueno, lo que me trae por aca es, el filtrado de datos para una base de resguardos, solo que filtro, pero no he encontrado como hacer para que tome solo un dato de los que se encuentren repetidos, anexo archivo para un mejor entendimiento. Resguardo.zip

Buenas, Antes de nada, no tengo ni idea de programar macros. Las pocas que uso han sido copiadas googleando y personalizándolas para mis libros de forma básica. Os planteo mi cuestión: necesito una macro que me copie en una sola hoja un rango de celdas (desde columnas B a P y filas desde 21 hasta la última cubierta) de todos los Excel de una carpeta (son todos iguales y parten de una plantilla, pero cada uno es cubierto por una persona distinta). Googleando y customizándola un poco he llegado a la siguiente: Sub ImportDataAgent() Dim SummarySheet As Worksheet Dim FolderPath As String Dim NRow As Long Dim FileName As String Dim WorkBk As Workbook Dim SourceRange A…

Buenas a todos. Hace más de un año ya estoy trabajando con la base de datos que gracias a vuestra ayuda creamos (básicamente la creasteis vosotros). Básicamente es una base de datos de control de stock. Donde se registra las salidas y entradas de material y donde queda registrado cada movimiento. Ahora necesitaría añadir a la base de datos el concepto "Precio". Y que cada movimiento que se genere, al lado de "material" aparezca su precio. Espero me podáis ayudar. Un saludo y muchísimas gracias a todos. INVENTARIO ALMACEN 2012-2.xls

Hola a todos, en esta macro que adjunto os muestro tres maneras de cambiar la imagen de un botón o label en tiempo de ejecución de manera muy sencilla,. Decir que a veces es un poco difícil encontrar el icono requerido. Saludos a todos. MBoton(ConBuscador).xlsm

Buenas, me gustaría que me ayudarais a hacer una macro, si alguien tiene tiempo claro. Yo creo que es una macro sencilla, pero por mas que lo intento no lo consigo. Lo primero que necesito es que busque los datos de las columna A de Hoja1 en la columna C de la Hoja2 y si son iguales copie el valor correspondiente de columna M de Hoja2 en la columna escogida. Para escoger la columna donde pegar, un menú desplegable con la selección de los meses. Una vez escogido el mes, se pulsa un botón (TICKET) y se realiza la búsqueda y pegado. Luego necesito un cuadro de texto donde introduzcas una medida de la columna A, y dando al botón COLOR se ponga de un color, dependiendo del m…

Saludos de antemano pido ayuda con esto porque debo entregarlo mañana a mi jefe tengo en una hoja de excel la funcion sumproduct ASI: =SUMAPRODUCTO(--($C$5:$C$9=1);--($B$5:$B$9="a")) lo cual lo que me hace es: si para un rango de filas me encuentra el texto "a" y en esa misma fila pero en otra columna me encuentra el "1" entonces me cuenta cuentas veces se repite ese evento de repeticion ahora debo automatizar esto permitiendo que yo elija el rango de seleccion (o comparacion) que para el ejemplo que hice va hasta la fila 9(por ejemplo) guardado en una variable(rango9 para este ejemplo)pero no logro hacer la macro me reconozca dicha variable como deseo, arrojandome …