Sub copia_articolo()
Sheets("data_base").Unprotect "123456"
copia = ActiveCell.Value
UltimaRiga = Sheets("data_base").Range("A" & Rows.Count).End(xlUp).Row
Sheets("data_base").Cells(UltimaRiga + 1, 1) = copia
Sheets("data_base").Protect "123456"
End Sub
non si può copiare celle unite in una cella singola, però si può ricavare il dato della cella unita e metterlo nella cella singola
[Modificato da patel45 08/01/2017 18:20]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta