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

• #9734 Delila_1 veterán radam #9730

  Új Válasz 2011-03-22 07:46:09 #9734

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

  Sub Hozzair()
  Dim usor As Integer
  
  Workbooks.Open Filename:="F:\TMP\Ebből.xls"
  Range("A1").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Selection.Copy
  Windows("Ebbe.xls").Activate
  usor = Range("A65536").End(xlUp).Row + 1
  Range("A" & usor).Select
  Selection.PasteSpecial Paste:=xlPasteFormats
  Selection.PasteSpecial Paste:=xlPasteValues
  Workbooks("ebből.xls").Close
  End Sub

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