Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #5107 Delila_1 veterán Jarod1 #5105
    Új Válasz #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