Hola Amigos del Foro, estoy realizando una macro para comprimir "N" numeros de archivos no se si me puedan orientar de como puedo incorporar dentro de la macro un codigo que pueda inlcuir una contraseña al archivo .ZIP para que cuando abra la carpeta compartida me pida el password. espero me puedan orientar gracias y saludos!!

Hola, yo tengo un archivo que cuando se cierra se guarda automaticamente en una carpeta con el nombre NUEVO, me gustaría saber como se puede hacer para que antes de guardarse en esa carpeta compruebe si existe un archivo con ese nombre y entonces se guarde con el nombre NUEVO2. Muchas gracias.

Hola! amigos del foro quisiera consultar si hay alguna forma en que se pueda validar el usuario que ha abierto en libro, pero no en un evento Workbook_Open, mas bien cuando ya el libro se encuentre abierto esta comprobación se realice en la hoja activa. Lo que busco lograr es si el usuario definido en el código no es el mismo que ha abierto el libro, genere el procedimiento de cerrar el libro activo sin guardar los cambios. Agradezco cualquier ayuda o comentario. Saludos Historial Smart_IntelligenceTools.xlsm

Buenas tardes, estoy intentando completar una macro sencilla, para en función del grupo al que pertenezca el trabajador le asigne unas libranzas u otras. Como domino poco el tema de macros, he usado la opción de copiar un rango en una fila preestablecido, en función al tipo de libranzas asignado y lo copie en la fila del trabajador buscado. El problema me surge cuando pretendo que compruebe que las fechas de inicio y fin de contrato están comprendidas dentro del mes de la hoja correspondiente o que si solo trabaja parcialmente en ese mes, copie solo el periodo de trabajo. he intentado crear varios bucles for next sin éxito y también lo he intentado con la función offs…

Comprobar números en un textbox mediante macro Hola a todos, Mi pregunta es la siguiente. ¿Cómo puede verificarse que en un textbox sólo haya números, de cualquier tipo: enteros, decimales, etc? Por ejemplo: -Bien: 100; -50; 50,5 -Mal: "100 "; --50; 50.5; H Cuando pongo esto para comprobar si en el textbox2 hay un número o no: If [U][B]IsNumeric(CDec(textbox2))[/B][/U] = False Then Msgbox "Error"[/CODE] Me da error de VB (el de programa, de Finalizar o Depurar, el "no coinciden los tipos") cuando por ejemplo pongo una letra (simulando "un error al introducir un número"), y no puedo llegar al Then. Pongo anidado el CDec porque si pongo una coma "," para escribi…

hola a todos, Primero que todo espero que se encuentren muy bien, bueno yendo al grano necesito ayuda en este pequeño problema, tengo un Combobox y en este se puede escribir, puede escribirse independiente de los valores que esté tenga en la lista. Ya logre controlar si el Combobox se deja vació, ahora necesito controlar este pequeño error. les pongo el código que use para controlar si se deja vació, así me entienden mejor xD Nota: CbbMes (ComboBox) if CbbMes.Value = "" then Msg "Debe seleccionar un mes", vbCritical, "Error" CbbMes.SetFocus Exit Sub End if

Hola, mi nombre es Santiago y soy nuevo en el foro. Quisiera por favor pedir ayuda con este tema que me tiene muy trabado: Tengo una lista de nombres de nombres de cuentas de usuarios de un sitio web. Por ejemplo: mica_99 o Zeta_Florchu o CARP_12Mauro Paralelamente, yo mismo creé una lista de 1030 nombres y sobrenombres de mujer (columna B de Excel). Ejemplo: Maria o Florencia o Florchu o Micaela o Mica Lo que quiero hacer identificar si cada una de las celdas de la columna A contiene dentro de sí alguno de los valores presentes en la columna B (es decir, en un rango de valores). Pensé en lo siguiente: =SI(ESNUMERO(ENCONTRAR(B1;A1));"Correcto"; "Incorrecto") Esa f…

