Luis Francisco V M

Adriel Ortiz Mangia respondió: [Hola Prueba con esto. Valora la respuesta para finalizar saludos! Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Por Adriel ' If Not Intersect(Target, Range("B11:B25")) Is Nothing Then If Target.Count > 1 Then Exit Sub...

Nelson Felipe Serrano respondió: Molder87 te dejo el código que copia (al final del libro) la hoja molde y la renombra con el dia de la fecha actual, pruébalo y me cuentas como te va. Saludos Sub ReplicarHojaActual() ''Creada por FSerrano en 120313 ''para molder87 en...

Marcos Vela respondió: Luis que tal, he probado tu macro y por lo menos a mi no me trabaja lento, pero si deseas optimizarla un poco puedes hacer mas directas algunas instrucciones en lugar de seleccionarlas y luego darles la acción. Te dejo el ejemplo de como quedaría Sub...

Dante Amor respondió: Te anexo la macro1 Sub Macro1() 'Por.Dante Amor Sheets("HN").Copy After:=Sheets(Sheets.Count) End Sub La macro2 Sub Macro2() 'Por.Dante Amor ActiveSheet.Copy After:=Sheets(Sheets.Count) End Sub