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

• #5107 Delila_1 veterán Jarod1 #5105

  Új Válasz 2009-07-06 05:52:22 #5107

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

  Az utoljára beírt adataid most valószínűleg a C2733-ban kezdődnek, azért következik a 2734-es sor.
  A makró megnyitja a webes fájlt, és bemásolja az 5 adatot a helyére. A két utolsó sor bezárja a szerencsejatek.hu füzetét, ezeket kihagyhatod, ha még nézelődni akarsz benne.
  A Windows("Munkafüzet1").Activate sorban a Munkafüzet1 helyett a saját füzeted nevét írd be.

  Sub OtosLotto()
  Workbooks.Open Filename:="http://www.szerencsejatek.hu/xls/otos.xls"
  Range("L4:P4").Copy
  Windows("Munkafüzet1").Activate 'Ide a saját füzeted nevét írd
  Sheets("otos").Select
  usor = Range("C65536").End(xlUp).Row + 1
  Cells(usor, 3).Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  
  'Webes fájl bezárása
  Windows("otos.xls").Activate
  ActiveWindow.Close
  End Sub

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