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

• #5334 Delila_1 veterán mahatma #5333

  Új Válasz 2009-09-04 10:28:13 #5334

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

  Annak a füzetnek az aktuális lapjához rendeld a lenti makrót (lapfülön jobb klikk, Kód megjelenítése, a kapott üres lapra másold be), amelyikből a másikba akarod másolni az adatokat.

  Private Sub Worksheet_Change(ByVal Target As Range)
  sor = Target.Row: oszl = Target.Column
  e = Target.Value
  Workbooks("Másik_füzet.xls").Sheets("Munka1").Cells(sor, oszl) = e
  End Sub

  A "Másik_füzet" és a "Munka1" helyett a természetesen saját elnevezéseidet használd.

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