Macro: crear una hoja nueva, renombrarla y pegarle datos
Sub Btn_Guardar_Informacion2() Dim FILA_REGA As Integer Dim NOMBRE_HOJA As Integer FILA_REGA = Sheets("AVISO").Range("A7").Value Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = NOMBRE_HOJA Sheets("AVISO").Select Sheets("AVISO").Range("A3:B5").Copy NOMBRE_HOJA = Sheets("AVISO").Range("B3").Value Sheets(NOMBRE_HOJA).Select Sheets(NOMBRE_HOJA).Select Range("A1").Select Sheets(NOMBRE_HOJA).Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Sheets("AVISO").Select Sheets("AVISO").Range("K3:L4").Copy Sheets(NOMBRE_HOJA).Select Sheets(NOMBRE_HOJA).Select Range("D1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("AVISO").Select Sheets("AVISO").Range("A8:Q" & FILA_REGA).Copy Sheets(NOMBRE_HOJA).Select Sheets(NOMBRE_HOJA).Select Range("F1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
Hola!,
Estoy desarrollando una macro en excel que crea una hoja nueva y la reenombre con el valor de la celda A7 de mi hoja llamada "AVISO". Una vez creada la nueva hoja necesito que me copie varios rangos de datos, más sin embargo el problema que tengo es que como no se cual será el nombre de mi nueva hoja no puedo definir el nombre de la hoja en donde copiaré mi rango de datos en mi código
2 respuestas
Respuesta de Dante Amor
1
Respuesta de James Bond
1