- 212
- 3
- CPU
- Intel I7 3770
- Dissipatore
- Noctua NH-L9i
- Scheda Madre
- AsRock B75 PRO3
- HDD
- Samsung 850 EVO 250 Gb + WD Blue 1 TB
- RAM
- Corsair Vengeance Blue Low Profile 1600 8Gb
- GPU
- Nvidia GTX 1060 6 Gb
- Monitor
- Panasonic Viera TC-P46ST30
- PSU
- Aerocool Strike-X 500M - 500 Watt
- Case
- MS-TECH MC380
- OS
- Windows 10 Home 64 bit
Ciao a tutti,
sto facendo una macro che scrive alcuni dati su un Excel.
Ad un certo punto devo ordinare l'Excel ed ho scritto il seguente codice:
ActiveWorkbook.Worksheets("Foglio1").Select
Columns("A:A").Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Foglio1").Sort
.SetRange Range("A1 : D185")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
quando però eseguo la macro mi si blocca e mi da l'errore "variabile oggetto o variabile del blocco With non impostata".
non so come venirne fuori :(
qualche idea?
grazie a tutti e ciao
sto facendo una macro che scrive alcuni dati su un Excel.
Ad un certo punto devo ordinare l'Excel ed ho scritto il seguente codice:
ActiveWorkbook.Worksheets("Foglio1").Select
Columns("A:A").Select
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Foglio1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Foglio1").Sort
.SetRange Range("A1 : D185")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
quando però eseguo la macro mi si blocca e mi da l'errore "variabile oggetto o variabile del blocco With non impostata".
non so come venirne fuori :(
qualche idea?
grazie a tutti e ciao