Condividi:
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
di 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: 189
- Iscritto il: 28/05/11 13:22
di 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
-
Flash30005
- Moderatore
-
- Post: 8517
- 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 59 ospiti