A sütununda tekrar eden her bir kod için B sütununda kod oluşturmak

[bilal5412]

Merhaba arkadaşlar,

Ekteki bağlantıda A sütununda birbirinden farklı ve tekrar eden kodlar vardır.

Yapılmak istenen ise; A sütununda tekrar eden her bir kod için tekrar sayısı kadar B sütununa 0010 dan başlayarak katları şeklinde 0020,0030... şeklinde değer vermek istiyorum.

** A sütununda boşluk yoktur. Satır sayısı belirsizdir. Tekrar eden kodlar aynı sütunda farklı satırda olabilir.

Örnek çalışma ekteki gibidir.

Şimdiden yardımlarınız için teşekkürler. Saygılar.

https://drive.google.com/file/d/0B3wJKQcxKCV4RTl2S080Ukxad1k/view?usp=sharing

 

[Orion1]

B2 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayınız.

=EĞERSAY($A$2:$A$103;$A2)*10

 

[bilal5412]

B2 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayınız.

=EĞERSAY($A$2:$A$103;$A2)*10

Merhaba,

Formül sonucu ile bağlantıdaki örnek çalışmam uyuşmadı. Tekrar bakabilir misiniz. Hata mı yapıyorum acaba.

 

[Orion1]

Merhaba,

Formül sonucu ile bağlantıdaki örnek çalışmam uyuşmadı. Tekrar bakabilir misiniz. Hata mı yapıyorum acaba.

Dosyanızı aşağıdaki linkten indirebilirisiniz.

DOSYAYI İNDİR
..

 

[bilal5412]

Dosyanızı aşağıdaki linkten indirebilirisiniz.

DOSYAYI İNDİR
..

Sayın Orion1

Bu formül aynı koddan aynı sütunda kaç adet tekrar ediyorsa B sütununa tekrar sayısı x 10 işlem sonucu yazıyor. Fakat örnek çalışmadaki istenen ise, tekrar eden sayı kadar 10 ve katları şeklinde yazdırılmasıdır. (10,20,30 şeklinde)

 

[Orion1]

Sayın Orion1

Bu formül aynı koddan aynı sütunda kaç adet tekrar ediyorsa B sütununa tekrar sayısı x 10 işlem sonucu yazıyor. Fakat örnek çalışmadaki istenen ise, tekrar eden sayı kadar 10 ve katları şeklinde yazdırılmasıdır. (10,20,30 şeklinde)

10 un katları için 10 ile çarpmak gerekmiyormu?

 

[bilal5412]

10 un katları için 10 ile çarpmak gerekmiyormu?

Mesela, Y.D.R100.221271 bu kodu ele alalım. Ekteki bağlantıda toplamda 3 kere tekrar ediyor.

Sizin formülünüzün sonucu:

Y.D.R100.221271 : 30
Y.D.R100.221271 : 30
Y.D.R100.221271 : 30

Benim istediğim ise:

Y.D.R100.221271 : 0010
Y.D.R100.221271 : 0020
Y.D.R100.221271 : 0030

 

[Korhan Ayhan]

B2 hücresine uygulayıp alt hücrelere sürükleyiniz.

=METNEÇEVİR(EĞERSAY(A$2:A2;A2)*10;"0000")

 

[Orion1]

B2 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın.

=EĞER($A2=$A1;$B1+10;10)

 

[bilal5412]

B2 hücresine uygulayıp alt hücrelere sürükleyiniz.

=METNEÇEVİR(EĞERSAY(A$2:A2;A2)*10;"0000")

Desteğiniz için çok teşekkürler. Saygılar. Sorum çözülmüştür.

 

[bilal5412]

B2 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın.

=EĞER($A2=$A1;$B1+10;10)

Sayın Orion1

Emeğiniz ve ilginiz için çok teşekkürler. Sorum çözülmüştür.

 

[bilal5412]

B2 hücresine uygulayıp alt hücrelere sürükleyiniz.

=METNEÇEVİR(EĞERSAY(A$2:A2;A2)*10;"0000")

Korhan Bey,

Formülün, makro kodunun yazılması hususunda yardımcı olabilir misiniz. Birden çok dosyada zaman açısından excel eklentilerinde F3 tuşuna kısayol eklemek adına yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Alan seçip aşağıdaki kodu çalıştırdığınızda seçili alanın hemen sağına istediğiniz numaralandırmayı yapar.

Sub Makro1()
    With Selection.Offset(0, 1)
        .NumberFormat = "General"
        .Formula = "=TEXT(COUNTIF(R2C[-1]:RC[-1],RC[-1])*10,""0000"")"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

 

[vardar07]

Merhaba. Gerçi Korhan bey cevap vermiş alternatif olsun.

Sub say()
For i = 2 To Sheets("sayfa1").Range("A2").End(xlDown).Row
Cells(i, 2).FormulaR1C1 = "=TEXT(COUNTIF(R2C[-1]:RC[-1],RC[-1])*10,""0000"")"
Cells(i, 2).Value = Cells(i, 2).Value
Next
End Sub

 

[bilal5412]

Alan seçip aşağıdaki kodu çalıştırdığınızda seçili alanın hemen sağına istediğiniz numaralandırmayı yapar.

Sub Makro1()
    With Selection.Offset(0, 1)
        .NumberFormat = "General"
        .Formula = "=TEXT(COUNTIF(R2C[-1]:RC[-1],RC[-1])*10,""0000"")"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

Korhan Bey destekleriniz için çok teşekkür ederim.

Ekteki yazmış olduğunuz makroda, alanı manuel seçmenin yanında A sütunundaki boş olmayan hücreler için de bu işlemi yapmayı olanak sağlayan kodu paylaşabilir misiniz.

Saygılar.

 

[Korhan Ayhan]

Deneyiniz...

Sub Makro1()
    With Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Offset(0, 1)
        .NumberFormat = "General"
        .Formula = "=TEXT(COUNTIF(R1C[-1]:RC[-1],RC[-1])*10,""0000"")"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

 

[bilal5412]

Deneyiniz...

Sub Makro1()
    With Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Offset(0, 1)
        .NumberFormat = "General"
        .Formula = "=TEXT(COUNTIF(R1C[-1]:RC[-1],RC[-1])*10,""0000"")"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

Teşekkürler.