Hai ragione, volevo essere più preciso invece mi sono spiegato come un libro chiuso....
Forse un file grafico renderà tutto più chiaro:




Vorrei che le celle riquadrate in rosso non venissero scritte nel file emn.emn e/o *.emn.
Ciao

Iniziano sempre per "0"

salve
meglio ancora nel caso che i caratteri "0" non siano il valore conplessivo della cella ma solo i caratteri iniziali:

For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(n, 1).Value = """0""" Or Left(Cells(n, 1), 3) = """0""" Then Exit For
Buffer = Buffer & Cells(n, 1).Value & vbCrLf
Next n

saluti
Giap

---

salve
non hai letto la risposta successiva.
saluti
giap

---

Tornando alla macro che ordina lettere e numeri che funziona a meraviglia!!
Qualora volessi apportare due mofiche:
1. Usare come colonne d'appoggio non B-C ma E-F poichè le prime quattro sono occupate dai dati.
2. Come avviene per ordina con riferimento colonna C (vedi immagine) ordinare anche A-B-D, questo semplificherebbe molto la mia MACRO generale nella quale al momento faccio uso della funzione "INDICE - CONFRONTA" proprio perchè non riesco a riordinare adeguatamente i dati che devo comfrontare con un altro file.



Spero di essermi spiegato!!

PS Grazie ancora per il tuo aiuto sto imparando un sacco di cose.

Grazie x la dritta ma le cose da modificare erano un po' di più, le evidenzio così che tu possa verificarle velocemente.

---

Sub Ordina_EMN()
Dim Area As Range, AreaO As Range
Dim Cl As Range, i As Long, ABC As String, NR As String
Application.ScreenUpdating = False
With Sheets("foglio1")
Set Area = .Range("c1", .Range("c1").End(xlDown))
For Each Cl In Area
For i = 1 To Len(Cl)
If IsNumeric(Mid(Cl, i, 1)) Then
NR = NR & Mid(Cl, i, 1)
Else
ABC = Mid(Cl, 1, 1)
End If
Next
Cl.Offset(0, 3).Value = NR
Cl.Offset(0, 2).Value = ABC
NR = ""
ABC = ""
Next
Set Area = Nothing
Set Area = .Range("A1", .Range("F1").End(xlDown))
Area.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1") _
, Order2:=xlAscending
Set Area = Nothing
Columns("E:F").ClearContents
End With
Application.ScreenUpdating = True
End Sub

---

Riordina ma purtroppo male (magari nel provare a sistemarlo ho fatto casino), credo che uno dei motivi ci era sfuggitto in precedenza perchè non contemplato nella lista alfanumerica (vedi immagine sotto per chiarezza).
Quando la stringa alfanumerica inizia con 2 lettere seguite da numeri non viene riordinata correttamente.



CN1E andrebbe alla fine dei componenti C e non in quella posizione.
Come si può sistemare la macro?
Ciao

PS C'è anche altro, guardando C1 e C2 è chiaro che C1R andrebbe dopo e naturalmente soffrono dello stesso problema tutti i componenti che seguono!!!

Vediamo se così riesco a spiegarmi!!

Allego un file dove nelle colonne ABCD ci sono i dati da riordinare come arrivano dal file e nella colonna F il risultato che si dovrebbe ottenere (nel file è presente una macro che riporta tutte le modifiche fino ad ora).

Ciao Grazie

La, provo subito.

---

FUNZIONA ALLA PERFEZIONE!!

Grazie

salve
dall'help del programma in merito all'istruzione Input

"Nota Con l'instruzione Input # non utilizzare stringhe in cui sono incorporate virgolette doppie. La stringa "1,2""X", ad esempio, viene analizzata come se se si trattasse di due stringhe complete distinte."

pertanto l'unica soluzione che mi viene in mente è quella di anteporre un apice (') al doppio apice.

saluti
Giap

---