Hücre Birleştirme

[BYSERTTAS]

SonSatır = WorksheetFunction.Match("Son", WsÖrnek.Range("j:j"), 0)
EklencekSatır = SonSatır & ":" & SonSatır
WsÖrnek.Rows(EklencekSatır).Insert
Bu Kodun devamına Eklenen Satırın B,C,D,E Sütünlarını birleştirmem gerekiyor. her satır eklendiğinde bunu tekrarlayacak kısaca satırı eklerken bcde sutunları birleştirilmiş olarak gelecek bir türlü beceremedim. en gin bilgilerinize ihtiyacım var
Şimdiden Teşekkürler.

 

[muygun]

Merhaba;

Range("b" & SonSatır & "e" & SonSatır ).Merge

Şeklinde deneyin.
Aynı kodun sonunu UnMerge şeklinde düzenlerseniz birleştirilmiş hücreyi çözersiniz.

İyi çalışmalar.