Private Sub CommandButton1_Click()
Dim ara As Range, satir%, n%, i&, kacinci%
On Error Resume Next
Set ara = Columns(3).Find(TextBox1.Value, , , 1)
If Not ara Is Nothing Then
satir = ara.Row
End If
For n = 1 To 5
For i = 8 To 38
kacinci = Weekday(Cells(9, i).Value, vbMonday)
If kacinci = n Then
Cells(satir, i) = Controls("gun" & n).Value
End If
Next i
Next n
End Sub
Private Sub CommandButton1_Click()
Dim n%, i&, s%, kacinci%
On Error Resume Next
Range("H13:AL34").ClearContents
For s = 13 To 33
For n = 1 To 5
For i = 8 To 38
If Cells(9, i).Value <> "" Then
kacinci = Weekday(Cells(9, i).Value, vbMonday)
If kacinci = n Then
Cells(s, i) = Cells(s, n + 49).Value
End If
End If
Next i
Next n
Next s
End Sub
son = Range("C65536").End(3).Row + 1
Range("H13:AL" & son).ClearContents