Tarihe göre sıra numarası vermesi

[bedri41]

İlişikteki örnek dosya içerisinde de açıkladığım, kayıt yaparken sıra numarası vermesi ve tarih değiştiğinde yeniden 1 den başlayarak numaralandırması için makroya yardım rica ediyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
   If ComboBox1.Value = "" Or ComboBox2.Value = "" Then
        MsgBox "EKSİK BİLGİ GİRİŞİ YAPTINIZ KONTROL EDİNİZ", vbInformation
        Exit Sub
    End If
    With Sheets("GIRIS")
        satır = .Range("B65536").End(3).Row + 1
            .Cells(satır, 2) = Format(TextBox1, "dd.mm.yyyy")
                If .Cells(satır, 2).Value <> .Cells(satır - 1, 2).Value Then
                    .Cells(satır, 1).Value = 1
                Else
                    .Cells(satır, 1).Value = .Cells(satır - 1, 1).Value + 1
                End If
            .Cells(satır, 3) = ComboBox1
            .Cells(satır, 4) = ComboBox2
            .Cells.EntireColumn.AutoFit
    End With
End Sub

 

[bedri41]

Çok teşekkür ederim.

 

[dEdE]

Rica ederim.
Güle güle kullanın.