MACRO COPIAR CELDAS DE UNA HOJA A OTRA
Publicado por Jheferson (1 intervención) el 10/05/2019 00:22:30
Buenas tardes, amigos expertos en excel
Tengo un archivo en excel así: Por un lado hay una hoja principal llamada RESUMEN donde esta reunida toda la información resumida de una sería de hojas que se han ido creando.
He creado una macro que me permite por un lado crear una hoja nueva y una fila nueva en la hoja RESUMEN, eso ya lo he conseguido con la siguiente macro la cual he vinculado a un botón:
Pero necesito que al momento de crear esa fila nueva me nombre tanto la hoja como una de las celdas de la fila nueva que he creado con un consecutivo, osea, que me tome el ultimo consecutivo que esta en la columna A y me de el siguiente. Adicional requiero que al ingresar información en la hoja nueva que he creado me pase información a la hoja RESUMEN.
Porfa ayuda....
Tengo un archivo en excel así: Por un lado hay una hoja principal llamada RESUMEN donde esta reunida toda la información resumida de una sería de hojas que se han ido creando.
He creado una macro que me permite por un lado crear una hoja nueva y una fila nueva en la hoja RESUMEN, eso ya lo he conseguido con la siguiente macro la cual he vinculado a un botón:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Copiar_Hoja()
' Copiar hoja nueva
Worksheets("00").Copy Before:=Worksheets("RESUMEN")
' Crear fila nueva
Sheets("RESUMEN").Select
Dim Numero_de_Filas_a_Insertar As Integer
Dim contadorfilas As Integer
Numero_de_Filas_a_Insertar = InputBox("Introduzca Numero de Filas a Insertar", "Aplicación Filas")
ActiveCell.EntireRow.Select
For contadorfilas = 1 To Numero_de_Filas_a_InsertarSelection.Insert Shift:=xltoDown
Next contadorfilas
End Sub
Pero necesito que al momento de crear esa fila nueva me nombre tanto la hoja como una de las celdas de la fila nueva que he creado con un consecutivo, osea, que me tome el ultimo consecutivo que esta en la columna A y me de el siguiente. Adicional requiero que al ingresar información en la hoja nueva que he creado me pase información a la hoja RESUMEN.
Porfa ayuda....
Valora esta pregunta
0