macroda hücreleri birleştirme???????

[mesuutt]

merhaba arkadaslar öncelikle yardımlarınız ve hızlı cevap alabildigim için cok tesekkur ederim

macroda 3 tane hücreyi birleştirmem lazım nasıl yapabilirim bu konuda bilgisi olan varmı?

şimdidem çok tesekkur ederim..

 

[zafer]

Merhaba


Range("a1")=Range("b1")&Range("c1")&Range("d1")

A1 hücresine B1 C1 ve D1 hücrelerini birleştirir


Dosya ekleyebilirmisiniz.

 

[mesuutt]

merhaba

Range("C6") = Range("D6") & Range("E6")

ben c6,d6,e6 yı birlestircektım ama birleşmiyo nedense hata vermiyo ama birlestirmiyoda

 

[uzmanamele]

merhaba

hücre birleştirmekten kastınız; hücrelerdeki verileri birleştirmek midir birleştirilmiş hücre elde etmek midir?

örnek dosya ekleyiniz.

 

[mesuutt]

verileri birlestirmek değil sadece hucreleri birlestirip bir baslık gircem okadar

 

[Necdet]

Merhaba,

Sub Macro1()
    Range("A4:C4").MergeCells = True
End Sub

 

[zafer]

Merhaba

merhaba

Range("C6") = Range("D6") & Range("E6")

ben c6,d6,e6 yı birlestircektım ama birleşmiyo nedense hata vermiyo ama birlestirmiyoda

Range("C6") = Range("C6") & Range("D6") & Range("E6")

 

[mesuutt]

Herşey için cok sagolun ama benim sorunlarım bitmiyoki hucreleri birlestirdim ama şimdi içine yazdıgım yazıyı nasıl ortalayabilirim

Range("C6:E6").MergeCells = True
Cells(6, 3).Value = "Miktar"
Cells(6, 3).Font.Bold = True

 

[zafer]

Merhaba

sorunuz biraz karışık.

Birleştirme 1.mesajınızla alakalı değil sanırım.

kodlarınızda öyle gözüküyor
siz 3 hücreyi birleştirmekmi. sadece c6 hücresindeki veriyi hücreye göre ortalamakmı istiyorsunuz.

C6'daki yazıyı ortalamak için
Range("C6").HorizontalAlignment = xlCenter

 

[uzmanamele]

merhaba

örnek dosya eklememedeki ısrarınız alacağınız çözümü geciktirir.

bunu deneyiniz.

Sub birlestirOrtala()
Range("C6:E6").MergeCells = True
Range("C6:E6").HorizontalAlignment = xlCenter
Range("C6:E6").Font.Bold = True
End Sub

 

[mustafaine1]

sayin mesut bey sizce fazla soru isareti yainca basliga daha fazlami cevap aliyorsunuz!!