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

• #41564 Delila_1 veterán g4b3n #41563

  Új Válasz 2019-08-13 09:59:36 #41564

  Ú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 g4b3n #41563 üzenetére

  Az első munkalapodhoz kell rendelned a makrót (a Téma összefoglalóban megtalálod a leírást)

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long

If Target.Column = 7 Then
If Target = 0 Then
Application.EnableEvents = False
ide = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Munka2").Range("A" & ide)
Application.EnableEvents = True
End If
End If
End Sub

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