errore su macro banale

[apocrimata75]

Date le macro

Codice: Seleziona tutto

Sub Macro31()
'
' Macro31 Macro
'

'
    Sheets("acquisti").Select
    Range("B2:D2").Select
    Selection.AutoFill Destination:=Range("B2:D" & [bk1]), Type:=xlFillDefault
    Range("B2:D" & [bk1]).Select
Calculate
    Range("B3:D" & [bk1]).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

e

Codice: Seleziona tutto

Sub Macro30()
'
' Macro30 Macro
'

'
    Sheets("acquisti").Select
    Range("B2:D2").Select
    Selection.AutoFill Destination:=Range("B2:D391"), Type:=xlFillDefault
    Range("B2:D391").Select
Calculate
    Range("B3:D391").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

non capisco perchè la prima mi dia il seguente errore


free image upload

eppure dovrebbe essere una semplice "copia in basso" fino al rigo definito dalla cella bk1

Dove sbaglio?

[Zer0Kelvin]

Ciao,
Penso che sei vittima di uno degli episodi di follia del vba di Excel.
Prova semplicemente a cancellare la riga e riscriverla, l'errore dovrebbe scomparire.

[apocrimata75]

Niente da fare. Ho pure tolto il "calculate" ma niente

[Zer0Kelvin]

Resto dell'dea che sia un bug del vba.
Prova ad eliminare dal codice i riferimenti tramite parentesi quadre (che microsoft ha dichiarato "deprecated" già da parecchio) e sostituiscili con riferimenti espliciti al range.
sostituisci

Codice: Seleziona tutto

[bk1]

con

Codice: Seleziona tutto

Range("BK1").Value

e così via
PS: dal "look" deduco che tu stia usando Excel 2013, che mi sembra si stia rivelando una vera e propria miniera di insidiosi bug...

[apocrimata75]

Perfetto sostituendo funziona, grazie mille.

Uso office 2010