regel invoegen

[h-bo]

Hoi wie kan mij helpen.
Graag wil ik nadat ik een selectie heb gemaakt uit de combobox, direct een nieuwe lege regel er onder laten invoegen.
Kan iemand mij opweg helpen.
Alvast bedankt

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
        nRow = [D36].End(xlUp).Offset(1).Row
         Cells(nRow, 4) = ComboBox1.Value 
    End If
End Sub

Groet h-bo

 

[Wigi]

Hallo

Als je End(xlUp) gebruikt, zijn alle tussenliggende cellen leeg.
Waarom moet er dan nog een regel ingevoegd worden als de cellen toch al leeg (en dus beschrijfbaar) zijn?

 

[h-bo]

Als je End(xlUp) gebruikt, zijn alle tussenliggende cellen leeg.

Ik heb tekst aan het begin en het einde van mijn tabblad staan en daartussen wil ik steeds een nieuwe regel terug laten komen zodat de afstand tussen de tekst eronder altijd gelijk blijft.

 

[Wigi]

Dit vraagt om een duidelijk voorbeeldbestandje...