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

• #20333 Delila_1 veterán bteebi #20329

  Új Válasz 2014-02-06 09:49:44 #20333

  Ú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 #20329 üzenetére

  A Lista laphoz kell rendelned a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lap%
  If Target.Address = "$A$1" Then
  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 If
  End Sub

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