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

• m.zmrzlina senior tag

  #23926

  #23925 tgumis

  2014-10-28 06:51:32

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23925 tgumis

  Tekintsd inkább ötletnek mint kész megoldásnak.

  Sub makro1()
  Dim strElerut As String
  Dim strFnev As String
  Dim wbk As Workbook
  
  strElerut = ThisWorkbook.Path
  
  If Right(strElerut, 1) <> "\" Then strElerut = strElerut & "\"
  
  strFnev = Dir(strElerut & "*.xlsx")
  Do While strFnev <> ""
  Set wbk = Workbooks.Open(strElerut & strFnev)
  
  For Each wsh In Worksheets
  wsh.Unprotect
  If wsh.Index > 1 Then
  wsh.Range("H4").Formula = "=Munka1!G7"
  End If
  wsh.Protect
  Next
  
  wbk.Save
  wbk.Close
  strFnev = Dir
  Loop
  End Sub

  1,Biztonsági másolatot készítesz a 12 fájlodról!!!
  2,Biztonsági másolatot készítesz a 12 fájlodról!!!
  3,Biztonsági másolatot készítesz a 12 fájlodról!!!

  4,Üres munkafüzetbe másolod a makrót majd elmented abba a mappába ahol a 12 munkafüzeted van.

  5,A "=Munka1!G7" helyére annak a munkalapnak a nevét írod aminek a G7 celláját hivatkozni akarod a többi munkalapra. Ezt a munkalap minden munkafüzetben legyen a legelső.

  6,A wsh.Protect parancsot felparaméterezed attól függóen, hogy mit akarsz és mit nem akarsz engedni a munkalapon

  7,Elindítod a makrót.

  8,Imátkozol

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