Duplicating the ActiveCell

[Tripss]

I want to duplicate the active cell to specific cells on a calendar and everything seems to be right but my code as is does absolutely nothing. I added in a msgbox just to make sure that it is picking up the value of the active cell and it is however it cant seem to print it in the other cells. My code is as follows:


Sub DuplicateEverydayWholeMonth()

Dim locr As Integer
Dim locc As Integer
Dim duccounter As Integer
Dim durcounter As Integer
Dim desc As String

locr = ActiveCell.Row
locc = ActiveCell.Column
duccounter = 4
durcounter = 0
desc = ActiveCell.Value

Do While locr < wcounter
Do While locc <= 17
ActiveCell.Offset(durcounter, duccounter).Value = desc
duccounter = duccounter + 4
locc = locc + 4
Loop

If ActiveCell.Column = 2 Or 6 Or 10 Or 14 Then
locc = 2
ElseIf ActiveCell.Column = 3 Or 7 Or 11 Or 15 Then
locc = 3
ElseIf ActiveCell.Column = 4 Or 8 Or 12 Or 16 Then
locc = 4
ElseIf ActiveCell.Column = 5 Or 9 Or 13 Or 17 Then
locc = 5
Else
MsgBox ("Invalid Cell Selection")
Exit Sub
End If

locr = locr + 10
durcounter = durcounter + 10
Loop
MsgBox (desc)
End Sub

 

[DanteAmor]

I'm glad to help you.
Let's forget for a moment the code, explain with examples what you want to do.

 

[Tripss]

The code is supposed to duplicate text from the Active cell into other cells based the variables durcounter and duccounter. I think there is a problem with the syntax in the ActiveCell.Offset line. Please advise.

 

[Trebor76]

Though I don't understand your overall code, because nothing is getting assigned to the wcounter variable the code always bypasses the loop and goes straight to the message box i.e. this line is True at the start of the code:

Do While locr < wcounter

Step through the code (by pressing F8 from within the macro) to see what I mean if you're not sure.

HTH

Robert

 

[DanteAmor]

The code is supposed to duplicate text from the Active cell into other cells based the variables durcounter and duccounter. I think there is a problem with the syntax in the ActiveCell.Offset line. Please advise.

As I told you, forget the code, explain where you want to paste the cell, and the conditions to determine where to paste the cell.

 

[Tripss]

Though I don't understand your overall code, because nothing is getting assigned to the wcounter variable the code always bypasses the loop and goes straight to the message box i.e. this line is True at the start of the code:

Do While locr < wcounter

Step through the code (by pressing F8 from within the macro) to see what I mean if you're not sure.

HTH

Robert

The wcounter is a public variable calculated in another sub I have put in msgbox(wcounter) and it reads the correct value for wcounter. Which is either 40, 50 or 60 depending on if the user wants 4, 5 or 6 weeks on their calendar. Stepping through my code shows it is looping properly.