Zero davanti ai numeri di telefono fissi

rollis13, 11/07/2017 20.03:

---

Un saluto a tutti.

Anche una formattazione "Personalizzata" delle celle con questo "Tipo" dovrebbe funzionare:

0#########

---

alfrimpa, 11/07/2017 18.31:

---

Ciao a tutti

Poiché la macro di Patel (che saluto) interpone uno spazio tra lo zero ed il numero mi permetto di proporre questa piccola modifica

vb

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To LR
  If Left(Cells(r, 1), 1) = "3" Then
     Cells(r, 3) = Cells(r, 1)
  Else
       Cells(r, 3) = "0" & Trim(Str(Cells(r, 1)))
  End If
Next
End Sub

La colonna C va formattata come "TESTO"

---

Nigel78, 01/08/2017 17.46:

---

Ho provato ad applicare il suggerimento a un lavoro leggermente più complesso.

Stavolta è necessario lavorare sui numeri di telefono delle colonne F e G, sovrascrivendo il numero nella stessa cella come da criterio precedente (invariato se inizia con "3", in tutti gli altri casi aggiungendo uno "0" davanti).

La colonna J è certamente sempre popolata, pertanto è quella che fornisce il numero di righe su cui applicare l'operazione.

Grazie.

---

patel45, 05/08/2017 05.11:

---

devi iniziare dalla riga 2, non dalla 1 che non contiene numeri

---

patel45, 07/08/2017 18.13:

---

allega il file aggiornato

---

patel45, 08/08/2017 11.11:

---

l'hai fatta un po' complicata, l'errore dipende dalle celle vuote ed occorre tenerne conto, prova questa

Sub zero_davanti_tel()
Columns("F:G").NumberFormat = "@"
LR = Cells(Rows.Count, "J").End(xlUp).Row
For Each Cell In Range("F2:G" & LR)
  If Cell.Value <> "" And Left(Cell.Value, 1) <> "3" Then
     Cell.Value = "0" & Trim(Str(Cell))
  End If
Next

End Sub

---

Nigel78, 31/08/2017 14.47:

---

Buongiorno.

Grazie al vostro aiuto ho collaudato ripetutamente l'operazione che, di per sè, è corretta.
Procedendo con il concreto, si sono però verificate delle situazioni che in prima istanza non erano previste.

Dunque, oltre ad aggiungere lo zero di fronte ai numeri che non iniziano per "3" (che con maggiore probabilità sono cellulari), si dovrebbero effettuare due modifiche, una precedente e una successiva.

1) Rimuovere, all'interno di ciascuna cella, tutti i caratteri che non sono numerici (dunque spazi, caratteri alfabetici e caratteri speciali);
2) procedere con l'operazione già collaudata;
3) per tutti i numeri che iniziano con "3" e che sono più lunghi di 10 cifre, rimuovere le cifre al fondo fino a ridurre il numero a 10 cifre.

In questo momento sto procedendo attraverso Excel con le seguenti formule:
per rimuovere gli spazi utilizzo =SOSTITUISCI
per rendere i numeri che iniziano con "3" al massimo di dieci cifre, utilizzo la funzione =LUNGHEZZA dopodichè li rettifico a mano.

Sto provando ad integrare le operazioni con VBA, ma con scarso successo.
Potete ancora darmi qualche suggerimento?

(nell'esempio: le colonne F e G sono quelle da lavorare, il risultato desiderato lo vedete nelle colonne L e M).

Grazie.

Nigel

---

locatevaresino, 18/09/2017 18.37:

---

ciao

quindi lavorando su un set di celle la mascro sarebbe questa

---

Option Explicit
Sub esperimento_tel()
Dim R_FG As Variant
Dim VcelF As Variant
Dim riga As Long, colon As Long
Set R_FG = Range("F2:G10")
For Each VcelF In R_FG
If Len(VcelF) > 0 Then
riga = VcelF.Row
colon = VcelF.Column
VcelF = Application.Substitute(Application.Substitute(VcelF, " ", ""), "/", "")
If Len(VcelF) = 10 Then
Cells(riga, colon) = "'" & VcelF
ElseIf Len(VcelF) < 10 Then
Cells(riga, colon) = "'" & "0" & VcelF
Else
Cells(riga, colon) = "'" & Mid(VcelF, 1, 10)
End If
End If
Next
Set R_FG = Nothing
End Sub

---

---