Buenas tardes a todos y a cada uno de ustedes deseándoles un feliz inicio de año 2024 , acudo a ustedes por que necesito de su ayuda para automatizar el proceso de copiado y pegado de datos es decir Tengo un archivo de nombre "plantilla" que quiero llenar con los datos del archivo "Nomina Fiscal Quin 01" Me gustaría meter en un array/matriz los encabezados del archivo Planilla hoja ( lista raya) fila 8 y realizar una búsqueda en el archivo "Nomina Fiscal Quin 01", la búsqueda se realizara en la fila 8 , solo que no contiene las mismas columnas que el archivo Planilla por lo que pretendo realizar la búsqueda por medio de la macro, y una vez hallado una fila hacia ab…

Hola buenas, Feliz año nuevo !!! Copiar B4:E4 las celdas contienen fórmulas, pegar este rango tal cual con sus fórmulas cada 11 filas y que finalice como ejemplo en la fila 5.000 . Saludos..

Hola, Ante todo felices fiestas y año nuevo, Siguiendo con mi proyecto vuelvo a encallarme, necesito que una de las celdas (G3) de mi hoja1 cambie la numeración cada vez que guardo con un botón que he creado, ahora tengo esto: Hoja1.Range("G3").Value = Hoja1.Range("G3").Value + 1 Hace lo que quiero pero mi intención es poner letras antes de la numeración por lo que necesito que en lugar de ser consecutivo 1,2,3,4 etc. Sea FS1, FS2, FS3, FS4, etc.. una ayudita por favor

Buenas noches, había planteado este asunto en el subforo 'Excel General' pero me han remitido a este apartado porque no es posible hacerlo de forma nativa. Como no he escuchado, aún, de excel un 'eso no se puede hacer' vengo a solicitar vuestra ayuda. Tengo una hoja cualquiera en excel, no quiero inmovilizar paneles con el cursor en F6 porque se inmovilizan de un modo u otro (por filas o columnas) pero no quedan quietos de forma constante. Busco que la única zona de la hoja que se pueda mover (en realidad solo necesitaría el desplazamiento hacia arriba y abajo) sea la marcada en amarillo, que la zona azul no se pueda mover de ningún modo ¿Es posible? Gracias p…

Buenas tardes Me ocurre lo siguiente (sólo ahora) : mis archivos en OneDrive autoguardados cuando alguien en la oficina lo abre y con una versión de Excel anterior al 365, se quedan sin poder ejecutarse las macros. ANTERIORMENTE no sucedía. No todas las macros que contiene. Sólo una en especial. Y lo comparto. Para mi es algo muy raro. Hago una copia del archivo en la PC y siguen sin funcionar. Después de hacerlo "correr" manualmente desde el editor de VBA aparentemente funciona. Cierra el archivo y lo vuelve a abrir como version1. Comparto el que deja de funcionar. ¿Acaso debería agregar algunas líneas en VBA? Gracias Rubén Prot…

Tengo un problema en mi macro, ya que se ejecuta solamente al reescribir sobre la celda J23 Quisiera que se ejecute de manera automática al realizar un nuevo cálculo en la hoja, como podria solucionarlo? Dejo mi código: Private Sub Worksheet_Change(ByVal Target As Range) Dim Rango As String Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Visible = True Next i For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name = Range("J…

Ciao a tutti da Maurizio, vi scrivo perchè ho un problema che mi sta facendo impazzire ovvero questo: Sul Foglio 2 di Excel vorrei poter inserire i nomi delle festività Attuali prendendo i dati dalla cella (H2:I21) ed inserire i nomi delle festività nelle Celle sopra del mio Calendario che si trova a partire dalla celle (Q3:W8) Tenendo sempre presente che ad ogni mese dell'anno corrispondono nuove festività con le loro variazioni Ho provato a scrivere questa funzione ma non riesco a farla funzionare e non capisco perché. Questo è tutto. Grazie mille A.Maurizio Buone vacanze a tutti Mio_Progetto_Calendar.xlsx.xlsm

Hola buenas, Tengo el siguiente problema, quiero utilizar la formula UNICOS en VBA para sacar los resultados únicos de una columna (columna que tiene el nombre de "Soporte" asignado) de una tabla. El código de VBA es el siguiente: ActiveCell = Application.WorksheetFunction.Unique([Soporte]) El problema que tengo, es que solo me devuelve un resultado cuando el resultado que necesito deberían ser varios, pero imagino que en el código VBA al referirme a una única celda solo me devuelve un resultado. En cambio en excel al utilizar la funcion únicos, como permite desbordamiento me devuelve todos los resultados que necesito uno debajo de otro. …

Buenas adjunto un ejemplo en la columna A es la info que tengo que obviamente es mucho mas pero puse 3 casos nomas y en otra columna puse como necesito que me quede. Si alguno sabe algun codigo para poner en vba y que me lo haga automatico se lo agradeceria help.xlsx

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….

Muy buenas, tengo un formulario donde se debe de actualizar datos de una tabla mediante un botón, el problema que tengo con el código es que solo me corre cuando actualiza un celda pero cuando añado para que me actualice mas celdas de una fila me sale el error 1004. Agradeciendo de antemano por su ayuda. Private Sub BT_Modificar_Click() Dim fila As Object Dim linea As Integer Dim MENSAJE As String valor_buscado = Me.TXT_Cod Set fila = Sheets("BASEdeDATOS").Range("A:A").Find(valor_buscado, lookat:=xlWhole) linea = fila.Row MENSAJE = MsgBox("¿ESTÁS SEGURO DE EDITAR LOS DATOS?", vbQuestion + vbYes…

Hola buenas. Busco una Macro, ejemplo que comenzando en la fila 6 elimine las filas desde 6>12 salte 2 filas sin eliminar y continúe eliminado desde las filas 13>14 salte 2 filas sin eliminar y así hasta la fila ejemplo 1.000 O sea eliminar 7 filas saltar 2 sin eliminar y así hasta la 1.000 Saludos….

Saludos amigos Tengo un formulario (Fmrfechas) el cual debe aparecer una vez que haga Login en el Formulario (frmlogin) introduciendo un Usuario (TxtUSUARIO) y Clave (TxtCLAVE) para lo cual tengo esta macro que me funciona muy bien hasta ahora: Private Sub CmdACEPTAR_Click() Call Module1.BotonAceptar Fmrfechas.Show End Sub Sin embargo, cuando los campos Usuario (TxtUSUARIO) y la Clave (TxtCLAVE) estan vacíos o introduzco datos erróneos al hacer click en el Botón Aceptar (CmdACEPTAR) igual me aparece el formulario. Pregunta 01: requiero me ayuden con los elementos que deberían agregársele a la macro para que sí y solo si cuando el Usuario (TxtUS…

Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23: Private Sub Worksheet_Change(ByVal Target As Range) Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then ActiveSheet.Shapes(i).Visible = False Else ActiveSheet.Shapes(i).Visible = True End If Next End If End…

Buenas tardes, mi nombre es Rene, quisiera saber si hay alguna solucion para que al usar un formulario de VBA no se bloquee el funcionamiento de Excel

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…