Özel Sıra No Verme

[csncesur]

A Sütununa sıra numarası verme (1,2,3,4 vb) işlemini manuel olarak yapıyorum.
Özel Sıra No Ver butonuna tıkladığım zaman A sütunundaki en son dolu hücrenin bir altına (İlk Boş Hücreye) Ö1, Ö1 varsa Ö2,Ö3 şeklinde devam etmesini istiyorum. Yardımlarınz için şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Sub OzelKodVer()
    Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = "Ö" & WorksheetFunction.CountIf(Range("A:A"), "Ö*") + 1
End Sub

 

[csncesur]

Merhaba.

Sub OzelKodVer()
    Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = "Ö" & WorksheetFunction.CountIf(Range("A:A"), "Ö*") + 1
End Sub

Çok teşekkür ederim Muzaffer bey

 

[AdemCan]

Merhaba, hazırlamışken paylaşayım, aynı işlemin uzun hali.

Sub test()
Dim s1 As Worksheet
Set s1 = Sayfa1
    say = WorksheetFunction.CountIf(s1.Range("A:A"), "Ö*")
    son = s1.Cells(Rows.Count, 1).End(3).Row + 1
    s1.Range("A" & son).Value = "Ö" & say + 1
End Sub

 

[Muzaffer Ali]

Çok teşekkür ederim Muzaffer bey

Rica ederim. Kolay gelsin.