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

• #25140 Delila_1 veterán Backrau #25139

  Új Válasz 2015-01-22 12:50:14 #25140

  Ú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 Backrau #25139 üzenetére

  Ebben az esetben a laphoz rendelendő makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  If IsEmpty(Target) Then Exit Sub
  If Target.Column = 2 Then
  Application.EnableEvents = False
  Cells(Target.Row + 1, 1).EntireRow.Insert
  Cells(Target.Row + 1, 1) = Cells(Target.Row, 1)
  Application.EnableEvents = True
  End If
  End Sub

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