Konuya göre Numara arttırma

[Ergün GÖKER]

Öncelikle herkese hayırlı akşamlar. Bir kod hakkında değerli hocalarımın yardımlarını bekliyorum. Dosya içeriğinde yapmak istediğimi anlatmaya çalıştım. Yapacağınız yardımlar için şimdiden teşekkür ederim. saygılarımla

http://s3.dosya.tc/server10/k7wv3d/SUC_TAKIP_PROGRAMI.xls.html

 

[Asri]

D10 a aşağıdaki formülü yazıp aşağı çekin

=EĞERSAY($F$10:F10;F10)

 

[Ergün GÖKER]

Asri öncelikle teşekkür ederim
Formülle değilde bu makro ile yapılabilirmi?

 

[çıtır]

Dizi formülü ctrl+shift giriniz.

=EĞER(F10="";"";MAK(EĞER($F$10:F10=F10))

 

[vardar07]

Buyurun.

Sub sayy()
With Sheets("SUÇTAK")
For Each say In .Range("F10:F" & .Range("F" & Rows.Count).End(3).Row)
.Cells(say.Row, "D") = WorksheetFunction.CountIf(.Range("F10:F" & say.Row), .Cells(say.Row, "F"))
Next
End With
End Sub

 

[Ergün GÖKER]

Hocam teşekkur ederim. Deneyip donus yapacagim. Saygilarimla

 

[Ergün GÖKER]

Hocam hayırlı geceler.
Hocam kod çalışıyor kodu bir commandbuttona bağladım ve butona bastığımda sıralama yapıyor. Benim istediğim F hücresini doldurup çıktığım zaman sıra numarasını vermesini istiyorum. Saygılarımla

 

[turist]

Sayfa Kodu kısmına:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("F10:F" & Range("F" & Rows.Count).End(3).Row)) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, -2) = ""
Else
Target.Offset(0, -2) = WorksheetFunction.CountIf(Range("F10:F" & Target.Row), Cells(Target.Row, "F"))
End If
End Sub

deneyin.

 

[Ergün GÖKER]

Hocam saygılar.
Kod çalışıyor, Fakat şöyle bir durum var
normal kodu vererek gidiyor ve kod düzgün ama aradan herhangi birinde değişiklik yaptığım zaman yada sildiğim zaman tekrar bir düzenleme yapmıyor.
İlk numara vermiş haliyle duruyor. Umarım anlatabildim.