
Option Explicit
Sub scrivi()
Dim Uriga1 As Long, X As Long
Uriga1 = Range("C" & Rows.Count).End(xlUp).Row
For X = 1 To Uriga1
If Cells(X, 3).Value <> 0 Then
Cells(X, 8) = Cells(X, 3)
End If
Next X
End Sub |
Dim Uriga1 As Long, X As Long
Uriga1 = Range("C" & Rows.Count).End(xlUp).Row
For X = 1 To Uriga1
If Cells(X, 3).Value <> 0 Then
Cells(X, 8) = "=VLOOKUP(RC[-5],[Unione2.xlsm]Foglio1!C1:C4,4,0)"
End If
Next X |
