Birleştirilmiş hücrelerde sıra no

[turgayzeynep]

Hocam A1:A100 h hücreleri arasında otomatik olarak sıra numarası vermesini istiyorum 17 ve 18 hücreler birleştirilmiş olduğundan dolayı sıra no vermiyor

 

[Necdet]

Merhaba,
Fonksiyon ile çözümü var mı? araştırmadım.
Makrolu çözüm isterseniz, aşağıdaki kodları kendinize uyarlayınız.

Sub SeriNo()

Dim i As Long
Dim siraNo As Long
Dim sonSat As Long

sonSat = 20
siraNo = 100

Do
    i = i + 1
    siraNo = siraNo + 1
    Cells(i, "A") = siraNo
    If Cells(i, "A").MergeCells = True Then i = i + Cells(i, "A").MergeArea.Rows.Count - 1
Loop Until i > sonSat

End Sub

 

[ÖmerFaruk]

Formülle şöyle olabilir.

1. A sütununda hücreleri çöz deyin önce. Birleşmeleri iptal edin.
2. A2 ye kopyalayıp aşağı doğru çoğaltın =EĞERSAY($A$1:A1;">0")+1
3. Birleştirilecek hücreleri birleştirin.

Eğer birleşecek hücre sayısı fazla ise makro tavsiye edilir.