ID No Verme

[csncesur]

Ekli listedeki proje dosyamda A Sütununa manuel olarak RAKAM giriyorum. Eğer A sütünundaki hücreye PROJE yazdığımda sadece bu kelimeye sıra vermesini istiyorum. Örneğin; PROJE yazdığımda PROJE1, PROJE2 vb. şeklinde yazmasını istiyorum. Şimdiden Teşekkürler..

 

[bmutlu966]

Deneyin.

 

[Muzaffer Ali]

Merhaba.

Alternatif.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sira As Long
    If Not Intersect(Target, Range("A:A")) Is Nothing And Target = "PROJE" Then
        Sira = WorksheetFunction.CountIf(Range("A1:A" & Target.Row), "PROJE*")
        Target = Target & Sira
    End If
End Sub

 

[csncesur]

Merhaba.

Alternatif.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sira As Long
    If Not Intersect(Target, Range("A:A")) Is Nothing And Target = "PROJE" Then
        Sira = WorksheetFunction.CountIf(Range("A1:A" & Target.Row), "PROJE*")
        Target = Target & Sira
    End If
End Sub

Hocam biraz geç oldu ama çok teşekkür ederim elinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.