
Option Explicit
Sub Controllo()
Dim uRiga As Long, Valori As String, rigaAB As Long
uRiga = Range("I" & Rows.Count).End(xlUp).Row
rigaAB = IIf(Range("AB1").Value = "", 1, Range("AB" & Rows.Count).End(xlUp).Row + 1)
If Range("I" & uRiga).Value = 0 Then
Valori = Range("E" & uRiga).Value & " " & Range("F" & uRiga).Value & _
" " & Range("G" & uRiga).Value
Range("AB" & rigaAB).Value = Valori
MsgBox "Valori aggiunti!"
End If
End Sub |
