-
IT café
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
-
m.zmrzlina
senior tag
válasz tgumis #23925 üzenetére
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 Sub1,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
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Vírusirtó, Antivirus VPN kulcsok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!