Soru Bazı Hücreleri Birleştirilerek Kaydetme

[sirkülasyon]

Hayırlı Cumalar

 Say = WorksheetFunction.CountA(a.Range("B5:B65536")) + 1
    a.Cells(Say + i + 4, 2).Value = Say
    a.Cells(Say + i + 4, 3).Value = TextBox1.Value
    a.Cells(Say + i + 4, 4).Value = TextBox2.Value
    '------- Tarımsal Ürün Kaydı Başlangıç-----------
    a.Cells(Say + 4, 5).Value = ComboBox4.Value
    a.Cells(Say + 4, 6).Value = TextBox4.Value
    a.Cells(Say + 4, 7).Value = Format(TextBox6.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 8).Value = Format(TextBox8.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 9).Value = Format(TextBox5.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 10).Value = Format(TextBox10.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 11).Value = Format(TextBox11.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 12).Value = Format(TextBox12.Value, "#,##0.00") * 1
    a.Cells(Say + 4, 13).Value = Format(TextBox74.Value, "#,##0.00") * 1
 '-----------------------------------------------------------------------------
    a.Cells(Say + 5, 5).Value = ComboBox5.Value
    a.Cells(Say + 5, 6).Value = TextBox13.Value
    a.Cells(Say + 5, 7).Value = Format(TextBox14.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 8).Value = Format(TextBox16.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 9).Value = Format(TextBox20.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 10).Value = Format(TextBox18.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 11).Value = Format(TextBox19.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 12).Value = Format(TextBox21.Value, "#,##0.00") * 1
    a.Cells(Say + 5, 13).Value = Format(TextBox74.Value, "#,##0.00") * 1
     '-----------------------------------------------------------------------------
    a.Cells(Say + 6, 5).Value = ComboBox6.Value
    a.Cells(Say + 6, 6).Value = TextBox22.Value
    a.Cells(Say + 6, 7).Value = Format(TextBox23.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 8).Value = Format(TextBox25.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 9).Value = Format(TextBox29.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 10).Value = Format(TextBox27.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 11).Value = Format(TextBox28.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 12).Value = Format(TextBox30.Value, "#,##0.00") * 1
    a.Cells(Say + 6, 13).Value = Format(TextBox74.Value, "#,##0.00") * 1
 '-----------------------------------------------------------------------------
    a.Cells(Say + 7, 5).Value = ComboBox7.Value
    a.Cells(Say + 7, 6).Value = TextBox31.Value
    a.Cells(Say + 7, 7).Value = Format(TextBox32.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 8).Value = Format(TextBox34.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 9).Value = Format(TextBox38.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 10).Value = Format(TextBox36.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 11).Value = Format(TextBox37.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 12).Value = Format(TextBox39.Value, "#,##0.00") * 1
    a.Cells(Say + 7, 13).Value = Format(TextBox74.Value, "#,##0.00") * 1
 '-----------------------------------------------------------------------------
    a.Cells(Say + 8, 5).Value = ComboBox8.Value
    a.Cells(Say + 9, 6).Value = TextBox40.Value
    a.Cells(Say + 8, 7).Value = Format(TextBox41.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 8).Value = Format(TextBox43.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 9).Value = Format(TextBox47.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 10).Value = Format(TextBox45.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 11).Value = Format(TextBox46.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 12).Value = Format(TextBox48.Value, "#,##0.00") * 1
    a.Cells(Say + 8, 13).Value = Format(TextBox74.Value, "#,##0.00") * 1
        '------- Tarımsal Ürün Kayıt Sonu-----------

ARŞİV sayfasında B,C,D ve M sütunu kayıt edildiği zaman 5'er 5'er olmak üzere birleştirilerek kayıt edilmesi için yardımcı olabilir misiniz

a.Cells(Say + i + 4, 2).Value = Say 'B5:B sütununa
a.Cells(Say + i + 4, 3).Value = TextBox1.Value 'C5:C sütununa
a.Cells(Say + i + 4, 4).Value = TextBox2.Value 'D5: D sütununa
Format(TextBox74.Value, "#,##0.00") * 1 M5:M sütununa