Salve a tutti.
Utilizzo Excel 2003.
Con questa routine (non bella esteticamente, ma almeno funzionale)
copio da un foglio (Foglio1") dei valori su un altro foglio
("Dossier")
Sheets("Foglio1").Select
n_r_doss = 0
For x = 2 To 3000
If Sheets("Foglio1").Cells(x, 1).Value = "" Then
GoTo Ordina
Else
tmp_tipo = ""
tmp_c = ""
tmp_dos = ""
tmp_f = ""
n_r_doss = n_r_doss + 1
tmp_f = Sheets("Foglio1").Cells(x, 2).Value
tmp_tipo = Sheets("Foglio1").Cells(x, 1).Value
tmp_c = Sheets("Foglio1").Cells(x, 3).Value
tmp_dos = Sheets("Foglio1").Cells(x, 4).Value
Sheets("Dossier").Cells(n_r_doss + 1, 1).Value = tmp_f
Sheets("Dossier").Cells(n_r_doss + 1, 2).Value = tmp_c
Sheets("Dossier").Cells(n_r_doss + 1, 3).Value = tmp_dos
Sheets("Dossier").Cells(n_r_doss + 1, 4).Value = tmp_tipo
End If
Next x
Ordina:
Call ordina_dossier
Poi chiamo la routine ordina_dossier per cercare di ordinare il nuovo
foglio sulla colonna B
Private sub ordina_dossier
Sheets("Dossier").Select
Range("A1:D1000").Sort Key1:=Range("B2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
ma pur non segnalandomi alcun errore non viene ordinato nulla.
Ho provato a registrare la macro, ma all'istruzione:
cells.select
mi da errore: Errore di run-time 1004
Errore nel metodo select per la classe range.
Potete aiutarmi ?
Grazie