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

• #24844 BenJoe80 senior tag Delila_1 #24842

  Új Válasz 2015-01-04 13:11:49 #24844

  Ú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

  

  BenJoe80

  senior tag

  válasz Delila_1 #24842 üzenetére

  

  Nagyon szépen köszönöm!!! Közben kértem segítséget máshonnan is és ha nem baj összehasonlítanám a tieddel. A te makród:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 Then
  Application.EnableEvents = False
  Range(Target.Address) = Left(Target, 4)
  Application.EnableEvents = True
  End If
  End Sub

  A másik amit kaptam:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D:D")) Is Nothing And Target.Value <> "" Then
  
  ActiveCell.Value = Left(Target.Value, 4)
  End If
  End Sub

  Bár mindkét makró pontosan azt teszi amire szükségem van, csupán kíváncsiságból: mi a különbség?

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