Elsa Matilde

Después de la línea 'Loop' coloa así la condición: If activesheet.name = "Contado" then ActiveSheet.ScrollArea = "A1:O205" Else ActiveSheet.ScrollArea = "A1:O100" End if ActiveSheet.Protect Password:="1" End Select Sdos. Elsa...

Entrá al Editor, seleccioná con doble clic el objeto HOJA donde vayas a trabajar y allí copiá esta macro. Debes ajustar los límites como te lo indico en el código. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo controla...

Este sería el ajuste (en negrita) For Each sht In ActiveWorkbook.Sheets if sh.name <> "Registro" and sh.name <> "Tabla Dinámica" then sht.Select sht.Protect Password:=Pass ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False End...

Si agregaras los datos al final sería fácil de determinar el fin de rango... pero como estás insertando una fila para colocar los datos al inicio, no debes insertar nuevamente la fila desde el 2do formulario. Esto claro está siempre y cuando el orden...

Que pena pero como ya has finalizado y valorado la respuesta no puedo aportar. Pero sí se puede. Sdos!

¿Será Ctrl B? Si tenés protegida la hoja sin opción de seleccionar las celdas bloqueadas, el buscador no te dará ningún resultado porque no puede posicionarse en ese resultado. Comentame si este es el problema.

Debes dejar escrita tu macro aquí para poder integrar este código o u otro similar.

Seleccioná la col de datos y desde menú Datos, opción Texto en columnas te presentará un Asistente. Allí optá por Delimitados y en la 2da pestaña tal como se observa en la imagen: El destino dejalo en col B así no perdés los datos originales ...

Intenta Con esta sintaxis: ActiveSheet.Protect Password:="54321", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True,...

Estas serían las instrucciones: Sub renombraHoja() 'x Elsamatilde Hoja1.Select Hoja1.Copy Before:=Sheets(1) 'ActiveSheet.Select 'si ya es la activa no es necesario seleccionarla ActiveSheet.Name = "Imprimir" & Range("F3") & Range("F5") End Sub...