Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro funzionante su un solo foglio

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

Macro funzionante su un solo foglio

Postdi apocrimata75 » 16/08/12 15:25

Codice: Seleziona tutto
Sub Compatta()
'
' Compatta Macro
'
' Scelta rapida da tastiera: CTRL+t
'
    ThisWorkbook.Sheets("Dati1").Select
    Range("B112:B1200").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ThisWorkbook.Sheets("Dati1").Select
    Columns("Ba:Ba").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ThisWorkbook.Sheets("Dati1").Select
    ThisWorkbook.Sheets("Dati1").Range("A111:T1200").Select
    ActiveWindow.SmallScroll Down:=-15
    ThisWorkbook.Worksheets("Dati1").Sort.SortFields.Clear
    ThisWorkbook.Worksheets("Dati1").Sort.SortFields.Add Key:=Range("T111:T1200" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ThisWorkbook.Worksheets("Dati1").Sort
        .SetRange Range("A111:T1200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Data la macro di cui sopra vorrei che la stessa funzionasse solo sul foglio Dati1, invece va a "lavorare" su altri fogli dello stesso file. Sicuramente sto sbagliando tra activeworbook e thisworkbook.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 181
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Macro funzionante su un solo foglio

Postdi Flash30005 » 16/08/12 17:44

Ho corretto la macro togliendo righe inutili (si potrebbero anche eliminare alcune select, ma prova così)
Codice: Seleziona tutto
Sub Compatta()
'
' Compatta Macro
'
' Scelta rapida da tastiera: CTRL+t
Set Ws1 = Sheets("Dati1")
    Ws1.Select
    Range("B112:B1200").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
    Columns("Ba:Ba").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
    Range("A111:T1200").Select
   
    Ws1.Sort.SortFields.Clear
    Ws1.Sort.SortFields.Add Key:=Range("T111:T1200" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Ws1.Sort
        .SetRange Range("A111:T1200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


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-


Torna a Applicazioni Office Windows


Topic correlati a "Macro funzionante su un solo foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti

cron