Új hozzászólás Aktív témák

• #46811 Fferi50 Topikgazda Santino #46810

  Új Válasz 2021-05-30 19:40:57 #46811

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Santino #46810 üzenetére

  Szia!
  Úgy gondolom, ez csak makróval oldható meg.
  Ezt bemásolod az adott munkafüzet kódlapjára:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Not Application.IsNumber(Target.Value) Then Exit Sub
If Len(Target.Value) < 14 Or Len(Target.Value) > 15 Then
MsgBox "Csak 14 vagy 15 számjegyet írhatsz ide", vbcritikal
Target.Value = ""
Target.Select
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Target.Value, 6) & "-" & Mid(Target.Value, 7, 2) & "-" & Mid(Target.Value, 9, 6) & "-" & Mid(Target.Value, 15, 2)
Application.EnableEvents = True
End Sub
  A makró az első oszlopba beírt 14-15 jegyű számokat visszaírja az általad kívánt formában. Az ennél kevesebb vagy több számból állók esetén figyelmeztető üzenetet ad és kitörli a beírt értéket.
  A munkafüzetet makróbarátként kell mentened.
  Üdv.

Új hozzászólás Aktív témák