Fare ile seçili hücreleri birleştiren , veri kaybı olmayan makro

Kodla Büyü

hasan

Hiperaktif Üye
Hiperaktif
Süper Üye
Mesajlar
2,794
Excel de fare ile seçili hücreleri birleştiren bir makro yapmaya çalıştım. Ofis2010 ve ustu sürümlerde özellik olarak eklenmiş, sonradan farkettim... libreofisde'de varmış.
Makroyu yazarken internette birkaç yere bakmam gerekti. Unutmuşum , birde yazdığımız makroyu doğrudan menüye nasıl ekliyorduk?


Sub fareilebirlestir()
Dim alan As Range
[ak1] = Empty
'AK1 hücresini verileri yükleyip sileceğim hücre olarak seçtim.
'eğer sütün sayınız fazla ise daha uzakta bir hücre seçiniz.

For Each alan In Selection
[ak1] = [ak1] & Chr(10) & alan.Value & Chr(10)
Next

' sadece sütünlar birleşecekse ve ALT+ENTER ile yazılmış gibi, aynı hücrede satırlar halinde, gözükmesi için aşağıdaki kodu kullanıyoruz, yoksa yan yana birleştirir.
'Eğer arada boşluk olsun yeter diyorsanız & Chr(10) & kodunu & " " & olarak değiştirebilirsiniz.
'Selection.WrapText = False

Selection.Value = [ak1]
[ak1] = Empty
'Bundan sonraki endwith dahil olan bölüm sola hizama içindir
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End Sub
 
Son düzenleme:
Geri
Üst