Forum Discussion

Bart en Els 09's avatar
Bart en Els 09
Copper Contributor
Mar 07, 2018

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 put K and in B7 (friday) you put K.

 

I tried to make a macro but when I wonna repaet the K-K-R-K-K is doesn't work ,to start from B10(week after)-B15

 

Can I change the macro?

Excel Desktop
Macros & VBA

1 Reply

Sort By
  • Anonymous's avatar
    Anonymous
    Mar 07, 2018

    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

Resources