Puantajda devamsızlık işleme

[Feylosof]

Merhaba;
Ekte ayrıntılı göstermeye çalıştığım dosyada textbox1'e yazılan tarihten başlamak üzere PUANTAJ sayfasında textboz2 sayısı kadar textbox3 teki değeri sağa doğru yazacak bir koda ihtiyacım var siz değerli excel dostlarına şimdiden teşekkür ederim.

 

[Feylosof]

Konu günceldir. Yardımınızı istirham ediyorum.

 

[Korhan Ayhan]

Deneyiniz.

Satır olarak aktif olan satıra işlem yapılır.

Kodu çalıştırmadan önce 6. satırda bir hücre seçip formu çalıştırıp test edebilirsiniz.

Private Sub CommandButton5_Click()
    Dim S1 As Worksheet, Sutun As Integer
    
    Set S1 = Sheets("PUANTAJ")
    
    On Error Resume Next
    Sutun = Application.Match(CLng(CDate(TextBox1)), S1.Rows(5), 0)
    On Error GoTo 0
    
    If Sutun > 0 Then
        S1.Cells(ActiveCell.Row, Sutun).Resize(, TextBox2) = TextBox3
        MsgBox "Devamsızlık bilgileri kayıt edilmiştir.", vbInformation
    Else
        MsgBox "Aradığınız tarih bulunamadı!", vbCritical
    End If
End Sub

 

[Feylosof]

Sayın @Korhan Ayhan üstadım çok teşekkür ederim. Bu kod benim işimi kolaylaştıracak.