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

• #9682 tzetko csendes tag

  Új Válasz 2011-03-18 19:45:26 #9682

  Ú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

  

  tzetko

  csendes tag

  Szia Delila!
  A múltkor kaptam tőled segítséget "mentés makróval"
  Munka1 lapon 3 oszlop kitöltése után automatikusan másol a Munka2 nevű lapra és a mentéseket soronként hozzáadja a Munka2 nevű lapon.
  A makró jól működik, de volna egy kérésem amit változtatni kellene rajta.
  A copy-zás helyett csak értékbeillesztést kellene végrehajtania a Munka1 -ről a Munka2 lapra.
  makrófelvétellel nem boldogulok.
  Amit múltkor írtál:
  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 Sheets("Munka2").Cells(usor, 1)
  End If
  End Sub

  eddig amit próbálgattam, de nem működik:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Dim usor As Long
  Selection.Copy
  Sheets("Munka2").Select
  usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
  Rows(Target.Row).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

  End If
  End Sub

  Segítségedet előre is köszönöm.

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