Dante Amor

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

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

Prueba con el siguiente código Sub Buscar_2() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") h3.Cells.ClearContents u3 = 2 ' For i = 2 To h2.Range("D" &...

Te anexo el código actualizado para guardar en xlsx y también en PDF Sub Guardar() ' ' Guardar Macro ' ' Acceso directo: CTRL+h ' Dim nombre As String, Ruta As String Ruta = "C:\Users\Desktop\INFORMES\" nombre = Range("B3").Value Cells.Copy...

Te anexo la macro Sub Macro1() 'Por Dante Amor With Range("E2:E" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = _...

Cambia esto: Range(Range("A1"), ActiveCell. SpecialCells(xlLastCell)).Copy _ H1.Range("A" & h1. Range("A1").Select. SpecialCells(xlLastCell).Row + 1) Por esto: Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy u =...