excel vba inserta un rango y desplaza las celdas hacia abajo ejemplo de código

Nuestro team de expertos pasados varios días de investigación y recopilación de de datos, dimos con la respuesta, nuestro deseo es que resulte útil para ti para tu plan.

Ejemplo: rango de cambio de excel vba

' Returns a shifted version of initial range (same size)Function ShiftRange(ByVal pRange As Range,ByVal pRowOffset,ByVal pColumnOffset)Set ShiftRange = pRange.Offset(pRowOffset, pColumnOffset)EndFunction'--------------------------------------------------------------------------------Sub TestIt()Dim rInitialRange, rShiftedRange As Range
    Dim iRowOffset, iColOffset AsLong
    
    iRowOffset =2' Shifts 2 rows down
    iColOffset =-1' Shifts 1 column leftSet rInitialRange = Range("D1:B3")' Sets a shifted version of initial range (2 rows below, 1 column left)Set rShiftedRange = ShiftRange(rInitialRange, iRowOffset, iColOffset)
    
    MsgBox "Initial range: "& rInitialRange.Address(False,False)& vbCrLf _& vbCrLf &"Row offset : "& iRowOffset _& vbCrLf &"Column offset : "& iColOffset & vbCrLf _& vbCrLf &"New range : "& rShiftedRange.Address(False,False)EndSub

Nos encantaría que puedieras comunicar este escrito si te ayudó.

---

---

Utiliza Nuestro Buscador