Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
pisy_rasfatata 23 ani
 | Femeie
23 ani
Bucuresti
cauta Barbat
23 - 55 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 739
|
|
Assuming the text I want in header is located in a cell from one sheet, here is the code to change the left header in all sheets:
Sub HeaderChange()
Application.PrintCommunication = False
Dim ws As Worksheet
Dim ws_count As Integer
Dim i As Integer
ws_count = ActiveWorkbook.Worksheets.Count
For i = 1 To ws_count
With ActiveWorkbook.Worksheets(i).PageSetup
.LeftHeader = Worksheets("TABEL").Range("B1").Value
End With
Next i
Application.PrintCommunication = True
End Sub
|
Simply going through sheets like "For Each ws in ActiveWorkbook.Sheets" didn't work.
Source:
|
|
| pus acum 2 ani |
|