Hola buenas. En lo que estoy buscando una Macro Para 10 números (del 0 al 9) Tamaño 5 y todo lo que encuentro tanto combinaciones como permutaciones al ejecutarlas no da lo que pretendo, lo más aproximado es una Macro de Permutaciones con 2.002 filas y otra del tope de la hoja Excel y más…. Como ejemplo en el resultado que dé tiene que estar como ejemplo 1º NUMERO 2º NUMERO 3º NUMERO 4º NUMERO 5º NUMERO 0 6 2 0 …

Saludos Amigos Encontré este código que según debía eliminar cualquier archivo de Excel sin que el mismo pudiera volver a ser utilizado o quedara en la papelera sin embargo al ejecutarlo ciertamente aparece el MsgBox e inhabilita el archivo para su uso sin embargo no lo elimina de donde este archivado no se si es que la versión en la que programaron ese código sea mucho mas antigua que la mía, de igual modo me interesaría saber si este mismo codigo puede ser usado para Macros en Word mucho les sabre lo que me puedan colaborar Option Explicit Private Sub Workbook_Open() Call Module1.AlAbrirLibro Dim exdate As Date exdate = "30/04/3100" …

SALUDOS AMIGOS SE POCO DE PROGRAMACION Y QUISIERA QUE ME AYUDEN CON ESTE PEQUEÑO PROBLEMA QUE TENGO: TENGO DOS CELDAS D15 Y E15 EN LAS CUALES NO PUEDEN REPETIRSE EL VALOR 0 SIMULTANEAMENTE EN AMBAS CELDAS ADICIOANLEMENTE INDISTINTAMENTE DEL VALOR DE LA CELDA D15 LA CELDA E15 NO PUEDE CONTENER VALORES ≥12 CONCRETAMENTE REQUIERO QUE CUANDO EN LAS CELDAS D15 Y E15 CONTENGAN EL VALOR 0 SIMULTANEMAMENTE APAREZCA UN MSGBOX QUE INDIQUE "DATOS DUPLICADOS: LAS CELDAS AÑO Y MES DE LA ANTIGUEDAD EN EL PUESTO NO PUEDEN CONTENER VALORES IGUALES A CERO DE MANERA SIMULTANEA" DE MANERA ALTERNA CUANDO LA CELDA E15 CONTENGA VALORES ≥12 APAREZCA UN MSGBOX QUE INDIQUE "LA CELDA ME…

Hola buenas tardes: Tengo un archivo que he adaptado para buscar archivos dentro de una carpeta y subcarpeta poniendo en una celda parte del nombre del archivo y la ruta donde buscar. El archivo encontrado lo muestro en la celda 5 de la columna D. Pero me gustaría agregar a lo siguiente: Que me muestre todas las coincidencias que encuentre con parte de ese nombre. no importando la extensión ni carpeta o subcarpeta en la que se encuentre. Para así poder seleccionar el que me interese. Muchas gracias Mariano Pba. busca arch partenombre en CarpetaySub.xlsm

Buen dia, tengo una macro que funcionaba bien pero hoy me esta dando este error 1004, en la orden de cargar una fila para despues copiar y pegar datos me tira error. (en rojo con carita) No entiendo lo que busque esta todo ok, que podria ser alguna ayuda🤔🤔🤔🤔?? Sub REGISTRAR3() ' ' REGISTRAR3 Macro ' Application.ScreenUpdating = False Sheets("REGISTRO").Select 'Desbloquea hoja ActiveSheet.Unprotect Password:="TANGO" 'Revisa las celdas existe = False For Each C In Range("C6:C10") If C.Value = "" Then celdas = celdas & " " & C.Address(False, False) existe = True End If Next…

Tengo una problema, he creado un formulario de una tabla de mas de 10 columnas, y he creado un listbox para buscar, el codigo que adjunto ( busca correctamente), pero cuando pincho encima de del listbox, no trae correctamente los datos a los cuadros de texto del formulario, ¿alguien me puede ayudar? NUMERODEDATOS = Hoja7.Range("B" & Rows.Count).End(xlUp).Row LISTA = Clear LISTA.RowSource = Clear y = 0 For FILA = 4 To NUMERODEDATOS nombre = Hoja7.Cells(FILA, 83).Value If UCase(nombre) Like "*" & UCase(Me.txt_buscar_cliente.Value) & "*" Then …

Buenos días colegas. Espero se encuentren con excelente salud. Hace quizás un par de días consultaba sobre la eliminación de caracteres "extraños" en un archivo y los profesores JSD y Antoni me dieron soluciones maravillosas, pero necesito otra ayuda de ustedes. He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado. Agradecido c…

