Ciao a tutti.
Questa macro:
Sub rimetti_formula_input()
Dim Ur As Long
Dim I As Long
Foglio2.Unprotect "987654"
For I = 52005 To 7 Step -1
If Cells(I, 2) = "ultima riga" Then
Rows(I).Delete
End If
Next I
Ur = Range("B" & Rows.Count).End(xlUp).Row '<<< ultima riga
Foglio2.Range("A6") = "1"
Foglio2.Range("A7") = "1"
'Foglio2.Range("A8:A2000").Formula = "=IFERROR(IF(RC[1]<>"""",R[-1]C+1,""""),"""")"
Foglio2.Range("A8:A" & Ur).Formula = "=IFERROR(IF(RC[1]<>"""",R[-1]C+1,""""),"""")"
'ActiveCell(s).Select 'si ferma ultima/cella riga
Foglio2.Protect "987654"
End Sub
rimette la formula "=IFERROR(IF(RC[1]<>"""",R[-1]C+1,""""),"""")"
nella colonna A finchè trova la parola ultima riga nella colonna B.
Se è così funziona, si inseriscono le formule
Foglio2.Range("A8:A2000").Formula = "=IFERROR(IF(RC[1]<>"""",R[-1]C+1,""""),"""")"
ma con questo
Foglio2.Range("A8:A" & Ur).Formula = "=IFERROR(IF(RC[1]<>"""",R[-1]C+1,""""),"""")"
non si inserisce nulla.
Un aiuto?
Grazie
---------------
excel 2007