Birleşik Hücre Sayısını Bulmak

[baydeniro]

MErhaba. Excel fonskiyon veya makro ile birleştirilmiş hücre sayını bulmak mümkün mü ? Örneğin A3: D4 hücreleri aralığı birleştirilmiş olsa. Birleşen hücre sayısı olan 8 sayısını bulmak mümkün mü ?

 

[uzmanamele]

Merhaba

Bu kod istediğinizi tam karşılamaz ama fikir verebilir, inceleyiniz.

Sub MergeVarMi()
For i = 1 To 5
Cells(i, 1).Select
adr = Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If adr <> "A" & i Then
hcr = Right(adr, 2)
MsgBox "A" & i & ":" & hcr & " Birleştirilmiş"
End If
Next
End Sub

 

[baydeniro]

Çok teşekkür ederim sayın uzmanamele. Sizin gibi üstatların konularımız ile ilgilenmesinden çok memnun oluyoruz. Sayenizde Excel'de bazı şeyleri yapabilmeyi öğrenmemizin yanısıra yapılamayacak konular hakkında da bilgi sahibi olmak şahsen benim için çok yararlı oluyor. Sağlıcakla kalın.

 

[Korhan Ayhan]

Merhaba,

Bu işlem için aşağıdaki kullanıcı tanımlı fonksiyonuda kullanabilirsiniz.

Hücrede kullanım şekli;

[B][COLOR=blue]=B_SAY([COLOR=red]Aralık[/COLOR])[/COLOR][/B]

Option Explicit
 
Function B_SAY(Alan As Range)
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Alan
        If Hücre.MergeCells = True Then
            B_SAY = B_SAY + 1
        End If
    Next
End Function

 

[baydeniro]

Vallahi süpersiniz Sayın Korhan Ayhan, elleriniz dert görmesin. Sağlıcakla kalın.

 

[uzmanamele]

Merhaba

Cells(i,j).Merge gibi bişey düşünmüştüm, olmadı. Bu yüzden yukarıdaki gibi basit bişey yapmaya çalıştım.
MergeCells akıl edemedik Bende öğrenmiş oldum.