Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ciclo di macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

ciclo di macro

Postdi marchi_ivano » 21/09/09 16:27

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
marchi_ivano
Newbie
 
Post: 2
Iscritto il: 21/09/09 16:03

Sponsor
 

Re: ciclo di macro

Postdi Flash30005 » 21/09/09 21:00

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: ciclo di macro

Postdi marchi_ivano » 22/09/09 00:16

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
marchi_ivano
Newbie
 
Post: 2
Iscritto il: 21/09/09 16:03


Torna a Applicazioni Office Windows


Topic correlati a "ciclo di macro":


Chi c’è in linea

Visitano il forum: Lucio Peruggini e 3 ospiti

cron