Base de Datos en excel
Tengo una base de datos en excel
Es una hoja por cada mes pero tenemos que hacer un concentrado
esta de la siguiente manera
Hoja Enero
Nombre Domicilio Municipio Edad Telefono 1 Telefono 2 Experiencia
xxx xxx xx xx xx xxx xxxx
Hoja febrero lo mismo
El problema es como hacerle para cuando uno capture la información en la hoja del mes se vaya en automático a la hoja de concentrado y no estar copiando y pegando
Es una hoja por cada mes pero tenemos que hacer un concentrado
esta de la siguiente manera
Hoja Enero
Nombre Domicilio Municipio Edad Telefono 1 Telefono 2 Experiencia
xxx xxx xx xx xx xxx xxxx
Hoja febrero lo mismo
El problema es como hacerle para cuando uno capture la información en la hoja del mes se vaya en automático a la hoja de concentrado y no estar copiando y pegando
Respuesta de edwinhenao
1
Lo podrías hacer con una macro de ingresar datos, que tome el último dato introducido en la hoja de mes y lo lleve a la hoja de concentrado. Suponiendo que la hoja se llame Concentrado está macro hace el trabajo. Éxitos, no olvide calificar y cerrar la pregunta.
...
Sub InsertarUltimoDato()
LaHoja = ActiveSheet.Name
Range("A1048576").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("concentrado").Select
Range("A1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Sheets(LaHoja).Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
End Sub
...
Sub InsertarUltimoDato()
LaHoja = ActiveSheet.Name
Range("A1048576").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("concentrado").Select
Range("A1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Sheets(LaHoja).Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
End Sub
