- 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.