Ciao a tutti.. chiedo un rapido parere: dov è l'errore? perché mi dice sempre che c'è un Next senza For?
Sub Day()
Dim k As Integer, i As Integer
For k = 1 To 31
For i = 1 To 7
If i = 1 Then
Cells(c, 10) = sunday
Else
If i = 2 Then
Cells(c, 10) = monday
Else
If i = 3 Then
Cells(c, 10) = tuesday
Else
If i = 3 Then
Cells(c, 10) = wednesday
Else
If i = 4 Then
Cells(c, 10) = thursday
Else
If i = 5 Then
Cells(c, 10) = friday
Else
If i = 6 Then
Cells(c, 10) = saturday
End If
Next
Next
End Sub
Grazie mille!!!! :byebye:
Sub Day()
Dim k As Integer, i As Integer
For k = 1 To 31
For i = 1 To 7
If i = 1 Then
Cells(c, 10) = sunday
Else
If i = 2 Then
Cells(c, 10) = monday
Else
If i = 3 Then
Cells(c, 10) = tuesday
Else
If i = 3 Then
Cells(c, 10) = wednesday
Else
If i = 4 Then
Cells(c, 10) = thursday
Else
If i = 5 Then
Cells(c, 10) = friday
Else
If i = 6 Then
Cells(c, 10) = saturday
End If
Next
Next
End Sub
Grazie mille!!!! :byebye: