Ú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?

  Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"

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