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

• #9632 Delila_1 veterán tzetko #9631

  Új Válasz 2011-03-06 14:04:47 #9632

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

  Nem írtad, hány oszlopod van a Munka1-en. Feltételezem, akkor kell átmásolni az adatokat, mikor minden oszlopot kitöltöttél. A makróban 3 oszlopot vettem alapul, az
  If Target.Column = 3 Then
  sorban ezt kell módosítanod. A makrót a laphoz rendeld.

  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

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