Slight change needed for Code!

[Bob]

Can "CopyFormat" be added to this VBA Code?

Sub MonthPlus()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 43, .Column - 8).Select
ActiveCell.FormulaR1C1 = "=R[-2]C+30"

End With
End Sub


Thanks in advance.........Bob Vance

 

[Myrna Larson]

From which cell do you want to copy the format? The TopLeftCell?

 

[Bob]

The cell 2 above of where select is, it is copy what's in there but not the
format?, TIA Bob

From which cell do you want to copy the format? The TopLeftCell?

Can "CopyFormat" be added to this VBA Code?

Sub MonthPlus()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 43, .Column - 8).Select
ActiveCell.FormulaR1C1 = "=R[-2]C+30"

End With
End Sub


Thanks in advance.........Bob Vance

 

[Tom Ogilvy]

See answer in Misc or wherever else you posted this.

--
Regards,
Tom Ogilvy

The cell 2 above of where select is, it is copy what's in there but not the
format?, TIA Bob

From which cell do you want to copy the format? The TopLeftCell?

Can "CopyFormat" be added to this VBA Code?

Sub MonthPlus()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 43, .Column - 8).Select
ActiveCell.FormulaR1C1 = "=R[-2]C+30"

End With
End Sub


Thanks in advance.........Bob Vance