Como hacer duplicar pestaña y que haga en automático el foliado con numero de pestaña y folio.
Necesito hacer esto para generar ordenes de compra o cotizaciones y que al duplicar la pestaña lo renombre con el mismo numero de folio
Supongo que tu hoja esta así, la hoja 1 y el numero de folio 12356, al momento de copiar la hoja le asignara un numero2 más un aumento en el folio 12357, si es así como lo buscas
Entonces esta es la macro, la macro leerá la pestaña y las propiedades de la hoja buscando el indice y el nombre de la hoja el cual separa para asignar el nuevo folio
Sub copiar() numero = ActiveSheet.Index nombre = ActiveSheet.Name cuenta = Sheets.Count separa = Split(nombre, " ") folio = separa(1) nuevo_nombre = cuenta + 1 & " " & folio + 1 Sheets.Add(After:=Sheets(Sheets.Count)).Name = nuevo_nombre End Sub
1 respuesta más de otro experto
Con esta pequeña macro agregas hojas y el nombre es el numero de hoja
Sub AgregaHojas() CantHojas = Sheets.Count Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = CantHojas + 1 End Sub
Pero nunca vas a poder tener 2 hojas con el mismo nombre
Por ejemplo si le pones a una hoja "Contaduria" y quieres poner otra igual va a decir "Contaduría(1)" y si creas otra más va a decir "Contaduría(2)" y así sucesivamente...
Con esa macro agregas hojas en blanco... si lo que quieres es copiar una hoja especifica cambia esta línea
' Agrega una hoja en blanco Sheets.Add After:=Sheets(Sheets.Count)
Por esta
'Copia la hoja "EjemploTodoExpertos"
Sheets("EjemploTodoExpertos").Copy After:=Sheets(Sheets. Count)En cuanto a la posicion donde se copia puedes jugar con eso..
Si quieres la hoja al principio o al final, antes o despues
Ejemplo si quieres que se copie al final de todo dejalo tal cual te lo pase...
Si quieres que se copie antes de la hoja 1
Cambia el "After:=Sheets(Sheets.Count)" por "Before:=Sheets(1)" o si quieres que se copie despues de la hoja 1 seria "After:=Sheets(1)"
Espero haberte ayudado compañero, un saludo y quedo al tanto =)