
Originariamente inviata da
cheta
Function estrai()
Dim i As Integer
Dim anno As Integer
i = 1
Do While Sheets(sx2009).Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
anno = Val(Mid(Cells(i, 1), 8, 2))
Exit Do
End If
i = i + 1
Loop
End Function
ho fatto questo ma non worka
Che non "worka" non vuol dire niente.. in cosa non funziona?
Devi dirgli dove mettere il valore estratto.. no?
Prova così:
codice:
Dim i As Integer
Dim anno As Integer
i = 1
Do While Sheets(sx2009).Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
anno = Val(Mid(Cells(i, 1), 8, 2))
'Exit Do <-----?????
Sheets(sx2009).Cells(i, COLONNA_CHE_TI_PARE).value = anno
End If
i = i + 1
Loop
End Function