Hola espero que se encuentren bien, necesito ayuda para cambiar la condición de "Pendiente" a "Pagado" las selecciones dentro del listbox pago (Liquidaciones a Pagar) en la columna 13 de la hoja "Registros" cuando se presiona el boton pagar. Muchas gracias. Compra para subir - Pagado.xlsm

Hola, tengo una carpeta que se llama TRABAJO, ahí tengo muchos archivos que debo ejecutar la macros que ya me ayudaron, una que elimina a los reperidos de una fila dejando solo uno y manteniendo el resto. pero como son muchos archivos me demoro mucho en hacerlo uno por por uno, entonces mi pregunta es cómo puedo hacer para que esa macros se ejecute en todos los archivos de esa carpeta sin yo abrirlos y que se guarde automáticamente. gracias Muestra - AYUDA EXCEL.xlsm

Hola a tod@os, Estoy con un proyecto para mi trabajo, se trata de una plantilla que relleno con una serie de datos, ya he creado los botones de : guardar: Crea un clon en una hoja nueva con el nombre de serie que se ha especificado, a la vez genera una fila en una tabla con parte de la información que se introduce, (precio, fecha, serie, cliente..) limpiar: Limpia los datos para una nueva inserción imprimir: imprime la plantilla con los datos pdf: crea un pdf de la plantilla con los datos y el nombre de la serie eliminar: elimina el clon de hoja y la fila correspondiente en la tabla modificar: Aquí estoy estancado, he creado una s…

Amigos de Excel 365 Disculpen el título, pero no se me ocurrió otro. El caso es que si grabo una macro, la ejecución se hace en las mismas celdas en las que recibió la instrucción, No puedo ejecutar la instrucción en otro rango. El punto es que necesito: 1 - Que primero que al seleccionar una celda, ponga el formato Negrita 2 - Que en esa misma celda haga una Autosuma (en sentido de columna) con las cifras contiguas, lo normalmente hace la Autosuma, que no sigue si encuentra una celda vacía. En el adjunto, lo que hecho está, se hizo manual. Otra cosa, mi Excel es 365 y está en la nube con One Drive y así no me aparece en la cinta de opciones "Pro…

horarioexel24.xlsmbuenos dias. tengo una hoja de calculo con una columna con las fechas de todo el año. La intencion es que al abrirla busque la fecha del dia y quede activa y visible. agradeceria un poco de luz sobre este tema ya que soy incapaz de encontrar referencias a esto. un saludo y gracias

Buenos días colegas. Espero se encuentren con buena salud. Tengo un par de preguntas a ustedes para ver en qué me pueden ayudar. Yo tengo en mi PC del trabajo instalado Office 2016, pero no tengo la opción de convertir o importar archivos PDF, mi pregunta, existe algunamanera que pueda tener en esta versión esa opción. La otra; yo obtuve un reporte de una aplicación de terceros que necesito tener, pero tiene al final de cada celda un caracter que necesito quitar, para despues convertir los numeros que están en formatos de texto a numero. Mi pregunta, existe alguna macro que me elimine este o cualquier otro caracter. Gracias a todos de antemano. …

Hola a todos. Estoy creando un buscador de datos que se encargue de extraer todas las filas que coincidan con determinada clave de identificación. Las claves tienen tres estructuras diferentes con dos dígitos (00), 5 dígitos (00000) y 9 dígitos (000000000) que corresponden a identificadores geográficos. El archivo tiene dos pestañas, una con los datos y la otra con el buscador. El tipo de búsqueda depende de la elección del usuario, que es a nivel estado (00), municipio (00000) o localidad (000000000). Con el código que llevo hasta ahora, al buscar a nivel estado (columna G) o municipio (columna J), me devuelve los resultados en la hoja del buscador, pero también m…

Hola compañeros, quisiera que me ayuden con una macro que permita "guardar como" utilizando como nombre del archivo el contenido de una celda y que me permita escoger en que carpeta la quiero guardar. Agradezco su colaboración.

