Ik heb een code gescheven wanneer ik een telefoon nummer ingeef, automatisch het format omzet naar landcode.
nu is het zo dat wanneer je 06xxxxxxx nummer gebuikt, dit ook voor de USA mogelijk is.
wat wil ik doen.
er mogen allerlei soorten nummers ingegeven worden in (Blad1 range A2:A5000). voorbeeld: 0612345678
daarna moet een pulldown keuze gemaakt worden met een country. (Blad2 range A2:A5000)
deze verwijst naar een landcode. kolom rechst er naast. (Blad2 range B2:B5000)
De code welke in nu gebruik en wil aanpassen met een pulldown keuze.
Voorbeeld:
ik geef het nummber in Blad1 A2.
0612345678
wanneer ik de pulldown een keuze maak bijvoorbeeld "Spanish" (A12)
dan moet de code kijken naar de value welke een cell er naast staat. (B12)
Het resultaat moet dan als volgt zijn.
+34612345678
Bekijk bijlage Phone.xlsm
ik hoop dat het o duidelijk is.
nu is het zo dat wanneer je 06xxxxxxx nummer gebuikt, dit ook voor de USA mogelijk is.
wat wil ik doen.
er mogen allerlei soorten nummers ingegeven worden in (Blad1 range A2:A5000). voorbeeld: 0612345678
daarna moet een pulldown keuze gemaakt worden met een country. (Blad2 range A2:A5000)
deze verwijst naar een landcode. kolom rechst er naast. (Blad2 range B2:B5000)
De code welke in nu gebruik en wil aanpassen met een pulldown keuze.
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range 'Main
Dim aCell As Range 'Main
For Each aCell In Me.Range("A2:A5000").Cells
If aCell <> "" Then
If Left(aCell, 4) = "00[COLOR="#FF0000"]31[/COLOR]" Then
aCell = Replace(aCell, "00[COLOR="#FF0000"]31[/COLOR]", "+[COLOR="#FF0000"]31[/COLOR]")
ElseIf Left(aCell, 1) = 0 Then
aCell = "+[COLOR="#FF0000"]31[/COLOR]" & Right(aCell, Len(aCell) - 1)
End If
If Len(aCell) <> 12 Then
MsgBox "The length of the phone number [" & aCell.Value & "] in cell [" & aCell.Address & "] is incorrect"
aCell.ClearContents
End If
End If
Next aCell
'Letscontinue
Letscontinue:
Application.EnableEvents = True
Exit Sub
Set rng = Nothing
Whoa:
MsgBox Err.Description
Resume Letscontinue
End Sub
Voorbeeld:
ik geef het nummber in Blad1 A2.
0612345678
wanneer ik de pulldown een keuze maak bijvoorbeeld "Spanish" (A12)
dan moet de code kijken naar de value welke een cell er naast staat. (B12)
Het resultaat moet dan als volgt zijn.
+34612345678
Bekijk bijlage Phone.xlsm
ik hoop dat het o duidelijk is.
Bijlagen
Laatst bewerkt: