Soru sütunda satır birleştirme

[sirkülasyon]

Üstadım
ekli dosyada yer alan userformdan personele göre sayfaya veriyi aktarırken
olması gereken şekli diye yapılan örnek gibi sayfaya aktarmak için yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Sayfaya kayıt yapan tuşun MsgBox satırından öncesine olmak üzere aşağıdaki satırları ekleyip deneyiniz.

Application.DisplayAlerts = False
For x = 12 To 20
    With ed.Range(ed.Cells(bos - 2, x), ed.Cells(bos, x))
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With
Next
Application.DisplayAlerts = True

 

[sirkülasyon]

Teşekkür ederim Korhan Abi
Sağ Ol