Copia righe a partire da cella con un determinato contenuto

[marcopont]

Ciao a tutti

non riesco a trovare il modo per copiare x righe che si trovano dopo una cella contenente un dato testo. Vi riporto un esempio:

in colonna A abbiamo

CANALE ATTIVAZIONE
EDICOLE
APP
NEGOZIO
CENTRO COMMERCIALE

la cella contenente CANALE ATTIVAZIONE non e' posizionata sempre alla stessa riga, quindi vorrei cercare in colonna A quel testo e copiare le 30 righe successive.

Mi aiutate per piacere?
Grazie e buona giornata
Marco

[Anthony47]

Sei sicuro di aver detto tutto?
Questa macro:

Codice: Seleziona tutto

Sub CopiaMarco()
Dim myMatch, Start As Range, lForStr As String
'
Set Start = Sheets("Foglio3").Range("A1")   '<<< Il punto da cui parte la ricerca
lForStr = "Canale Attivazione"              '<<< Il contenuto da cercare
'
myMatch = Application.Match(lForStr, Start.Resize(10000, 1), False)
If Not IsError(myMatch) Then
    Start.Cells(myMatch, 1).Resize(30, 1).Copy                   '***
    '
    'e ora???
    '
Else
    MsgBox (lForStr & " non trovato")
End If
Application.CutCopyMode = False
End Sub


Mettila in un Modulo standard del vba, personalizza le due istruzioni marcate <<< e poi eseguila: l'istruzione marcata *** copierà le 30 celle di colonna A (o meglio, della colonna indicata in "Start") a partire dalla cella trovata. Rimane pero' da capire cosa vuoi farci del contenuto copiato...
Insomma, forse devi dirci come continua la tua storia, ti aspettiamo!

[marcopont]

hai ragione, scusa.....
i dati che copia (righe quindi successive a "CANALE ATTIVAZIONE") vanno poi incollate nel foglio Y a partire dalal cella A1

grazie

[Anthony47]

Quindi aggiungi la "destination":

Codice: Seleziona tutto

If Not IsError(myMatch) Then
    Start.Cells(myMatch, 1).Resize(30, 1).Copy Destination:=Sheets("Y").Range("A1")    '<< MODIFICATA
Else

Ciao

[marcopont]

grazie sempre