Demo entry 6881441

Excel Consultor


Submitted by W on Sep 11, 2019 at 02:57
Language: VBScript. Code size: 586 Bytes.

Sub CopiarPegar()
Dim oldRows&, Rng As Range, mFila As Range
Application.ScreenUpdating = False
Set Rng = Range([b5].End(xlDown), [b5].End(xlToRight).Offset(1))
With Hoja2.[a2].ListObject
  oldRows = .Range.Rows.Count
  If .ListRows.Count = 0 Then oldRows = oldRows - 1
  Set mFila = .ListRows.Add.Range
  .Resize .Range.Resize(oldRows + Rng.Rows.Count)
  mFila.Resize(Rng.Rows.Count) = Rng.Value
End With
Application.ScreenUpdating = True
MsgBox "Se agregó información a la data", vbOKOnly + vbInformation, "Excel Consultor" 'Muestra un aviso ejecutada la macro.
End Sub

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).