Adet Sayısı Sadece 1 den Fazla Olanlara Numara Vermek(ÇÖZÜLDÜ)

[esraerzincan]

Arkadaşlar elimizde çeşitli ürünler var bunlardan öncelikle kaç tane olduğunu saydırıp daha sonra toplamı 1 den fazla olanlara yine 1 den başlayarak grup numarası vermek istiyorum ama günlerdir uğraşmama rağmen bulamadım.Yardımcı olursanız çok sevinirim.

a 1
a 1
a 1
b
c 2
c 2
d
e 3
e 3

 

[turist]

Sayın @esraerzincan ,
Forumumuza hoşgeldiniz.
Ürünlerinizin, sayfada A sütununda olduğunu ve A2 den itibaren aşağıya kadar sıralı olduğunu varsayarak;
Önce Ürünlerinizi A-Z (Alfabetik veya sayısal olarak Küçükten Büyüğe) sıralayın.
Sonra aşağıdaki kodu deneyin.
Sub say()
a = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) = 1 Then
Cells(i, 2) = ""
a = a + 1
Else
Cells(i, 2) = a
End If
Next
End Sub

 

[Ömer BARAN]

Merhaba.

Konuyu Makro VBA bölümüne açmışsınız (sağ olsun Sayın @turist de gereken cevabı vermiş).

Belki lazım olur diye ben de formül ile çözüm önerisinde bulunayım.
Aşağıdaki formülü B2 hücresine uygulayın ve liste boyunca kopyalayın.
.

=EĞER(EĞERSAY($A:$A;A2)=1;"";EĞERSAY($A$1:A2;A2))

 

[esraerzincan]

Merhaba.

Konuyu Makro VBA bölümüne açmışsınız (sağ olsun Sayın @turist de gereken cevabı vermiş).

Belki lazım olur diye ben de formül ile çözüm önerisinde bulunayım.
Aşağıdaki formülü B2 hücresine uygulayın ve liste boyunca kopyalayın.
.

Burada şöyle bir sorun oluyor aynı ürüne farklı grup numaraları atanmış oluyor.Aynı ürünlere 1 den başlayarak aynı grup numarasını vermesi lazım.Bakıp ilgilendiğiniz için teşekkür ederim.

 

[esraerzincan]

Sayın @esraerzincan ,
Forumumuza hoşgeldiniz.
Ürünlerinizin, sayfada A sütununda olduğunu ve A2 den itibaren aşağıya kadar sıralı olduğunu varsayarak;
Önce Ürünlerinizi A-Z (Alfabetik veya sayısal olarak Küçükten Büyüğe) sıralayın.
Sonra aşağıdaki kodu deneyin.
Sub say()
a = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) = 1 Then
Cells(i, 2) = ""
a = a + 1
Else
Cells(i, 2) = a
End If
Next
End Sub

denedim ama bunda ise sadece 3 ve 4 olarak iki farklı numara verdi

 

[Ömer BARAN]

Tekrar merhaba.
Benim verdiğim formülün uygulandığı ve hatalı olduğunu belirttiğiniz bir örnek belge (hatalı olanların yanlarına doğrularını elle yazarak örneklendiriniz) yüklemenizi rica ediyorum.
Verdiğim formülün hatalı sonuç vermemesi lazım çünkü.
.

 

[turist]

Sayın @esraerzincan
Doğru cevabı bulabilmeniz için lütfen "Örnek Excel" dosyanızı ekleyip, üzerinde açıklama yapınız.
Örnek dosya için:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/

 

[çıtır]

Açıklamalarınıza göre oluşturulmuş çözüm dosyası ekdedir.
https://www.dosyaupload.com/e6wp

 

[esraerzincan]

Açıklamalarınıza göre oluşturulmuş çözüm dosyası ekdedir.
https://www.dosyaupload.com/e6wp

Çok teşekkür ederim ifade etmek istediğim buydu.Bir dahaki sefere dosya ekleyerek açıklama yapacağım kusura bakmayın ilgilendiğiniz için teşekkür ederim

 

[çıtır]

Çok teşekkür ederim ifade etmek istediğim buydu.Bir dahaki sefere dosya ekleyerek açıklama yapacağım kusura bakmayın ilgilendiğiniz için teşekkür ederim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.