
Sub variabili_parametriche()
Dim sh1 As Worksheet
Set sh1 = Worksheets("Foglio1")
es1 = sh1.Range("A1").Value
es2 = sh1.Range("A2").Value
k = sh1.Range("K1").Value
For i = 1 To k
sh1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Formula = Concatenate(es, i)
Next i
End
End Sub
|
Sub variabili_parametriche()
Dim sh1 As Worksheet
Set sh1 = Worksheets("Foglio1")
k = sh1.Range("K1").Value
For i = 1 To k
esi = sh1.Range("A" & i).Value
Next i
For i = 1 To k
sh1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = esi 'non funziona!!
Next i
End
End Sub
|
