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

• #2229 martonx veterán pirit28 #2228

  Új Válasz 2013-10-16 16:34:50 #2229

  Ú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

  

  martonx

  veterán

  válasz pirit28 #2228 üzenetére

  Ez tényleg annyira triviális volt, hogy rászántam azt a 30 másodpercet.

  Nem a konkrét feladat megoldása, de példának tökéletes:

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  valami = Target.Value
  If Target.Column = 3 Then
  Application.EnableEvents = False
  Cells(Target.Row, Target.Column + 5) = Target
  Application.EnableEvents = True
  End If
  End Sub

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