Birleştirilmiş satırları saydırmak

[reflargon]

Merhaba

a1 hücresinden a10 hücresine kadar olan satırları birleştirip içine değer girdiyorum. Bir sonraki işlem için A11 hücresini seçmem gerek ancak formül veyahut makro ile a1:a10 aralığını saymaya çalıştığımda bana 1 değerini veriyor. birleştirilmiş ve kullanımda olan 10 (satır) değerini verecek şekilde bir kod yazabiliyor muyuz?

Yardımlarınız için teşekkürler..

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? Umarım istediğiniz gibi olmuştur.

Sub SonSatBul()
Dim i As Long
i = [A65536].End(3).Row + 1
If Range("A" & i).MergeArea.Count > 1 Then
    i = i + Range("A" & i).MergeArea.Count - 1
End If
MsgBox i
End Sub

 

[reflargon]

Elinize sağlık necdet bey

tam istediğim gibi çok teşekkürler...

 

[Necdet]

Rica ederim, güle güle kullanınız.