Merge konusu hakkında.

[Kemal Demir]

Günaydın arkadaslar.

Ek'te bir dosyam var.Yapmak istediğimi durumu aşagıda belirteceğim.

Taramaya 3.Satırdan başlayacak Merge Edilmiş hücrelerin referanslarını belirleyecek.

Ek'teki dosyada örnek: C:E kolonu içeriyor sonraki F:H kolonu içeriyor,I:K kolonu ve son olarak ta M:O kolonunu içeriyor. arada L kolonu merge edilmemiş.Bu verileri nasıl okutabilirim.

Bu konuda yardımcı olabilirmisiniz.

Teşekkurler.

 

[hamitcan]

Sub birlestirilmis_hucreleri_bul()
    For Each hcr In [c3:o4]
        If hcr.MergeCells = True Then
            MsgBox hcr.Address
        End If
    Next
End Sub

 

[Kemal Demir]

Hamit bey,

Cevabınız için öncelikle teşekkurler.Ovakit eksik söylemişim diye söylemek istiyorum.

Mesela; Ekteki dosyada ilk merge edilmiş dosya C:E aralıgı bilgiyi bana "birinci kolon C" "ikinci kolon E:"

ikinci merge için ise; "birinci kolon F" ikinci kolon H:"

Hamit Bey, umarım anlatabilmişimdir.

 

[hamitcan]

Sub birlestirilmis_hucreleri_bul()
    For Each hcr In [c3:o3]
        If hcr.MergeCells = True Then
        s = s + 1
        If s = hcr.MergeArea.Columns.Count Then
        s = 0
         MsgBox "Birinci Kolon=" & Mid(Split(hcr.MergeArea.Address, ":")(0), 2, 1) & vbCrLf _
         & "İkinci Kolon=" & Mid(Split(hcr.MergeArea.Address, ":")(1), 2, 1)
        End If
        End If
    Next
End Sub

 

[Kemal Demir]

Hamit Bey,

Çok teşekkurler.Elinize Sağlık.

 

[hamitcan]

Yardımcı olabildiysem ne mutlu bana, Kemal bey.