Piccola Modifica su MACRO

[g.campatelli]

Buona sera a tutti,

Ho un piccolo problema con una Macro e ho bisogno di qualcuno che mi faccia una piccola modifica.

Codice: Seleziona tutto

Sub TrovaDate()
'
' TrovaDate Macro
'
' Scelta rapida da tastiera: CTRL+a
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "*sequence*bacterium*Genome*Biol*2004*" 'Devo copiare il testo dentro la cella A1'
    Sheets("NPL").Select
    ActiveSheet.Range("$A$1:$A$397747").AutoFilter Field:=1, Criteria1:= _
        "=**sequence*bacterium*Genome*Biol*2004**", Operator:=xlOr 'Devo inserire tra le virgolete "...." il testo copiato nella cella A1
    Columns("B:B").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Foglio2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Foglio3").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2").Select
    Sheets("Foglio2").Select
    Range("A1:A60").Select
    ActiveWindow.SmallScroll Down:=-15
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
End Sub 'Se è possibile, senza sconvolgere la macro, dovrei ripetere tutto questo per 570 volte

La Macro dovrebbe essere ripetuta per 570 volte, ma se è un problema non importa.. farò un pulsante e lo premerò per 570 volte

[bibbaste]

Ciao, non sono un esperto... quindi ti rispondo secondo quello che so.... prova con un for next

prima di quello che devi fare....

Codice: Seleziona tutto

for n = 1 to 570

....tutto il tuo codice
alla fine di quello che devi ripetere
.....
next n

vedi un po'....

[g.campatelli]

Probabilmente è giusto come dici, ma la piccola modifica che mi serve è un'altra... l'ho scritta dentro il codice come commento... sono stato poco chiaro, scusate.

Cmq quello di cui ho bisogno è copiare il testo della casella A1 e poi riusare quel testo in un filtro.. cmq è scritto dentro il codice nelle prime righe..

Grazie ancora dell'aiuto

[Anthony47]

Mah, a spanne direi che dovresti usare

Codice: Seleziona tutto

ActiveSheet.Range("$A$1:$A$397747").AutoFilter Field:=1, Criteria1:= "*" & Sheests("NonSoQuale").Range("A1").Value, Operator:=xlOr


Ma se non e' questo allora descrivi nuovamente con parole non ambigue (quali "copiare il testo dentro la cella A1": non si capisce se devi metterlo in A1 o prenderlo da A1).

Un metodo per ripetere la cosa per N volte l'ha gia' indicato bibbaste.

Ciao