VBA funzione MID con ciclo do while

[cheta]

i = 1
riga = 1


Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then

ora dovrebbe startare dal carattere 8 , 2 = "09"
e riportarlo su un altro foglio excel

[oregon]

i = 1
riga = 1


Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then

ora dovrebbe startare dal carattere 8 , 2 = "09"
e riportarlo su un altro foglio excel

Ma dov'è il codice che legge dal file?

[cheta]

Ma dov'è il codice che legge dal file?

scusa lavorando da un foglio excel apro l'editor vba creo un modulo e una funzione al suo interno.

---

111.jpg
il risultato che dovrei ottenere è questo
ma sono un po niubbo di vba..

[SirJo]

i = 1
riga = 1


Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then

ora dovrebbe startare dal carattere 8 , 2 = "09"
e riportarlo su un altro foglio excel

Dim Anno As Integer
Anno = Val(Mid(Cells(i, 1), 8, 2))

Anno è una variabile numerica, se invece ti serve che sia una stringa:

Dim Anno As String
Anno = Mid(Cells(i, 1), 8, 2)

Sergio

[cheta]

Dim Anno As Integer
Anno = Val(Mid(Cells(i, 1), 8, 2))

Anno è una variabile numerica, se invece ti serve che sia una stringa:

Dim Anno As String
Anno = Mid(Cells(i, 1), 8, 2)

Sergio

Sergio,
grazie del tuo aiuto,
un'ultima cosa,dove metto la parte che mi importa il risultato in una tabella?