Condividi:        

Piccola Modifica su 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

Piccola Modifica su MACRO

Postdi g.campatelli » 29/11/15 17:46

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 :lol:
g.campatelli
Utente Junior
 
Post: 16
Iscritto il: 01/11/15 09:22

Sponsor
 

Re: Piccola Modifica su MACRO

Postdi bibbaste » 29/11/15 19:15

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'.... :)
bibbaste
Utente Junior
 
Post: 32
Iscritto il: 03/06/15 15:39

Re: Piccola Modifica su MACRO

Postdi g.campatelli » 29/11/15 19:44

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 :)
g.campatelli
Utente Junior
 
Post: 16
Iscritto il: 01/11/15 09:22

Re: Piccola Modifica su MACRO

Postdi Anthony47 » 01/12/15 00:24

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Piccola Modifica su MACRO":


Chi c’è in linea

Visitano il forum: Nessuno e 86 ospiti