Demo entry 6881442

Excel Consultor

   

Submitted by W on Sep 11, 2019 at 03:11
Language: VBScript. Code size: 1.1 kB.

Sub GuardarRegistro()


Application.ScreenUpdating = False ' |(Evita el parpadeo de la pantalla)


Range("B6:L25").Select '=> Selecciona el rango a copiar.

Selection.Copy '=> Copia el rango.

Sheets("data").Select '=> Selecciona la hoja donde se pegará la información.

Range("A2").Select '=> Selecciona el título de la tabla donde se almacenará la información.

Selection.End(xlDown).Select '=> Selecciona la última celda con datos de la tabla.

ActiveCell.Offset(1, 0).Activate '=> Selecciona la celda que se encuentra debajo de la celda activa.

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False '=> Pega la información.

Sheets("Registro").Select '=> Regresa a la hoja de registro.

Range("B6").Select '=> Selecciona una celda en particular de la hoja de registro.

Application.CutCopyMode = False '|Desactiva el modo copiar


MsgBox "Se agregó información a la data", vbOKOnly + vbInformation, "Excel Consultor" 'Muestra un aviso ejecutada la macro.





End Sub

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).