Hola Amigos de AE. Estoy usando APPLICATION.QUIT para cerrar un archivo pero se cierran todos los archivos excel que estén abiertos. Cual comando puedo sustituir la acción y que no cierre los demás archivos abiertos. Gracias

Buenos días, ¿Alguien sabría decirme porque al poner una / en una celda evita que corra la macro ? Al rellenar la columna B con una dirección cualquiera, crea una pestaña con el nombre de la celda. Por ejemplo calle San Juan, pero si pongo c/ San Juan no crea la pestaña Gracias de antemano. PD: Este archivo lo estoy construyendo con la ayuda de este foro Gracias! Un saludo Estado Certificaciones y Anexos FORO.xlsm

Buenas tardes, necesitaría terminar una macro que al guardarla, me añadiese al nombre la fecha del día : en vez de = Factura.xls Seria así = Factura"=HOY()".xls O así = Factura"Fecha actual".xls Un saludo

Saludos a todos, tengo un problema y no se como solucionarlo. Expongo el tema: en un libro tengo varias columnas variables (columnas A-C-D-E), donde en la columna A esta la descripcion del producto, C la referencia, D las unidades y E las medidas a cortar. Necesito crear una macro la cual, al encontrar los mismos valores en la columna E y en la columna C, me sume la columna E, y, además me unifique el resto de columnas. El problema es que los valores de todas las columnas son todas variables. Lo siento si es que no me he sabido expresar bien, adjunto un excel para ver cual es el problema que expongo y como deberia quedar. Ante todo gracias y saludos. Libro1.xls

Hola, Según cantidad introducida en una celda de la hoja1 por ejemplo en A1 el valor de 5256 Tiene que revisar una tabla que esta en hoja2 con los siguientes valores: A B 4000 120 4500 135 5000 150 5500 165 Y devolverme en la hoja1 en B1 la cantidad que corresponda a 5000 en la columna B.

En mi libro (cuadro de necesidades), Tengo varias hojas (Regidores, Imagen, OCI, Secret., Archivo, Partic. Ciudadana, etc, etc,), las cuales se suman o se consolidan, todas estas, en una hoja resumen llanada Consol.Mi gran problema es cuando hay la necesidad de ingresar items nuevos (Otros) en cualquiera de estas hojas, estos items nuevos tienen que agregarse en todas las hojas y también todas las hojas deben ordenar estos items alfabéticamente, para que al final salga igual mi resumen o consolidado.Necesito una macro que me simplifique esta tarea.Tener en cuenta que hay mas de 40 hojas que por razones de espacio las he recortado y tener en cuenta también que hay diferent…

Buenas tardes a todos, reciban un cordial saludo, quería solicitar su ayuda para saber si es posible lograr del archivo adjunto que por factura los conceptos de las columnas Descripcion_ELEMENTO-Descripcion_glosa glosa-Codigo se contatenen y elimine los conceptos repetidos dejando solo un numero de factura con los conceptos unidos sin repetición, se tiene en cuenta que el número de filas por facturas no es igual. Mil gracias por su colaboración ejemplo.xls

Buenas tardes a todos, reciban un cordial saludo, quería solicitar su ayuda para saber si es posible lograr del archivo adjunto que por factura los conceptos de las columnas Descripcion_ELEMENTO-Descripcion_glosa glosa-Codigo se contatenen y elimine los conceptos repetidos dejando solo un numero de factura con los conceptos unidos sin repetición, se tiene en cuenta que el número de filas por facturas no es igual. Es posible que una macro realice esta tarea ejemplo.xls

Buenas tardes a todos. A través de la fórmula "Imagen" he conseguido insertar logos partiendo de un enlace de la imagen. Sin embargo, me gustaría concatenar los mencionados logos estando fijos en la celda, es decir, sin que pueda manipularlos como cuando inserto una imagen normal. Lo he intentado con la función "Concatenar" e "Y" pero no consigo dar con ello puesto que creo que no es posible. Por ello creo que solo a través de una macro podría llegar a hacerlo. ¿Podrían ayudarme? Muchas gracias de antemano PD: adjunto un archivo para que se entienda Concatenar logos.xlsx

