Aynı veriler

[teonet28]

Merhaba A sutununda yukarıdan aşşağıya bir çok veri olduğunu düşünelim. Aynı verilerin yanına 1-2-3 gibi sıra numarası yazdırabilir miyiz? Sadece aynı olanları gruplayacak şekildeki gibi, tek olanlarda ise 0 yazmalı. Şimdiden teşekkürler

 

[yanginci34]

B1 e bu formülü yazarak aşağı doğru sürükleyip denrmisiniz.

=EĞER(EĞERSAY(DOLAYLI("A1:A"& BAĞ_DEĞ_DOLU_SAY(DOLAYLI("A1:A1000"))),A1)=1,0,EĞERSAY($A$1:A1,A1))

 

[teonet28]

Merhaba Sayın Yangıncı aşağıdaki hatayı alıyorum

ilk karakter bir eşittir (=) veya eksi (-) simgesi olduğunda, excel bunun bir formul olduğunu düşünür.

 

[cemshan]

Bu işinize yarar mı ?

b1 e uygulayın

=EĞER(EĞERSAY(A:A;A1)>1;BİRLEŞTİR(A1&-EĞERSAY(A:A;A1));A1)

 

[mesuttasar]

Aşağıdaki kodları deneyebilirsiniz.

Sub test()
Dim i, a, say As Integer
Range("B1:B10000").ClearContents
a = [A100000].End(3).Row

For i = 1 To a - 1
If Cells(i, 2) = "" Then
    say = 0
    For j = i + 1 To a
        If Cells(i, 1) = Cells(j, 1) Then
        say = say + 1
            If Cells(i, 2) = "" Then
            Cells(i, 2) = say
            End If
       Cells(j, 2) = say + 1
       End If
    Next j
End If
Next i

For i = 1 To a
    If Cells(i, 2) = "" Then
    Cells(i, 2) = 0
    End If
Next i
End Sub

 

[Necdet]

Merhaba,

=EĞERSAY($A$1:A1;A1)

 

[erdmkrky]

@cemshan 'ın bahsettiği formülde her veriden kaç adet olduğunu yazıyoruz.

Aynı formülde birkaç $ işareti ile istediğiniz gibi her verinin ayrı ayrı kaçıncı olduğunu görebilirsiniz.

=EĞER(EĞERSAY(A:A;A1)>1;BİRLEŞTİR(A1&-EĞERSAY($A$1:$A1;A1));A1)

verinin kendisi görünsün istemiyorsanız tabi, yani sadece kaçıncı olduğunu görmek istiyorsanız, aynı formülde bulunan BİRLEŞTİR formülü silmeniz yeterli olacaktır.

=EĞER(EĞERSAY(A:A;A1)>1;EĞERSAY($A$1:$A1;A1);A1)

kaldı ki ilk yanıt olan @yanginci34 'ün vermiş olduğu formül de bununla aynı sonucu veriyor.

hata almanızın sebebi formüldeki "," virgüllerden kaynaklı, virgüllerin hepsini ";" noktalı virgüle çevirirseniz bu formül de çalışacaktır.

=EĞER(EĞERSAY(DOLAYLI("A1:A"& BAĞ_DEĞ_DOLU_SAY(DOLAYLI("A1:A1000")));A1)=1;0;EĞERSAY($A$1:A1;A1))

 

[teonet28]

Sayın Mesut Kodlar tam istediğim sonuca ulaştırdı. değerli desteğin için teşekkürler

 

[teonet28]

Sayın Necdet Bey
istediğim sonucu verdi değerli desteğin için teşekkürler. İki farklı seçenek oldu elimde sağolun

 

[teonet28]

Sayın Erdem Bey
dediğiniz gibi. yaztığınız düzeltme sonucu oldu. Çok değerli hocalarım sayesinde 3 farklı çözüm yolum oldu. çok teşekkürler