Keskustelu: Ohjelmointikysymykset: VBA rivinlisääminen

Olisi tällainen ongelma:

Userformin textboxista viedään teksitä valittuna olevan solun A4 alapuolelle A5.
Pitäisi vain saada uusi, tyhjä rivi aikaiseksi ennen tekstin viemistä.
Yläpuolelle kyllä tyhjänrivin luonti onnistuu mutta osaisiko joku kertoa miten sen saa valitun solun alapuolelle?

Offset on vastaus moneen siirtymistä/siirtymättömyyttä koskettavaan asiaan Excelin VBA:ssa. Seuraava koodi luo valitun solun alapuolelle tyhjän rivin, kun sitä tuplaklikataan. Rivin lisääminen alkaa Offsetista eteenpäin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                              Cancel As Boolean)
    If Target.Cells.Count = 1 Then 'valittu vain yksi solu
        Target.Offset(1, 0).Rows.EntireRow.Insert xlShiftDown 'uusi rivi solun alapuolelle
        Cancel = True 'blokataan solun avaus, jonka tuplaklikkaus normaalisti tekee
    End If
End Sub

Iso kiitos, homma toimi jopa paremmin kuin olin sen itse ajatellut toteuttavani.