Otomatik Seri Doldurma

[sahille]

Merhabalar,

Ekteki excelde birinci sütunda yer alan kodları ikinci sütuna kopyalayıp, kodun sonuna 5 haneli ve sıralı bir kod daha eklemeyi otomatik olarak nasıl yapabilirim?
Birinci sütundaki kod değiştikçe, ikinci sütundaki 5 haneli ek kodda da numaratör yeniden 1'den başlaması gerekiyor.

Benzer durum üçüncü ve dördüncü sütunlarda da yaşanmaktadır.

Ekte birkaç seriyi örnek olarak doldurdum.

Bu konuda yardımcı olabilirseniz yaklaşık 10000 satırı elle doldurmaktan kurtulacağım,

Şimdiden çok teşekkürler

 

[ÖmerBey]

Merhaba,
B3 hücresine aşağıdaki formülü yazıp aşağı çekerek kopyalayınız.

=A3&" "&YİNELE(0;5-UZUNLUK(EĞERSAY(A$3:A3;A3)))&EĞERSAY(A$3:A3;A3)

D3'e de aşağıdakini:

=C3&" "&EĞERSAY(C$3:C3;C3)

 

[sahille]

Çok teşekkür ederim,

Formül çalıştı ancak kırmızı ile işaretlediğim alanda hata var gibi görnüyor, seriye yeniden başlamamış.
Bir de 5 haneli ek koddan önce nasıl nokta koyabiliriz?

Tekrar çok teşekkür ediyorum

 

[ÖmerBey]

Yazdığınız hatayı gideremedim maalesef.
O verileri bir öncekiyle aynı görüyor...
Yine de diğer sorunuzu cevaplayım.
Nokta koymak için formülü aşağıdaki şekilde düzenleyiniz.

=A3&[COLOR="Red"]"."[/COLOR]&YİNELE(0;5-UZUNLUK(EĞERSAY(A$3:A3;A3)))&EĞERSAY(A$3:A3;A3)

Alternatif:
Eğer makro kullanmak isterseniz. Aşağıdaki kodu bir deneyiniz.

Sub KodOluştur()
ayraç = "."
For a = 3 To Range("A65500").End(3).Row
    If Cells(a, "A") <> Cells(a - 1, "A") Then say = 1
    Cells(a, "[COLOR="red"]E[/COLOR]") = Cells(a, "A") & ayraç & Format(say, "00000")
    say = say + 1
Next
End Sub

Ayracı ve kayıt yapılacak sütunu isteğiniz doğrultusunda değiştiriniz.

 

[sahille]

Çok teşekkür ediyorum yardımlarınız için...

 

[ÖmerBey]

Rica ederim...
Yukarıda makro kodu verdim ama formül kullanmak isterseniz formülü aşağıdakiyle değiştiriniz.
Daha önceki mesajınızda belirtilen hata bu formülle ortadan kalktı:

=A3&"."&YİNELE(0;5-UZUNLUK(TOPLA.ÇARPIM((A$3:A3=A3)*1)))&TOPLA.ÇARPIM((A$3:A3=A3)*1)

İyi çalışmalar...

 

[sahille]

Çok çok teşekkür ediyorum,
Kendi problemlerinize de böyle hızlı çözüm sunulması dileğiyle,
Tekrar teşekkürler