Aynı değere sahip hücreleri birleştirme

[emre.sevim]

Merhaba,

Örnek olarak paylaştığım tabloda B sütununda yazmış olduğum numaralar eşit olduğu taktirde B-G-H-I Sutünlarında bulunan satırlardaki hücrelerin birleştirmesini yapmak istiyorum ancak bu konu ile alakalı forumda bir örnek cümle bulamadım, yardımlarınızı rica ederim.

Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Ben sorunuzdan hiç bir şey anlamadım. Birleştirmekten kastınız nedir? Olması gereken nedir?

Konuya bakacak arkadaşlar için yeterli açıklama şart. Hücreleri birleştirmekten mi kastediyorsunuz, yoksa hücre değerlerini mi birleştirmek istiyorsunuz.

 

[emre.sevim]

Necdet Bey Merhaba,

Eşit değer de olan hücreleri birleştirip tek bir hücre olarak gösterilmesi demek istemiştim.

örnek tabloda, nasıl olması gerektiğini gösterdim.

İyi akşamlar

 

[Ziynettin]

Merhaba,

Bu kodu deneyiniz.

Sub birlestir()
Application.DisplayAlerts = 0
    i = 2
    Do While Cells(i, 2) <> ""
        s = i
        Do While Cells(i, 2) = Cells(s, 2)
            i = i + 1
        Loop
        Cells(s, 2).Resize(i - s).MergeCells = True
        Cells(s, 7).Resize(i - s).MergeCells = True
        Cells(s, 8).Resize(i - s).MergeCells = True
        Cells(s, 9).Resize(i - s).MergeCells = True
        Cells(s, 2).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 7).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 9).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s) = Application.Sum(Cells(s, 8).Resize(i - s))
    Loop
Application.DisplayAlerts = 1
MsgBox "İşlem bitti.", vbInformation
End Sub

 

[emre.sevim]

Merhaba,

Bu kodu deneyiniz.

Sub birlestir()
Application.DisplayAlerts = 0
    i = 2
    Do While Cells(i, 2) <> ""
        s = i
        Do While Cells(i, 2) = Cells(s, 2)
            i = i + 1
        Loop
        Cells(s, 2).Resize(i - s).MergeCells = True
        Cells(s, 7).Resize(i - s).MergeCells = True
        Cells(s, 8).Resize(i - s).MergeCells = True
        Cells(s, 9).Resize(i - s).MergeCells = True
        Cells(s, 2).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 7).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 9).Resize(i - s).VerticalAlignment = xlCenter
        Cells(s, 8).Resize(i - s) = Application.Sum(Cells(s, 8).Resize(i - s))
    Loop
Application.DisplayAlerts = 1
MsgBox "İşlem bitti.", vbInformation
End Sub

Gayet güzel oldu,Çok teşekkür ederim ben botun oluşturup hücreleri birleştirdim.
aynı butona veya başka bir buton ile işlemi geri almak mümkün mü?
Ayrıca E sutünundaki miktarları denk gelen satırda H sütununda birleştirdiği hücrede toplayabilir miyiz. yani bir palette kaç çeşit ürün var ise ayrı bir hücrede miktarlarının toplamını görebilir miyim.