Invoeren gegevens

[HSV]

Je wilt de regel afkappen met een punt (.)
Wat als je een woord niet als 'seconden' schrijft, maar als 'sec.'; Er wordt dan een nieuwe regel aangemaakt wat je niet wil neem ik aan.

 

[rmk75]

Klopt. Maar gezien de logs van de afgelopen weken komen dit soort afkortingen weinig voor.
Dus wanneer men eindigt met een punt dan begint nagenoeg altijd een nieuwe zin.

 

[HSV]

Ach, ik hoef er niet mee te werken.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long, letter As Long, c00 As String
With ListObjects(1).DataBodyRange
 If Not Intersect(Target, Union(.Columns(3).Resize(, 2), .Columns(14))) Is Nothing Then
 Application.EnableEvents = False
    Select Case Target.Column
       Case 4
         Target = UCase(Target)
       Case 5
         Target = StrConv(Target, vbProperCase)
       Case 15
         c00 = UCase(Left(Target, 1)) & LCase(Mid(Target, 2))
           If InStr(c00, ".") > 0 Then
           c00 = Replace(Replace(c00, vbLf, ""), ".", "." & vbLf)
           c00 = Mid(c00, 1, Len(c00) - Abs(Right(c00, 2) = "." & vbLf))
             For j = 1 To Len(c00) - Len(Application.Substitute(c00, vbLf, ""))
                letter = InStr(Application.Substitute(c00, vbLf, "##", j), "##")
                Mid(c00, letter + 1, 1) = UCase(Mid(c00, letter + 1, 1))
             Next j
           End If
         Target = c00
     End Select
  Application.EnableEvents = True
End If
End With
End Sub

 

[rmk75]

Mijn excuus HSV, ik zie nu wat het doet en wat je bedoelde

Tekst welke wij in deze cel invoeren kan bijv zijn: Vessel altered course after pre-alert. No further actios required. Keeping safe CPA.
De bedoeling is dat het op deze wijze word omgezet.
Liefst zonder eerst bijv. alt+enter o.i.d te doen..


grt rmk

 

[HSV]

Dan staat in mijn vorig schrijven de juiste code.
Of moet het niet in drie rijen in een cel?

 

[rmk75]

Het is inderdaad niet nodig om elke zin op een 'nieuwe' rij te plaatsen. Achter elkaar zou volstaan.


Grt rmk

 

[HSV]

Bekijk #6: Verwijder die ",15" achter case 4 en zet het achter case 5.

 

[rmk75]

Dit is het helemaal!!!
Bedankt voor de hulp (en je geduld )

Grt rmk