Formulas-Macro que copien datos de las celdas a la clave correspondiente de la base de datos al guardar libro
Copiar datos de las celdas B2, B3 y B4 a la clave correspondiente de la base de datos D1:G6 cada que se de guardar al libro. Mantener los datos guardados, poder reemplazarlos de ser necesario hasta llenar la base de datos D1:G6. Con la posibilidad de agregar más claves en el futuro. Requiero se realice de una hoja llamada "Dts TE" a "Octs".
Sub Claves()
'
' Claves Macro
'
' Acceso directo: Ctrl+Mayús+I
'
Range("B16:B20").Select
Selection.Copy
Sheets("Octs").Select
Range("A28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A24:E28").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Octs").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Octs").Sort.SortFields.Add2 Key:=Range("A24:A28") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Octs").Sort
.SetRange Range("A24:E28")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
