aynı gün yapılan girişleri numarandırma

[fedeal]

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("DATA").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("DATA").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("DATA").Range("A:A")) + 1

Sheets("DATA").Range("b" & Bos_Satir).Value = ComboBox1.Text
ComboBox1.Text = ""
Sheets("DATA").Range("c" & Bos_Satir).Value = TextBox1.Text
TextBox1.Text = ""
End Sub

yukarıdaki kodlarla sayfaya veri aktarıyorum benim istedigim d sütununa aynı gün yapılan işlemleri numaralandırma örnegin: bu gün yapılan ilk işlem için 1 ikincisi için 2 bu mümkünmü?

 

[Orion1]

Bir sütuna girdiğiniz verinin gününü yazdırınız.
Sonrada yeni veri yazarken ETOPLA 'yı worksheetfunction metodunu kullanınız.ve bu günkü tarihi sorgulayıp saydırarak 1 ekleyiniz.Bu durumda her yeni gin için girilemn o güne ait veri 1 artar.Kolay gelsin.

 

[fedeal]

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("DATA").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("DATA").Range("d" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("DATA").Range("d:d")) + 1

Sheets("DATA").Range("b" & Bos_Satir).Value = ComboBox1.Text
ComboBox1.Text = ""
Sheets("DATA").Range("c" & Bos_Satir).Value = TextBox1.Text
TextBox1.Text = ""
Sheets("DATA").Range("a" & Bos_Satir).Value = TextBox2.Text
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "data!B2: B" & Sheets("data").[B65536].End(xlUp).Row
TextBox2 = Format(Date)
End Sub

kodları bu şekil degiştirdim textbox ekledim.bilgim sınırlı oldugu için textbox2 degişince saymaya 1 den başlamasını nasıl yapacagımı anlamadım.bu arada örnek dosyayıda güncelleyecegim.ilgi ve yardımınız için teşekkürler evren bey.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("DATA").Range("A65536").End(xlUp).Row

    Bos_Satir = Son_Dolu_Satir + 1
   [B][COLOR="Red"] islem_no = WorksheetFunction.CountIf(Range("A2:A65536"), Date) + 1[/COLOR][/B]
    Sheets("DATA").Range("d" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("DATA").Range("d:d")) + 1
                   
    Sheets("DATA").Range("b" & Bos_Satir).Value = ComboBox1.Text
    ComboBox1.Text = ""
    Sheets("DATA").Range("c" & Bos_Satir).Value = TextBox1.Text
    TextBox1.Text = ""
    Sheets("DATA").Range("a" & Bos_Satir).Value = CDate(TextBox2.Text)
    Sheets("DATA").Range("A" & Bos_Satir).NumberFormat = "dd.mm.yyyy"
    [B][COLOR="red"]Range("D" & Bos_Satir).Value = islem_no[/COLOR][/B]
End Sub

 

[fedeal]

teşekkür ederim evren bey ilk mesajınızda anlatmak istediginizi şimdi anladım.iyi calışmalar.

 

[Orion1]

teşekkür ederim evren bey ilk mesajınızda anlatmak istediginizi şimdi anladım.iyi calışmalar.

Rica ederim.
İyi çalışmalar.