Hücre biçimleri bozulmadan hücreleri nasıl birleştirebiliriz?

[p0wer2]

Merhaba

Benim problemim aşağıdaki gibidir.

A1 hücresindeki veri = siyah renk, verdana, metin biçimli
B1 hücresindeki veri = kırmızı renk, bold, verdana, metin biçimli

Ben bunları C1 Hücresinde bu biçim özellikleri değişmeden birleştirmek istiyorum.
yani;
A1="1/"
B1="1"
C1="1/1"


Bu şekilde yaklaşık 2000 satırı birleştirmem lazım.
A sütunu siyah renk, verdana, metin
B sütünu kırmızı renk, bold, verdana, metin
C sütununda birleştireceğim.

Cevaplarınız için şimdiden teşekkürler

 

[Erdem Akdemir]

Dener misiniz?

Sub deneme()
son = Cells(Rows.Count, "a").End(3).Row
For i = 1 To son
Range("d" & i).NumberFormat = "@"
Range("d" & i) = Range("a" & i) & Range("b" & i)
s = VBA.InStr(Range("d" & i), "/") + 1
With Range("d" & i).Characters(s, 2)
.Font.Bold = True
.Font.Name = "Verdana"
.Font.Color = -16776961
End With
Next
End Sub

 

[p0wer2]

Dener misiniz?

Sub deneme()
son = Cells(Rows.Count, "a").End(3).Row
For i = 1 To son
Range("d" & i).NumberFormat = "@"
Range("d" & i) = Range("a" & i) & Range("b" & i)
s = VBA.InStr(Range("d" & i), "/") + 1
With Range("d" & i).Characters(s, 2)
.Font.Bold = True
.Font.Name = "Verdana"
.Font.Color = -16776961
End With
Next
End Sub

Çok Teşekkür ederim. Yazdığınız kod sayesinde işimi gördüm. Böyle bir birleştirme excel in eksiklerinden bence. Umarım yeni versiyonlarında hücreleri birleştire böyle bir özellik eklerler.
Zamanınız olursa tam biçimlendirme birleştirmeyi yapabilirseniz çok daha güzel olur. kısmi biçiminden çok kişi faydalanamıyor.
Demek istediğim
A1 ve B1 hücrelerindeki yazı tipini, boyutunu, rengini, bold luk ve italic lik durumunu sorgulatıp ona göre birleştirme yapılsın.
yani kullanıcı a1 ve b1 e hangi renk boyut vs. girmişse c1 de ona göre birleşim olsun.

İyi Çalışmalar