Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #31334 tgumis tag
    Új Válasz #31334
    Ú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

    tgumis

    tag

    Sziasztok
    hogy tudom ezt a két vagy esetenként más makrót is egybefűzni. Eddig nem volt ilyen gondom de most mindig hibát ír
    Sub Osszesites_M()
    Sheets("adat_bekér").Unprotect Password:="tigris98"
    Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
    Sheets("összesit1").Unprotect Password:="tigris98" 'felold

    Dim oszlop As Integer
    oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
    Sheets("adat_bekér").Range("F456:F461").Copy Sheets("összesit1").Cells(3, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
    Sheets("összesit1").Select
    Range("A1:AJ262").Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True
    Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True '>>>>>munkalap lekódolása
    Sheets("összesit1").Activate

    End Sub
    Sub Osszesites_E()

    Sheets("adat_bekér").Unprotect Password:="tigris98"
    Sheets("adat_bekér").Range("$L$1:$L$768").AutoFilter Field:=1
    Sheets("összesit1").Unprotect Password:="tigris98" 'felold

    Dim oszlop As Integer
    oszlop = Sheets("Kezdőlap").Range("C9") + 4 '>>>>>ITT HATÁROZZUK MEG A BEILLESZTÉS OSZLOPÁT Sheets("Kezdőlap")Range("C9") + 4
    Sheets("adat_bekér").Range("F499:F741").Copy Sheets("összesit1").Cells(9, oszlop) '>>>>>CELLS (11, =A BEILLESZTÉS HANYADIK SORBAN KEZDŐDJÖN >>>>>Sheets("adat").Range("B2:B5") A MÁSOLANDÓ TERÜLET MEGHATÁROZÁSA
    Sheets("összesit1").Select
    Range("A1:AJ262").Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    Sheets("összesit1").Protect Password:="tigris98", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True
    Sheets("adat_bekér").Protect Password:="tigris98", UserInterfaceOnly:=True _
    , AllowFiltering:=True _
    , AllowFormattingColumns:=True '>>>>>munkalap lekódolása
    Sheets("összesit1").Activate

    End Sub

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