Opgelost VBA iets aanpassen

[jverkerk]

Ik heb deze VBA code

Private Sub CommandButton1_Click()
    With Sheets("Facturenoverzicht")
        .Unprotect
        Dim newRow As ListRow
        Set newRow = .ListObjects(1).ListRows.Add
        newRow.Range.Resize(, 16).Value = Array( _
            Range("B14").Value, _
            Range("B13").Value, _
            Range("B11").Value, _
            Empty, _
            Empty, _
            Empty, _
            Empty, _
            CDbl(Range("E46").Value), _
            Range("B11").Value + 14, _
            Range("B2").Value, _
            Range("B3").Value, _
            Range("B4").Value, _
            Range("B5").Value, _
            Empty, _
            Empty, _
            Range("D47").Value)
        .Protect
    End With
End Sub

Nu zou ik graag willen dat de tekst of waarde die in de cellen B20:B38 ook weggeschreven worden in één cel onder elkaar.
Kan dat bijvoorbeeld met
Range("B20:B38").Value)

 

[HSV]

Dat kan zoals je het zelf al formuleert.

cells(1,10).resize(19) = range("B20:b38").value

In één cel onder elkaar moet je eens beter uitleggen dan.

 

[snb]

Die zou ik eerst verbeteren:

Sub M_snb()
   Sheet1.ListObjects(1).ListRows.Add.Range = Array(1, 2, 3)
End Sub

 

[jverkerk]

@HSV ik wil graag ter informatie die cel vullen met de waarden om achteraf te zien wat de omschrijving van de te leveren artikelen is geweest.
Zijn meestal maar 2 artikelen.
Het zou voor kolomQ in de tabel moeten gelden maar ik krijg een foutmelding #N/B
@snb Welke regel moet ik daarvoor veranderen en wat zegt die code ipv de code die er staat, om te leren.

 

[snb]

Alle regels tussen de overbodige .protect en .unprotect. De array kun je zelf vullen.

 

[HSV]

Van de aan mij gerichte info wordt ik helaas niet veel wijzer van Johan.
Misschien kun je dat illustreren in een bestandje.

 

[jverkerk]

Allemaal bedankt, ik ben er uit.