Sub Salvamanonchiudi()
'
' Salva Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
Dim lr As Long
'--- determina la prima riga disponibile del foglio ARCHIVIO
lr = Sheets("Database").Cells(Rows.Count, "A").End(xlUp).Row + 1
'--- tanto per capire:
'--- l'operatore & o di concatenamento, è utilizzato per concatenare due stringhe
'--- se lr=25 il risultato di questa "A" & lr & ":B" & lr sarà "A25:B25"
'--- utilizza questa, con riga destinazione variabile
Sheets("Inserimento").Range("I8").Copy Sheets("Database").Range("A" & lr)
'
' Salva Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
'--- determina la prima riga disponibile del foglio ARCHIVIO
lr = Sheets("Database").Cells(Rows.Count, "B").End(xlUp).Row + 1
'--- tanto per capire:
'--- l'operatore & o di concatenamento, è utilizzato per concatenare due stringhe
'--- se lr=25 il risultato di questa "A" & lr & ":B" & lr sarà "A25:B25"
'--- utilizza questa, con riga destinazione variabile
Sheets("Inserimento").Range("I21").Copy Sheets("Database").Range("B" & lr)
Dim SH As Worksheet
Dim Rng As Range
Set SH = Sheets("Database") '<<=== da CAMBIARE
Set Rng = SH.Range("C" & lr) '<<=== da CAMBIARE
Rng.Value = Application.UserName
Sheets("Database").Select
Range("D" & lr).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Date & " "
Sheets("Inserimento").Select
Range("I8").ClearContents
Range("I21").ClearContents
ActiveWorkbook.Save
End Sub