seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhabalar.Aşağıdaki kod ile Kayıt sayfasında X.satırın C sutunundan başlayarak sırasıyla D-E-F-G-H-I-J-K-L-M-N-0 sutunlarına kayıt yapacak kod yazmaya çalıştım ama olmadı.Yardımcı olursanız sevinirim.
Private Sub CommandButton19_Click()
Dim s1 As Worksheet
Dim x,sonsut As Integer
Set s1 = Sheets("Kayıt")
For x = 1 To s1.Cells(Rows.Count, "a").End(xlUp).Row
For sonsut = 3 To s1.Cells(3, Columns.Count).End(xlToLeft).Column + 1
If s1.Cells(x, "a") = TextBox19.Text And CDate(s1.Cells(x, "b")) = CDate(TextBox2) Then
s1.Cells(x, sonsut) = TextBox3
End If
Next: Next
End Sub
Private Sub CommandButton19_Click()
Dim s1 As Worksheet
Dim x,sonsut As Integer
Set s1 = Sheets("Kayıt")
For x = 1 To s1.Cells(Rows.Count, "a").End(xlUp).Row
For sonsut = 3 To s1.Cells(3, Columns.Count).End(xlToLeft).Column + 1
If s1.Cells(x, "a") = TextBox19.Text And CDate(s1.Cells(x, "b")) = CDate(TextBox2) Then
s1.Cells(x, sonsut) = TextBox3
End If
Next: Next
End Sub