Dante Amor

No tengo claro el resultado que necesitas, solamente pusiste una imagen, ayudaría si pones otra imagen con el resultado esperado. Mi duda es porque pusiste este comentario: Dependiendo el numero de empaques que se tenga por registro En tu imagen...

La fórmula para poner el nombre del archivo es esta: =CELDA("nombrearchivo") Pero tiene un detalle, también te pone la ruta del archivo, el nombre del archivo y el nombre de la hoja. Ejemplo: C:\Users\damor\Documents\Docs\Soporte...

Te anexo la macro Sub Verficar_Consecutivo() Set h1 = Sheets("Hoja1") 'origen Set h2 = Sheets("Hoja2") 'destino For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole) If b Is Nothing Then...

Te anexo el ejemplo para que lo apliques en tu macro Cuando abras el form en el evento activate agrega la siguiente línea para ocultar el campo b_poblacion, realiza lo mismo con los demás campos. Private Sub UserForm_Activate() b_poblacion.Visible =...

Antes de copiar la hoja, debes proteger la hoja, de esa forma cuando se copia la hoja con la macro, también se copia protegida y las celdas estarán bloqueadas. Intenta nuevamente, primero protege la hoja y después ejecuta la macro.

Te anexo la macro, prueba y me comentas Sub Buscar_Texto() 'Por Dante Amor Columns("C").Interior.ColorIndex = xlNone For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set r = Columns("C") Set b = r.Find(Cells(i, "A"), LookAt:=xlPart) If Not b Is...

Te anexo una macro. Antes de ejecutar la macro debes actualizar los nombres de tus libros y de tus hojas en esta parte de la macro: Set l0 = ThisWorkbook 'libro con la macro Set l1 = Workbooks("Libro_1.xlsx") 'libro 1 debe estar abierto Set l2 =...

Prueba con la siguiente Cambia B2 por la celda a revisar =SI(B2<=4,0.4,0.4+(B2-4)*0.1) Nota: Cambia la coma (,) en la fórmula por punto (;) si tu separador de argumentos es el punto y coma (;) No entendí a que te refieres con "generará un valor de...

Va la macro actualizada Sub eliminar_valores() 'Por Dante Amor 'Macro que elimine valores positivos y negativos de una columna Application.ScreenUpdating = False u = Range("L" & Rows.Count).End(xlUp).Row For i = 2 To u If Cells(i,...

Va la macro actualizada para la hoja con formato Sub Guardar() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String, Ruta As String Ruta = "C:\Users\Desktop\INFORMES\" Ruta = "c:\trabajo\" nombre = Range("B3").Value ActiveSheet.Copy...