birleştirilmiş hücrenin son sütun numarasını bulma

[patdizz]

Merhaba,

1 ya da 2 satırdan ve 20-30 sütundan oluşan birleştirilmiş bir hücrem var. Bu hücrede "YAPI" yazıyor. Makro ile tüm sayfada "YAPI" yazan hücrenin son sütun numarasını nasıl öğrenebilirim?

Örneğin, B3:K3 arasını birleştirip içine "YAPI" yazıyorum; makronun bana K sütununun numarası olan 11'i vermesini istiyorum.

Teşekkür ederim.

 

[hamitcan]

Birleştirilmiş hücreyi seçin ve aşağıdaki kodu çalıştırın.

Sub nn()
MsgBox Split(Selection.Address, ":")(1)
End Sub

 

[hamitcan]

Önceki kod hücre adresini veriyordu, bu sütun numarasını veriyor.

Sub BirlestirilmisHucreninSutunu()
[B][COLOR=RED]Cells.Find("YAPI").Activate[/COLOR][/B]
    Range(Cells(Selection.Row, 1), Split(Selection.Address, ":")(1)).Select
    MsgBox Selection.Columns.Count
End Sub

 

[mustafaine1]

guzel kod hamit bey tesekkurler..

 

[patdizz]

"YAPI" yazan hücreyi sayfada aratıp kendisinin bulmasını sağlayabilir miyiz?

 

[hamitcan]

guzel kod hamit bey tesekkurler..

Teşekkürler, Mustafa bey, beğendiğinize sevindim.

 

[hamitcan]

"YAPI" yazan hücreyi sayfada aratıp kendisinin bulmasını sağlayabilir miyiz?

Koda, bir ek yaptım.

 

[patdizz]

Malesef bu sefer nedense H1 hücresini seçip hata veriyor :
"Run time error 9 Subscript out of range"

 

[hamitcan]

Dosyanızı ekleyin.

 

[patdizz]

Sorun halloldu, teşekkür ederim.