ciclo di macro

[marchi_ivano]

ho la necessita di copiare una parte di testo da piu pagine web partendo da una unica pagina che contiene i link di partenza.
ho creato una macro e funziona per il primo link ma non riesco a farla ripetere per le righe successive.
il procedimento che seguo è questo:
visualizzo la pagina che mi interessa, ctrl+a, ctrl+c e poi la incollo in un foglio di exel a partire dalla cella A1.
il tutto si incolla perfettamente e si distribuisce per righe.
le prime riche contengono dati generici che non mi interessano, poi iniziano una serie di link, ad intervallo di 5 righe, che devo aprire, selezionare e copiare una parte di testo contenuto nella nuova pagina che si è appena aperta e chiuderla.
fatto questo incollo il testo sulla stessa riga del link dal quale sono partito.

ora arriva il problema,
non riesco a far ripetere la macro per le riche successive. aggiungo che le righe potrebbero variare da 10 a 300 cioè non posso sapere prima quante righe saranno.

grazie per i consigli che arriveranno. ivo

[Flash30005]

Ciao Ivano
e Benvenuto nel Forum

Suppongo che il foglio excel abbia i link standard con suffisso "http://"
potresti provare a usare un codice tipo questo:

Codice: Seleziona tutto

Public URL As Integer
Sub CercaLink()
URL = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row  '<<< conta le righe con dati in A (ultima riga)
For Each L In Worksheets("Foglio1").Range("A1:A" & URL)  '<<< imposta una ricerca per tutte le righe sulla colonna A della...
    If Mid(L.Value, 1, 7) = "http://" Then  '<<<<< ... stringa "http://"
        Riga = L.Row         '<<<< ho inserito questo codice solo per verificare che la riga dove si trova "http://" corrisponda (codice da commentare)
         MsgBox Riga    '<<<< mi visualizza il N. Riga quando viene trovato quanto cercato (http://), (codice da commentare)
        'Inserisci qui cosa deve fare una volta trovato il link (anche attraverso una subroutine: altra macro)
    End If
Next L
End Sub

Fai sapere
Ciao

[marchi_ivano]

grazie dell'accoglienza e per la risposta, ora mi metto al lavoro e provo ad utilizzare le tue indicazioni. non manchero di farti sapere i miei progressi.
grazie ancora e complimenti per la velocità con cui mi hai risposto.

ivo