Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Alleen laatste punt (eind van de zin) verwijderen

  1. #1
    Vraag is opgelost

    Alleen laatste punt (eind van de zin) verwijderen

    Beste Forumleden,

    Ik ben op zoek naar een vba-code in Excel die, vanuit een bepaalde cel, alleen de laatste punt uit de tekst verwijderd. Inmiddels heb ik een code die alle punten verwijderd, hetgeen dus niet de bedoeling is.

    Code:
    If [C243] Like "*." Then [C243].Replace ".", ""
    Alvast heel hartelijk dank.

    Robert

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Doe er eens een voorbeeld bestandje bij, zodat we kunnen zien wat je precies wilt. Want zijn er cellen mét punt(en), en cellen zónder punten? Gaat het consequent om één punt, of kunnen er soms meerdere punten staan? Maakt allemaal uit voor de oplossing.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Bedankt voor jouw snelle reactie.

    Helaas is het lastig om een bestand mee te sturen omdat er veel juridische informatie in staat die niet op straat mag komen te liggen. Wel kan ik jou meer informatie geven over de door jou gestelde vragen:

    In cel C243 staat veel informatie en in uitzonderlijke gevallen kan het zijn dat er alleen aan het eind een punt staat. Ook is het mogelijk dat de laatste punt er niet staat, dan staan er zelfs helemaal geen punten in, maar die kans is erg klein. Hierbij een voorbeeld van een zin waar niets in hoeft te gebeuren: "op 31 mei 2021 rond 10.45 uur, nadat ik diverse pogingen had ondernomen om in contact te treden met de (indirect) bestuurder, telefonisch contact gehad me een persoon die zich voorstelde als de heer J.A. Jansen, (indirect) bestuurder van onder andere J.A. Jansen B.V."

    Een voorbeeld waar de laatste punt wel moet worden verwijderd: "op 31 mei 2021 rond 10.45 uur, nadat ik tevergeefs diverse pogingen had ondernomen om in contact te treden met de (indirect) bestuurder, hoorde ik dat de telefoon niet werd beantwoord. Later die dag, rond 11.45 uur, heb ik via genoemd telefoonnummer nog een keer een poging ondernomen om telefonisch in contact te treden, wederom zonder resultaat."

    Voornoemde komt uiteindelijk via mailmerge als een opsomming in een worddocument te staan waar deze zin eindigt op ";". Daarom moet alleen de laatste punt worden verwijderd, echter bij B.V. dus niet!!!

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    9 september 2000
    Locatie
    Zuid-Holland
    Er wordt ook niet om je echte document gevraagd maar om een voorbeeld.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Met deze kun je even testen.
    In cel A2 vindt de vervanging plaats in onderstaand voorbeeld.

    Code:
    Sub jvr()
    a = StrReverse(Replace(StrReverse([a2]), ".", "", 1, 1))
    End Sub
    Edit: na het lezen van je tweede post, kan het vermoedelijk ook gewoon met de functie LEFT
    Laatst aangepast door JVeer : 22 juni 2021 om 12:36
    Gr,
    JV

  6. #6
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Wat doet een punt ertoe als jij in plaats van verwijdert verwijderd gebruikt ?
    Formuleer eerst alle regels wanneer een punt moet worden verwijderd en wanneer je de punt niet verwijdert.
    Pas dan kun je dit als een regel aan de computer voeden.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  7. #7
    #5 heb ik geprobeerd via:
    Code:
    a = StrReverse(Replace(StrReverse([C243]), ".", "", 1, 1))
    helaas geen resultaat.

    In antwoord op #6
    Code:
    If [C243] Like "*." and Not [C243] Like "* B.V." Then

  8. #8
    Hierbij een voorbeeldbestand. Ik hoop dat het zo lukt.
    Bijgevoegde bestanden Bijgevoegde bestanden

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    De code van JVeer doet het prima. Het resultaat wordt opgeslagen in de variabele a. Kan je natuurlijk zelf even aanpassen naar [A2]
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  10. #10
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Misschien dat deze voldoet

    Code:
    Sub jvr()
    If InStr(Mid([a2], Len([a2]) - 5), "B.V.") = 0 Then [a2] = StrReverse(Replace(StrReverse([a2]), ".", "", 1, 1))
    End Sub
    Met Left dus:
    Code:
    If InStr(Right([a2], 5), "B.V.") = 0 Then [a2] = Left([a2], Len([a2]) - 1)
    Laatst aangepast door JVeer : 23 juni 2021 om 00:02
    Gr,
    JV

  11. #11
    De code werkt perfect . Ik wil jullie allen heel hartelijk danken voor het meedenken en het aanreiken van de oplossing.

  12. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren