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

• #9729 Delila_1 veterán radam #9728

  Új Válasz 2011-03-21 16:01:57 #9729

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

  Sub Bevisz()
  Dim usor As Integer
  
  Sheets("Kezdő_lap").Select
  Range("A1").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Selection.Copy
  Sheets("Másik_lap").Select
  usor = Range("A1").End(xlDown).Row + 1
  Range("A" & usor).Select
  Selection.PasteSpecial Paste:=xlPasteFormats
  Selection.PasteSpecial Paste:=xlPasteValues
  End Sub

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