Forum Discussion
repaet in excell /macro
Every month I have tot give in the same info into excell.
for example: In B3(cellname: monday) you put K, in B4 (cellname : thuesday) you put K, in B5 (wednesday) you put R, in B6 ( thursday) you ...
Sub AddWeekStart()
Dim R As Long
Dim arrWk(1 To 5, 1 To 1) As String
arrWk(1, 1) = "K"
arrWk(2, 1) = "K"
arrWk(3, 1) = "R"
arrWk(4, 1) = "K"
arrWk(5, 1) = "K"
R = Cells(Rows.Count, 2).End(xlUp).Row + 3
Cells(R, 2).Resize(5, 1).Value = arrWk
End Sub