Ú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

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