Ho la seguente Macro, semplice, sicuramente non ottimizzata, ma di facile lettura.
- Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Dim Month, Year As String
Dim i, YearNum As Integer
Set Ws1 = Worksheets("Foglio 1")
For i = 6 To 13
Month = Left(Cells(66, i + 12), 4)
Year = Right(Cells(66, i + 12), 2)
YearNum = CInt(Year)
YearNum = YearNum - 1
Year = CStr(YearNum)
Ws1.Cell(66,i).value = Month & Year
Next i
End Sub
La riga seguente mi genera l'errore 438.
- Codice: Seleziona tutto
Ws1.Cell(66,i).value = Month & Year
Come mai? Non riesco a venirne a capo.