Soru vba sıra no

[sirkülasyon]

Bos_Satir = Son_Dolu_Satir + 1
S1.Range("b" & Bos_Satir).Value = Application.WorksheetFunction.Max(S1.Range("b:b")) + 1
S1.Range("c" & Bos_Satir).Value = ListBox3

Ustam
Yukarıdaki kod ile C sütununa bakıyor dolu ise B sütununa sıra numarası veriyor.

Bu kodu E sütununa bakacak isim ve soyisim aynı ise 1,2,3 gibi sıra no verecek isim değiştiği an tekrar 1,2,3 gibi sıra no verecek şekilde nasıl değiştirebilirim?

 

[muygun]

Merhaba;
Sizin kodlara uyarlamaya çalıştım:

S1.Range("b" & Bos_Satir) = WorksheetFunction.CountIf(Range("e1:e" & Bos_Satir), Cells(Bos_Satir, "e"))

Sayfa1 i döngüsüne bağlı olarak tanımlarsak:
WorksheetFunction.CountIf(Sheets("sayfa1").Range("e1:e" & i), Sheets("sayfa1").Cells(i, "e"))
Gibi...

İyi çalışmalar.

 

[sirkülasyon]

Muygun Ustam
Kod sıra no olarak hep 1 rakamını veriyor

 

[muygun]

Örnek dosya olmayınca ne olduğu anlaşılmıyor.
Ekteki uygulama ve kodları inceleyin.
İyi çalışmalar.

 

[sirkülasyon]

Muygun Abi Teşekkür ederim