Macros excel
Buenas compañeros
Soy nuevo en esto de la programación en visual basic para excel y estoy algo perdido para lograr lo que quiero
Resulta que tengo una hoja y debo duplicarla, eso ya lo solucioné con este código sencillo
Sub Duplicador()
ActiveSheet.Copy After:=ActiveSheet
End Sub
Ahora lo que pasa es que las hojas son numeradas en la celda Z7 y lo que necesito es que al duplicarla se cambie el numero que tiene por el siguiente, por ejemplo la hoja 1 tiene el número 1 en esa celda y al duplicar el duplicado debe tener el numero 2 y otro duplicado el 3 etc
Agradezco la ayuda que me puedan prestar
Soy nuevo en esto de la programación en visual basic para excel y estoy algo perdido para lograr lo que quiero
Resulta que tengo una hoja y debo duplicarla, eso ya lo solucioné con este código sencillo
Sub Duplicador()
ActiveSheet.Copy After:=ActiveSheet
End Sub
Ahora lo que pasa es que las hojas son numeradas en la celda Z7 y lo que necesito es que al duplicarla se cambie el numero que tiene por el siguiente, por ejemplo la hoja 1 tiene el número 1 en esa celda y al duplicar el duplicado debe tener el numero 2 y otro duplicado el 3 etc
Agradezco la ayuda que me puedan prestar
1 respuesta
Respuesta de prozac
1
Para ir cambiando números a medida que duplicas tu código puede quedar como sigue:
Sub Duplicador()
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Range("z7").Value = ActiveSheet.Range("z7") + 1
End Sub
Es decir, una vez copiada la hoja, incrementas la celda del número en 1 o en lo que quieras.
Veras que el nombre de la hoja queda como Hojax (y) donde por es el original e y el número de duplicado. Si quieres haciendo uso de la propiedad nombre lo puedes cambiar.
ActiveSheet.Name = mi_nombre
Sub Duplicador()
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Range("z7").Value = ActiveSheet.Range("z7") + 1
End Sub
Es decir, una vez copiada la hoja, incrementas la celda del número en 1 o en lo que quieras.
Veras que el nombre de la hoja queda como Hojax (y) donde por es el original e y el número de duplicado. Si quieres haciendo uso de la propiedad nombre lo puedes cambiar.
ActiveSheet.Name = mi_nombre
