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

• #29452 csferke senior tag m.zmrzlina #29451

  Új Válasz 2015-11-11 09:07:11 #29452

  Ú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

  

  csferke

  senior tag

  válasz m.zmrzlina #29451 üzenetére

  Szia!
  Kicsit "mélyebben" átnéztem a linket amit küldtél [link] és a következőt találtam

  Private Sub Worksheet_Change(ByVal Target As Range)
  ''''''''''''''''''''''''''''''''''''''''''''
  ' Forces text to UPPER case for the range
  ''''''''''''''''''''''''''''''''''''''''''''
  If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
  If Not Intersect(Target, Range("C14:J14")) Is Nothing Then
  Application.EnableEvents = False
  Target = UCase(Target)
  Application.EnableEvents = True
  End If
  End Sub

  Ezzel nem kell vizsgálni a bevitt adatokat. A munkafüzetet pedig különben is xlsm-ként kell mentenem.

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