Değerleri Aynı Olan Hücrelere Sıra Numarası vermek

[kumbaroglu]

Arkadaşlar öncelikle merhaba,
Siteye yeni üye oldum ve içinden çıkamadım neredeyse,excelle ilgili çok yararlı hayat kurtarıcı nitelikte bilgiler var.
Ancak benim sorunumla ilgili bir dökümana ulasamadım.Şöyle ki bende yaklaşık 9000 satırlık bir excel dosyası var.Resim üzerinden anlatacak olursam

İcra_Dosya_No sütünundaki aynı değerlere aynı sıra numarası verilmesini istiyorum.Yani örnek olarak 2008/10100 olan değerlerin hepsinin sıra numarası 1,2008/10102 olan değerler 2,2008/10123 olan değerlerin sıra numarasıda 3 olacak şekilde.

Şimdiden yardımlarınız için teşekkür ediyorum.
RESİM LİNKİ : http://n1311.hizliresim.com/1h/d/ugjhw.jpg çıkmamış konuda.buradan bakabilirsiniz.

 

[tahsinanarat]

bu kodları modüle yapıştırarak bir butona atayıp deneyiniz

Sub Macro1()
Range("IV1:IV10000").Clear
Range("B1:B" & [B65536].End(3).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("IV1"), Unique:=True
Dim i As Long
For i = 2 To [B65536].End(3).Row
    Set Bul = Columns(256).Find(Cells(i, "B"))
    Cells(i, "A") = Bul.Row - 1
Next i
Range("IV1:IV10000").Clear
End Sub

modüle nasıl yapıştırılacağını anlatan link;
http://www.excel.web.tr/f157/modul-ekleme-resimli-anlatym-t73353.html

 

[kumbaroglu]

sevgili tahsinanarat öncelikle hızlı cevabınız için teşekkür ederim
Ancak Office 2010 kullandığım için modüle nasıl yapıştırılacağı hususunu bulamadım.Office 2010'a göre böyle bir anlatımda bulamadım.

 

[Murat OSMA]

■ Alternatif;

Sub Aynı_Olanlara_Sıra_No_Ver()
    Dim i%, say%
    For i = 2 To Range("B65536").End(3).Row
        If WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, 2)) = 1 Then
            say = say + 1: Cells(i, 1) = say
        End If
        If Cells(i, 1) = "" Then Cells(i, 1).FillDown
    Next i
    say = Empty: i = Empty
End Sub

 

[kumbaroglu]

http://www.excel.web.tr/f157/tum-excel-versiyonlarynda-yeni-modul-ekleme-gorsel-anlatym-t106452.html

Bu anlatımdaki gibi modül eklemek istiyorum ama 'Kod Görüntüle' resimde ki gibi soluk çıkıyor.
http://k1311.hizliresim.com/1h/d/ugl4r.jpg

 

[Murat OSMA]

Çlaışan bir makronuz olabilir, onu durdurun.

Ya da dosyanızı yollayın.

 

[kumbaroglu]

cEVAP

Dosyayı ekte sunuyorum saygılar.

 

[kumbaroglu]

cevap

Ayrıca bu dosyadada aynı işlemi yapmam gerekiyor.Affınıza sığınarak onuda upload ediyorum.

 

[Murat OSMA]

Ayrıca bu dosyadada aynı işlemi yapmam gerekiyor.Affınıza sığınarak onuda upload ediyorum.

Bu tarz kelimeleri pek kullanmayın...


Dosyalarınız ek'te.

 

[Mahir64]

Merhaba,

Formül ile çözüm isterseniz deneyiniz.
A1 hücresinde metin olduğu için EMETİNDEĞİLSE eklenmiştir.

=EĞER(EĞERSAY($B$2:B2;B2)=1;EĞER(EMETİNDEĞİLSE(A1)=YANLIŞ;1;A1+1);A1)