A sütunundaki değerlere göre b sütununa yazdırma

[Emrakin]

Merhaba arkadaşlar

Yapmak istediğim şey çok basit.(Bana değil tabi) Dosya Ek'tedir. A sütununda belirli değerler var, ona göre B sütununa ilgili şeyleri yazsın istiyorum. Excel 2003 kullanıyorum.

Teşekkür ederim şimdiden.

 

[Orion1]

Sizin için aşağıdaki KTF'yi yaptım.Kullanacağınız başka dosyalardada bu KTF'yi boş bir modüle yapıştırıutrınız.Büyük küçük harfe duyarlıdır.
Dosya ektedir.
Kullanışı;
=saybak(A1)

Function saybak(x As Range) As String
Dim i As Long, say As Long
i = x.Row
Do While Cells(i, x.Column).Value = x.Value
    say = say + 1
    i = i - 1
    If i < 1 Then Exit Do
Loop
saybak = x.Value & say
End Function

 

[Orion1]

2 nolu mesajda verdiğim KTF büyük küçük harfe duyarlı idi.
Şimdiki verdiğim ise büyük küçük harfe duyarsız.
Hangisini isterseniz onu kullananın.
Dosya ektedir.

Function saybak(x As Range) As String
Dim i As Long, say As Long, deg As String
i = x.Row
deg = UCase(Replace(Replace(x.Value, "ı", "I"), "i", "İ"))
Do While UCase(Replace(Replace(Cells(i, x.Column).Value, "ı", "I"), "i", "İ")) = deg
    say = say + 1
    i = i - 1
    If i < 1 Then Exit Do
Loop
saybak = x.Value & say
End Function