Hola, quería hacer una pregunta que creo que es sencilla en poder hacerse o no, pero no tengo conocimientos para saberlo. Tengo varias hojas (pongamos para el ejemplo solo Hoja1, Hoja2) y un mismo botón (btn_activar) en cada una de ellas. Quiero crear en un módulo una función que al pulsar el botón, hace una serie de acciones (el hacerlo en el módulo es para no repetir todo el código en cada una de las hojas y posteriores modificaciones). Para llamarlo desde el módulo, si pongo por ejemplo: Hoja1.btn_activar.ForeColor = RGB(0, 0, 0) [funciona correctamente] Pero si le paso el nombre de la hoja (porque variará en función de donde pulse el botón…

Hola buenas, Me ha surgido la duda y no he encontrado ningún tema al respecto, Se puede introducir código VBA para cualquier evento de hoja, por ejemplo el changes, para una hoja que no existe? Es decir, imaginaros que tengo una única hoja en el libro simulando la portada (Hoja 1), y en ella un botón para que a través de VBA, se origine una hoja nueva (Hoja 2) en la que haya una serie de datos. Hay alguna manera de poder programar para que en esa hoja nueva (Hoja 2), se desarrollé código? Que salte el código por ejemplo con el evento Changes? Un saludo y muchas gracias de antemano.

Buenos días, espero alguien pueda ayudarme, estoy perdido en esto. Tengo una tabla con 9 columnas y 200 filas. En la columna A, que es la numero 1 hay un código de informe. En la columna I, que es la numero 9, se pueden ver los siguientes elementos: UNV, AVP, UDV, PLV. Cada uno de estos conjuntos de tres letras son una Unidad de Negocio a las que reporta cada informe. El problema surge cuando un informe de la columna A reporta a más de una Unidad de Negocio, como sucede en la fila 12, por ejemplo. Necesito que en todas las celdas de la columna 9 haya solamente una Unidad de Negocio: UNV, AVP, UDV, PLV. Para ello necesito q…

Buenos días. Quiero crear una macro en la que me descargue las urls de mi columna A, con el nombre de mi columna B, a la ruta de la columna C. La descarga de la url me gustaría que fuera con estilo, imágenes, etc., es decir, como cuando das al botón derecho y clicas en "Guardar página web". Tengo esta macro, pero no descarga las urls con estilo. ¿Pueden ayudarme, en qué me equivoco? Muchas gracias Descargar urls.xlsm

Hola a todos, Existe alguna forma o código para reconocer el "#N/A" en una Macro? Gracias,

Hola buenas tardes: Necesito ingresar una formula en la columna C solo si una celda celda anterior tiene valor Columna B. Mi formula es (=SI.ERROR(EXTRAE(B3,ENCONTRAR("*",SUSTITUIR(B3,"\","*",LARGO(B3)-LARGO(SUSTITUIR(B3,"\",""))))+1,LARGO(B3)),"") Espero me puedan ayudar. Gracias Insertar formula si.xlsm

HOLA!! TENGO UN PROBLEMA CON UNA MACRO. ES LA SIGUIENTE: (lo que tengo que hacer es que me corra la macro simulaventasdia todas las veces que sean necesarias hasta que i3 y i4 sean iguales. Y luego que en la celda I15 me escriba la cantidad de veces que se simulo hasta llegar a eso. Sub hastaMismaPosicion() Dim c As Integer c = 0 Range("I4").Value = -1 While Range("I3").Value <> Range("I4").Value Call simulaVentasDia c = c + 1 Wend Range("I15").Value = c End Sub ---------------------------------------- EL PROBLEMA QUE TENGO ES QUE CUANDO LA CORRO, ME IGUALA …

Buenas a todos, Necesito ayuda para una macro que no tengo forma de hacerla. Tengo una tabla con 5 columnas, sus encabezados se llaman “A”, “B”, “C”, “D” y “E”. Busco datos en las columnas A B C y D, y cuando coincidan me den el dato que hay en la celda correspondiente de la columna E. Muchas gracias de antemano.

Hola a todos, me gustaría saber si es posible mediante VBA , rellenar una campo imagen editable de un archivo PDF. Consigo rellenar los de tipo texto y los desplegables sin problemas, pero no puedo rellenar las imágenes desde una ruta o desde un Control Image, las rutas de las imágenes están en las celdas, C53 y B75. Sub ImprimirPDFeditable() Dim celdas() As Variant Dim i As Integer Dim nombrePDF As String, rutaPDF As String Dim HojaDatos As Worksheet, ParteTrabajo As Worksheet Dim Tabla As ListObject Application.ScreenUpdating = False Set HojaDatos = ThisWorkbook.Sheets("Registro") Set ParteTrabajo…

Hola, saludos a todos os comento lo que quiero conseguir usando una macro. Tengo un excel con varias hojas pero he sacado las dos con las que tengo que trabajar, en la hoja "Rutado Cables" se va añadiendo información y en la hoja "Formato Llenado" se saca un resumen. En la hoja "Rutado Cables" en la fila 18 se van añadiendo las bandejas y en la columna C se van añadiendo los cables. Cuando un cable va en una bandeja en la celda donde se encuentra fila y columna se coloca un "1" , como se ve en el ejemplo. Como he dicho antes la información se coloca manualmente. En la hoja "Formato llenado" en la columna "B" se copia manualmente el nombre de la bandeja, lo qu…