Hola, buenas tardes me podrian ayudar con este proyecto. adjunto ejemplo Lo que necesito es que tengo en una base, datos concatenados en un hoja de excel y he logrado separarlo con split a unos textbox pero ahora me surgio la idea de ponerlos directamente en un listbox sin separarlos previamente. sera que me podria ayudar con el codigo. Salu2 Ejemplo Listbox concatenado.xls

Hola a todos: ¿como podría concatenar la columna C y D de la siguiente macro de la cual su autor es Antoni, y que me la pegue en la hoja2 columna D? Muchas gracias por su tiempo y su apoyo. Bendiciones. Sub Copiar() Application.ScreenUpdating = False Set H1 = Sheets("ORIGEN") Set H2 = Sheets("DESTINO") H2.Range("A1:Z50000").ClearContents H2.Range("A1:Z50000").ClearFormats fila = H2.Range("A" & Rows.Count).End(xlUp).Row '+ 1 'Range("A" & fila) = "Albaranes" fila = fila '+ 1 ufila = H1.Range("A" & Rows.Count).End(xlUp).Row H1.Range("B1:B" & ufila).Copy: H2.Range("A" & fila).PasteSpecial 'xlValues …

Buenas Tardes:Soy nueva en esto de las macros. quisiera que me ayudaran para crear una macro donde me concatene 3 columnas A B C D E F 43020963 43146540 23/05/2012 VACIO 1 492114960Lo que quiero es concatenar primero B2&A2&F2 y el resultado lo ponga en la columna D donde esta vacia esa columna Espero me puedan ayudar .Gracias.

Buenas noches a todos.. Tengo 3 columnas (C,D,E) con datos de correos electrónicos, los quiero unir en un sola columna (F). Para ello, utilizo la función concatenar, y los separo mediante el punto y coma Pero cuando una celda está vacía, al concatenar me pone el punto y coma.. Y como se puede ver en la columna "F", aparece al principio los puntos y comas, y cuando la columna D, no tiene datos, me aparecen en medio de los datos de las columnas C y E. Alguien me podría indicar como crear una macro para que se juntaran los datos, y cuando la celda está vacía, no incluya el separador punto y coma. Gracias a tod@s.. Feliz Año 2022.. Concatenar Em…

Buenas tardes, Quería saber cómo puedo realizar la siguiente tarea: Tengo un archivo plano que se encuentra delimitado por comas el cual contiene los campos número de factura, numero de paquete y descripción los numero de factura se encuentran repetidos pero en la descripción es distinta como se hace para que se concatene las descripciones de cada factura dejando solo un numero de factura y las descripciones en una sola celda Le agradezco por la colaboración ya que no he podido hacerlo con fórmulas Adjunto el archivo de ejemplo BASE EJEMPLO.TXT

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 …

hola a todos. hace días encontré en otro foro una programación vba para concatenar una selección multiple. la verdad que no funcionaba,pero toqueteando un poco y sin saber como funciono. en la misma web salía otra programación que hacia lo mismo pero sin repetir valores, pero esa tampoco funciona y no se donde esta el fallo o como solucionarlo. podríais ayudarme? os pego el código que venia. Espero hacerlo bien que acabo de llegar a este foro y no se si sabre envolver como lo pedís en las normas. la idea es que me salga el archivo como en el excell que adjunto. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = “” i = 1 For Ea…

Columna A Colum B Columna C Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 4) Efectivo y Equivalentes de efectivo (Nota 4) en la barra de fórmulas la columna B se refleja asi: Columna A Colum B Columna C Efectivo y Equivalentes de efectivo ="(Nota"&d2&")") Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo="(Nota"&E30&")") Efectivo y Equivalentes de efectivo (Nota 4) Hola A todos, como se observa en la …

Hola a todos tengo un problemilla tengo una lista con una serie de datos, mi pregunta es la siguiente: habria alguna macro capaz de leer en la columna Ahasta donde ponga TOTAL PROVEEDOR y concatenar los datos de la columna n? Gracias a todos por vuestro tiempo y la labor de aprendizaje un saludo 01-Prueba.xls