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

• #50949 Delila_1 veterán Fferi50 #50947

  Új Válasz 2023-05-05 12:10:54 #50949

  Ú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

  

  Delila_1

  veterán

  válasz Fferi50 #50947 üzenetére

  Nem számoltam össze, hányan hány megoldással próbálkoztunk.
  Ímé a legújabb, ha már lehet figyeltetni a bevitelt.

  Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Value, "X") > 0 Then
Range(Target.Address).NumberFormat = ";;;""X"""
Else
Range(Target.Address).NumberFormat = ";;;"
End If
End Sub

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