Birleştirilmiş Hücrenin bitiş (son) satırını öğrenme

[tamer42]

Merhabalar,

Excel'de birleştirilmiş hücrelerin içerdiği son satır numarasını öğrenmek istiyorum,

Örnek: A1 - A12 aralığındaki hücreleri, hücre birleştir yoluyla birleştirilmiş olsun, bu hücre 12. satırda son buluyor.

bitiş (son) satır numarasını kod veya formül yazarak nasıl öğrenebiliriz?

iyi çalışmalar.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

[a1].End(xlDown).Select
MsgBox ActiveCell.Rows.Address(0, 0)

 

[uzmanamele]

Merhaba

Bu mudur?

Sub MergeBul()
For Each Hcr In Range("a1:a12")
If Hcr.MergeCells = False Then
MsgBox Hcr.Address
Exit For
End If
Next
End Sub

 

[tamer42]

Merhaba

Bu mudur?

Sub MergeBul()
For Each Hcr In Range("a1:a12")
If Hcr.MergeCells = False Then
MsgBox Hcr.Address
Exit For
End If
Next
End Sub

If Hcr.MergeCells = False Then

Sn uzmanamele verdiğiniz kod sanırım hücreler daha birleştirilmeden öncesinde çalışıyor, benim istediğim hücreler birleştirildikten sonra çalışması....

If Hcr.MergeCells = True Then

yaptığımda sadece ilk hücrenin adresini Range("a1") alabiliyoruz.

benim istediğim en son hücrenin Range("a12") adresini yada satır numarasını 12 görebilmek.

iyi Çalışmalar.

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

MsgBox [A12] & " - " & [A12].Address(0, 0)

 

[tamer42]

İstediğiniz böyle bir şey mi?

MsgBox [A12] & " - " & [A12].Address(0, 0)

Bitiş [A12] hücre adresini bilemiyoruz ve onu öğrenmek istiyorum.

Yalnız Başlangıç [A1] hücre adresini bilebiliyoruz.

[A1] hücresinden başlayarak [A2] , [A3] , ..........[A11] , [A12]

hücrelerinin birleştirilmiş olsun, en son hücre hangisi bunu öğrenmek istiyorum.

iyi çalışmalar.

 

[uzmanamele]

Bitiş [A12] hücre adresini bilemiyoruz ve onu öğrenmek istiyorum.

Yalnız Başlangıç [A1] hücre adresini bilebiliyoruz.

[A1] hücresinden başlayarak [A2] , [A3] , ..........[A11] , [A12]

hücrelerinin birleştirilmiş olsun, en son hücre hangisi bunu öğrenmek istiyorum.

iyi çalışmalar.

Merhaba
Kuyuya bir taş atıyorsunuz, buyrun çıkarın taşı diyorsunuz.
Basit bir örnek dosya eklemek bu kadar mı zor?!

 

[tamer42]

Merhaba
Kuyuya bir taş atıyorsunuz, buyrun çıkarın taşı diyorsunuz.
Basit bir örnek dosya eklemek bu kadar mı zor?!

Sn Uzmanamele Örnek Dosya ekte;

 

[uzmanamele]

Merhaba

Bu mudur?

 

[Merhum İdris SERDAR]

.

Ya da budur.:mrgreen:

.

 

[Korhan Ayhan]

Merhaba,

Bir alternatif çözümde ben öneriyim.

Sub SON_SATIR()
    If InStr(1, Range("A1").MergeArea.Address, ":") > 0 Then
        MsgBox Split(Range("A1").MergeArea.Address, "$")(4)
    End If
End Sub

 

[tamer42]

Merhaba,

Bir alternatif çözümde ben öneriyim.

Sub SON_SATIR()
    If InStr(1, Range("A1").MergeArea.Address, ":") > 0 Then
        MsgBox Split(Range("A1").MergeArea.Address, "$")(4)
    End If
End Sub

işte tam bunu arıyordum....

 

[tamer42]

.

Ya da budur.:mrgreen:

.

Sn Yurttaş teşekkürler,

Verdiğiniz kodda sayfa içindeki tüm birleştirilmiş hücreleri sırasıyla veriyor,

Sub Birlestirilmishucrebul()

Dim hcr As Range
Dim cvp As Long

For Each hcr In ActiveSheet.UsedRange.Cells
If hcr.MergeCells Then
If hcr.Address = hcr.MergeArea(1).Address Then

[d1] = hcr.MergeArea.Address

cvp = MsgBox("Devam edeyim mi?", Buttons:=vbYesNo)
If cvp = vbNo Then
Exit Sub

End If
End If
End If

Next hcr

End Sub

burada sadece bir hücreye [a1] referens vermek için nasıl bir düzenleme yapmak gereklidir?

iyi Çalışmalar.

 

[uzmanamele]

Merhaba

    MsgBox Hcr.Row - 1

 

[tamer42]

Merhaba

    MsgBox Hcr.Row - 1

Sn Uzmanamele & Yurttas

yukarıda sorduğum "bir hücreye referans verme" sorumun cevabı bu şekilde oluyor,

Sub Birlestirilmishucrebul_2()

Dim hcr As Range

Set hcr = Range("A1")

If hcr.MergeCells Then


    [d1] = hcr.MergeArea.Address


End If


End Sub

ilginize çok teşekkürler.....