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

• #20343 Delila_1 veterán bteebi #20342

  Új Válasz 2014-02-06 11:21:25 #20343

  Ú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

  

  Delila_1

  veterán

  válasz bteebi #20342 üzenetére

  Nálam csont nélkül végrehajtotta.
  Próbáld meg, hogy a Lista laphoz ennyit rendelsz:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then Cimsor
  End Sub

  Egy modulba pedig ezt:

  Sub Cimsor()
  Dim lap%
  For lap% = 1 To Worksheets.Count
  If Sheets(lap%).Name <> "Lista" Then
  Sheets(lap%).PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
  End If
  Next
  End Sub

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