Macro aanpassen dat userform verticaal wegschrijft ipv horizontaal

[davylenders123]

Ik heb met hulp van de forum leden hier een userform in gebruik die in een tabel horizontaal wegschrijft.
Ik ben nu bezig met een ander bestand en zou hier graag de userform in gebruiken ,maar dan de gegevens wegschrijven in bepaalde cellen verticaal en niet in een tabel horizontaal.


Code hieronder schrijft weg in een tabel horizontaal.
Maar hij zou moeten wegschrijven in c5 tem c11 in dit voorbeeld.


Heb zelf al wat aan het proberen geweest maar lukt me niet echt .

In bijlage ook het bestand toegevoegd.

Private Sub cmmndToevoegen_Click()
  Dim ar(1 To 7)
  For Each fr In Me.Controls
    If TypeName(fr) = "Frame" Then
      For Each ob In fr.Controls
        If TypeName(ob) = "OptionButton" Then
          If ob Then
            ar(fr.Tag) = ob.Caption
            Exit For
          End If
        End If
      Next ob
    End If
  Next fr

  ar(1) = Format(LblDatum, "mm-dd-yyyy")
  ar(2) = txtNaamplanbalie
  ar(4) = txtNaamchauffeurbadges
  ar(5) = txtNaampersoondiebadesbinnenbrengt
  Sheets("Bewijs").ListObjects(1).ListRows.Add.Range.Resize(, 7) = ar
  Columns("I:I").Select
    
    
  
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
    Unload Me
 
End Sub




Private Sub LblDatum_Click()
  Kalender.Show
End Sub



Private Sub UserForm_Initialize()
  LblDatum = Format(Date, "dd-mm-yyyy")
End Sub

 

[Jack Nouws]

Bedoel je dit?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]  Sheets("Bewijs").Range("C5").Resize(7) = Application.Transpose(ar)
[/FONT]

 

[VenA]

Los van of het kan, maak je een denkfout. Gegevens vanuit een formulier sla je op in een tabel. Vanuit deze tabel kan je dan weer overzichtjes maken. (waarbij het gebruik van samengevoegde cellen afgeraden wordt)

 

[davylenders123]

Jack Nouws

Inderdaad dit is hem , alles is makkelijk als je het weet he


VenA

Het werkt moet de oplossing van Jack Nouws , maar ga de samengevoegde cellen wel verwijderen.
Ik weet dat dit met vba code vaak voor problemen kan zorgen en je best geen samengevoegde cellen gebruikt.
Maar vergeet dit nogal vaak bij de opmaak van mijn bestanden

Beide bedankt voor jullie zeer snelle reactie:thumb: