Aktif hücrenin bulunduğu hücreye kadar numaralandırma

[zenselman]

sayfada bir hücrenin üzeride buton oluşturup, bu buton tıklandığında, butonun üzerinde üzerinde yer alan hücrelerin içini 1'den başlayarak butonu koyduğumuz hücreye kadar arttırsın.
Diyeceksiniz doldurma tutamacıyla sürükleyip yap. AMA ya bu hücrelerden bazıları bir sonraki hücreyle birleştirilmiş ise nasıl olacak.
Yani a2 ile a3, a5 ile a6 ve a7, a9 ile a10,a11,a12 birleştirilmiş olsun.
Butonumuz da a20 de olsun. a1 den a19 a kadar olan hücreleri nasıl 1,2,3,4,5,.. şeklinde doldururuz.

 

[emrexcel123]

kod

arkadaşım şu kodu dener misin >>

Sub aktif_hucre()
For a = 1 To ActiveCell.Row - 1
Cells(a, ActiveCell.Column) = a
Next
End Sub

ii çalışmalar...

 

[zenselman]

Teşekkürler ancak olmadı, ilk birleştirilmiş hücreden sonra kayma yapıyor.

 

[zenselman]

excelde "eğer aktif hücre birleştirilmiş hücre ise birleştirilmiş hücrenin referans adı" gibi bir ifade nasıl yazılır

 

[emrexcel123]

birleştirilmiş

arkadaşım döngü birleştirilmiş hücre ile karşılaşırsa ne yapmasını istiyorsun...

 

[Seyit Tiken]

İmleci aşağı getirip kodu çalıştırın.

Sub Makro1()
Range(Selection, Selection.End(xlUp)).Select
Selection.End(xlUp) = 1
Selection.DataSeries Rowcol:=xlColumns
ActiveCell.Select
End Sub

 

[zenselman]

İmleci aşağı getirip kodu çalıştırın.

Sub Makro1()
Range(Selection, Selection.End(xlUp)).Select
Selection.End(xlUp) = 1
Selection.DataSeries Rowcol:=xlColumns
ActiveCell.Select
End Sub

4. satırda hata veriyor. Hücrelerin boyutu aynı olmalıdır hatası veriyor. 4.satırda

 

[zenselman]

arkadaşım döngü birleştirilmiş hücre ile karşılaşırsa ne yapmasını istiyorsun...

numaralamaya devam etmesini istiyorum.

Yazılan iki makro da normal sütunları sayı ile dolduruyor, ama sütunda birleştirilmiş hücreler varsa, birleştirilmiş hücreden sonra hata veriyor.

Sizde dener misiniz? a2:a3 ile a5:a7 a9:a13 hücrelerini birleştirin a20 hücresine gelip makroyu çalıştırın

 

[Seyit Tiken]

Doğrudur, birleştirilmiş hücrede hata veriyor. Hücre birleştirme şart ve gerekli değilse kullanmayın yada başka alternatifler düşünün.

 

[zenselman]

Cevabı buldum teşekkürler..


Sub listele()
x = 0
For sat = 2 To 30
If Cells(sat - 1, 3) <> 0 Then
x = x + 1
Cells(sat, 3) = x
End If
Cells(sat, 3) = x
Next sat
End Sub