I want to copy a value from a previous sheet, every day.

[AnBu]

Hi everybody,

See file : I have an automatic copy of the sheet "Padrão" with an automatic filename = the date of the day.
All coded. This commandbutton is not show on the file.
To past the value of I35 to the next day in the cellI I34, i do it manually.

I will this coded.

My code to try this :

Private Sub CommandButton1_Click()
‘Creation of the formula in a cell Range(“I34’”)  of today’s sheet
                Dim Fname As Variant
                Fname = Format(Date - 1, "DD-MM-YYYY")
‘ Select  yesterdays sheet (sheetname is Fname), select a cell  value
                Range("I35").Select
‘ Sheet of today
‘Past formula in the sheet of today in cell “I34”    
                ActiveCell.FormulaR1C1 = "='fname'!R[1]C" (This doesn’t work!!!!!)
End Sub

This should be done every day automatically.

I need some help.