Microsoft Excel topic - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

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

#31334 tgumis tag

Új Válasz 2016-04-21 23:46:13 #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