¡Ayuda para creae macro!
Mi duda es el siguiente: tengo dos hojas de excel en un libro, en hoja 1 introduzco datos, en hoja 2 algunas las celdas reciben esos datos (utilizo fórmula de =), quiero que al terminar de introducir los datos en hoja 1, la hoja dos se duplique, ya sea en el mismo libro o en otro pero con otro nombre, después vover a introducir otros datos en hoja 1 y que se duplique de nuevo hoja 2 pero con otronombre y así sucesivamente.
De antemano gracias
De antemano gracias
{"Lat":20.9101344816927,"Lng":-97.6815032958984}
1 Respuesta
Respuesta de parmijo
1
Por lo que veo, si utilizas la fomula=, cada hoja duplicada tendrán los mismos valores que ingreses en la hoja1.
Supongo que lo que necesitas es guardar una copia de los valores de la hoja2 antes de volver a modificar la hoja1.
Si el así podrías ocupar la siguiente macro:
Sub Macro1()
'
x = InputBox("ingrese nombre de nueva Hoja", "Nombre de hoja")
Sheets.Add.Name = x
Sheets("Hoja2").Select
Cells.Select
Selection.Copy
Sheets(x).Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Application.CutCopyMode = False
End Sub
Supongo que lo que necesitas es guardar una copia de los valores de la hoja2 antes de volver a modificar la hoja1.
Si el así podrías ocupar la siguiente macro:
Sub Macro1()
'
x = InputBox("ingrese nombre de nueva Hoja", "Nombre de hoja")
Sheets.Add.Name = x
Sheets("Hoja2").Select
Cells.Select
Selection.Copy
Sheets(x).Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Application.CutCopyMode = False
End Sub
