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

• #9699 Delila_1 veterán tzetko #9697

  Új Válasz 2011-03-19 15:32:02 #9699

  Ú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 tzetko #9697 üzenetére

  Tényleg elkerülte a figyelmemet, elnézést.

  A Munka1 laphoz rendelt makró:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Dim usor As Long
  usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
  Rows(Target.Row).Copy
  beilleszt usor
  End If
  End Sub

  És most a VB szerkesztőben a füzetedhez nyiss új modult. Insert, Module.
  A kapott üres lapra ez jön:

  Sub beilleszt(usor)
  Sheets("Munka2").Select
  Rows(usor).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Sheets("Munka1").Select
  End Sub

  Így már értéket illeszt majd be a Munka2-re.

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