Keresés

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

  • 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