Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: automatisch formaat belgisch telefoonnummer  (gelezen 4431 keer)

0 leden en 1 gast bekijken dit topic.

Offline WimB

  • Nieuw lid
  • Berichten: 3
  • Oplossing.be
automatisch formaat belgisch telefoonnummer
« Gepost op: 05 mei 2017, 14:11:06 »
een oproepje voor de specialisten.....
Ik ben een invuldocument aan 't maken voor registratie van een nieuwe klant.

hierbij zou ik willen dat een telefoonnummer automatisch in het juiste formaat weergegeven wordt. om één of andere reden slaag ik er niet in om dit te laten uitvoeren. bedoeling is dat de vertegenwoordiger een nummer intikt, bv. 012345678, en dit aangepast wordt naar 012/34.56.78, of 021234567 naar 02/123.45.67, en dit bij het verlaten van de cel, zowel voor tel en fax.

Ik vond op het forum reeds 2 stukken code, maar bij het combineren van beide loopt het fout....
 
van Ingrid B vond ik:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column = 1 Then
    Select Case Left(Target, 1)
      Case 2, 3, 4, 9
        Target.NumberFormat = "00 000\.00\.00"
      Case 1, 5, 6, 7, 8
        Target.NumberFormat = "000 00\.00\.00"
      Case Else
        Target.NumberFormat = "General"
    End Select
  End If
End Sub

en op de MS site vond ik:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:C10")
   
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."
       
    End If
End Sub

nu, die msgbox hoeft niet, liefst niet zelfs....

De 2 cellen waar de het nummer ingegeven moet worden zijn B9 en F9

Alle hulp is welkom....

WB


Offline WimB

  • Nieuw lid
  • Berichten: 3
  • Oplossing.be
Re: automatisch formaat belgisch telefoonnummer
« Reactie #1 Gepost op: 09 mei 2017, 10:00:58 »
niemand.....??

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: automatisch formaat belgisch telefoonnummer
« Reactie #2 Gepost op: 09 mei 2017, 10:22:47 »
Hallo WimB,

je hebt enkel de code van IngridB nodig, de andere code dient enkel om een waarschuwing te geven als een celwaarde veranderd.

De code van Ingrid wordt pas uitgevoerd als je werkblad veranderd (Worksheet.Change()), en de code wordt enkel uitgevoerd als de active cel in colom A staat.

Let op, Ingrid's code werkt niet met GSM nummers.

:) SoftAid :)             

EDIT: Zet de code wel in het betreffende werkblad in de VBA editor, niet in een module.
En haal alle spaties weg vóór elke regel van de macro, als je deze kopieert van de code van Ingrid, anders wordt de code mogelijk niet herkend door de spaties. Code werkt bij mij prima.
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline WimB

  • Nieuw lid
  • Berichten: 3
  • Oplossing.be
Re: automatisch formaat belgisch telefoonnummer
« Reactie #3 Gepost op: 09 mei 2017, 10:25:04 »
Beste,

hoe kan ik die dan aanpassen naar een andere kolom, of beter nog, 2 bepaalde cellen?

Thx,

W.

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: automatisch formaat belgisch telefoonnummer
« Reactie #4 Gepost op: 09 mei 2017, 12:02:48 »
Hallo WimB,

De (enige) kolom wordt gekozen in de VBA regel :

If Target.Column = 1 Then  ' als de geselecteerde cel in kolom A staat, dan code uitvoeren.....
Verder moet je even beroep doen op meer ervaren helpers...

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: automatisch formaat belgisch telefoonnummer
« Reactie #5 Gepost op: 10 mei 2017, 11:39:33 »
wijzig
If Target.Column = 1 Then
eens in
If Target.Cells.Address = "B9" OR Target.Cells.Address = "F9" Then
N.a.v. de aanvulling van @Redhead:

If Target.Cells.Address = "$B$9" OR Target.Cells.Address = "$F$9" Then
|-|aije

ik gebruik Office 2016 Professional Plus

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: automatisch formaat belgisch telefoonnummer
« Reactie #6 Gepost op: 10 mei 2017, 22:26:47 »
@Haije (gezellig dat je ook op dit forum komt), pas even op met je vergelijking...
De eigenschap Address van het object Range komt default terug met een absoluut adres. Probeer deze procedure maar eens uit...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    MsgBox "is " & Target.Address(0, 0) & " gelijk aan " & Target.Address & " : " & CStr(Target.Address(0, 0) = Target.Address) & " ?" & vbCrLf & _
           "is " & Target.Address(0, 0) & " gelijk aan " & Target.Address(0, 1) & " : " & CStr(Target.Address(0, 0) = Target.Address(0, 1)) & " ?" & vbCrLf & _
           "is " & Target.Address(0, 0) & " gelijk aan " & Target.Address(1, 0) & " : " & CStr(Target.Address(0, 0) = Target.Address(1, 0)) & " ?" & vbCrLf & _
           "is " & Target.Address(0, 0) & " gelijk aan " & Target.Address(0, 0) & " : " & CStr(Target.Address(0, 0) = Target.Address(0, 0)) & " ?"

End Sub
Je vergelijking zal dus altijd met FALSE terugkomen...

De tussenvoeging van "Cells" is niet nodig.
______________________________

Groet, Leo

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: automatisch formaat belgisch telefoonnummer
« Reactie #7 Gepost op: 12 mei 2017, 10:57:01 »
@Leo,

bedankt voor de aanvulling en het welkom!

Zo zie je maar weer: er is nog heel wat te leren (voor mij in ieder geval....)
|-|aije

ik gebruik Office 2016 Professional Plus

 


www.combell.com