macro cerca valore e copia colonne in foglio2

[ilfuocoblu]

buonasera amici! torno ancora a chiedere il vostro competente aiuto.

importo una query che a seconda dei casi (proprie del sito) non è sempre schematica.
mi sarebbe d'aiuto una macro, che andrò poi a richiamare con una call dopo la query, che:

1) mi cerchi la prima colonna in cui trova il valore "pippo" nel foglio1
2) mi copi, da quella colonna compresa, le 20 colonne che susseguono
3) mi incolli queste colonne a partire dalla prima colonna del foglio2

spero di essermi espresso chiaramente.
grazie.

[Anthony47]

Prova con

Codice: Seleziona tutto

Sub ppp()
Dim NCol As Long, FFinf
'
Sheets("Foglio1").Select
With ActiveSheet.Cells
  Set FFind = Cells.Find(What:="pippo", After:=.Cells(1, 1), SearchDirection:=xlNext, SearchOrder:=xlByColumns, LookIn:=xlFormulas)
End With
If FFind Is Nothing Then NCol = 1 Else NCol = FFind.Column
Cells(1, NCol).Resize(Rows.Count, 20).Copy Sheets("Foglio2").Range("A1")
End Sub


Ciao

[ilfuocoblu]

formidabile, ovviamente funziona alla perfezione.

grazie Anthony!

[ilfuocoblu]

Anthony, e se il ragionamento invece che sulle colonne lo volessi fare sulle righe cosa si dovrebbe cambiare?