A sütunu boyunca sıra no vermek

[EKREM1661]

Hayırlı Akşamlar Arkadaşlar..!

"A" sütununa düşey olarak alt alta, butona her tıklandığında sıra numarası veren bir makro gerekli.. (kendim oluşturduğum kod fazla dolaşmalı oldu)

forumdaki örnekleri de inceledim, benim istediğim düğmeden manuel olarak kullanılacak..

 

[Necdet]

Merhaba,

Sub Numarala()
For i = 2 To [B65536].End(3).Row
       Cells(i, "A") = i - 1
Next i
End Sub

 

[tahsinanarat]

SAYFANIN KOD KISMINA
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
rowoffset = 0
Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffset
End Sub

 

[EKREM1661]

Sayın Necdet Yesertener hocam..!

önce yardımınız için teşekkür ediyorum.. yukarıda verdiğiniz makro da güzel..
başka alanlarda kullanırım..ancak şu an istediğim:

1-numaraları toplu değilde her tıklanınca alt alta ve tek tek sıralasın
2-sağında (B sütununda) veri olup olmadığını dikkate almasın, yani her halükarda numarayı versin

 

[girdap]

Merhaba,

Ekteki dosyayı inceleyiniz. Aylığı sütununa girilesi şart. Bu sütuna göre sıralama gerçekleşmekte. Fonksiyonu Kopyalayın ve A hücresine kyarak aşağaya doğru çekip kopyalayınız. Örneğin bu tablonun ulaşabileceğini tahmin ettiğiniz son satıra kadar. Örneğin 1000. satıra kadar.
Fonksiyon olarak çözümleyebiliriz.

Saygılarımla

 

[Necdet]

Sayın Necdet Yesertener hocam..!

önce yardımınız için teşekkür ediyorum.. yukarıda verdiğiniz makro da güzel..
başka alanlarda kullanırım..ancak şu an istediğim:

1-numaraları toplu değilde her tıklanınca alt alta ve tek tek sıralasın
2-sağında (B sütununda) veri olup olmadığını dikkate almasın, yani her halükarda numarayı versin

Numara vermek kolay da, nerde duracak bu numaralandırma onu anlamadım. Açıklarsınız pek çok arkadaş yardımcı olur size.

 

[Necdet]

Bir fikir,

A sütununda hangi satırda Çift tıklanırsa A2 den itibaren tıklanan yere kadar numara verir. Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalanması gerekekir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
[A2:A65536].ClearContents
For i = 2 To Target.Row
    Cells(i, "A") = i - 1
Next i
End Sub

 

[EKREM1661]

sayın necdet hocam..!

numara toplu olarak verilmeyecek ve B sütunundaki veri karşılığına göre de verilmeyecek, butona tıklanırsa mevcut sıradaki rakamların altına bir rakam daha ekleyecek..

örneğinİ; A sütunu boyunca 120 ye kadar alt alta rakam mevcut olsun, butona tıklayınca 120 nin altına 121 yazacak..yani,

A sütunu boyunca, her tıklamada bir alt satıra inerek bir tek sıra numarası verecek..

 

[Necdet]

Merhaba, olay şimdi kısmi olarak anlaşılmıştır.

Public Sub Numarala()
Son = [A65536].End(3).Row + 1
Cells(Son, "A") = Son - 1
End Sub

 

[EKREM1661]

Saygıdeğer Necdet hocam..!

istediğim tam olarak halledildi..zahmet verdiğimim farkındayım..
hakkınızı helal edin ve başarılar diliyorum..
yukarıda diğer ilgilenen sn.girdap ve sn.tahsinanarat arkadaşlarada teşekkür ediyorum..

 

[Necdet]

Sayın exelim,

Mutlu yıllar dilerim.

 

[sefer1975]

sub sn()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
end sub


modül kısmına ekleyin kodu ve sayfada butona makro atayın

 

[sefer1975]

Range("a2").Select herhangi bir hücreyi seçtir

Do While Not IsEmpty(ActiveCell) seçilen aktiv hücrenin dolu yada boş olduğunu kontrol et
ActiveCell.Offset(1, 0).Select hücrenin aynı sutununda aşağı git
loop la yani boş olanı bulana kadar
if then koşulu
seçilen hücreye 1 yazdır
seçtir
seçili olanın değerine 1 ekle ve alt hücreye yaz