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

• #20342 bteebi veterán Delila_1 #20333

  Új Válasz 2014-02-06 11:11:29 #20342

  Ú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

  

  bteebi

  veterán

  válasz Delila_1 #20333 üzenetére

  Szia!

  Nagyon köszönöm a segítséget , egyelőre azonban valamiért még nem működik a kód. Azt írja, hogy a Range osztály Select metódusa hibás.

  Valamennyit javult a makróm, de ha az

  If Target.Address = "$A$1" Then

  sor volt megadva, akkor nem működött. Csak akkor futott le magától, ha a lentebb látható módon próbáltam:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Sheets("Suzuki").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
  'és ez a sor ismételve az összes lapra, de az elég gagyi
  Application.EnableEvents = True
  End Sub

  Ezt viszont nem tudtam úgy átírni eddig, hogy működjön. Pedig az ötleted tök jó, de valamiért nem megy. Kipróbáltam egy M$ honlapon lévő makrót is, de nem tudtam úgy átírni, hogy jó legyen (mondjuk az az összes lapra működne elvben, úgyhogy a te megoldásod jobb lenne):

  Sub WorksheetLoop2()
  Dim Current As Worksheet
  For Each Current In Worksheets

  ' Insert your code here.
  Next
  End Sub

  De ezt se tudtam úgy átírni, hogy működjön . Ilyet próbáltam:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Dim Current As Worksheet
  For Each Current In Worksheets
  .PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
  'ez így hibás, valahogy máshogy kellene megadni, de ActiveSheet-tel se megy
  Next
  Application.EnableEvents = True
  End Sub

  Van ötleted, hogy mi lehet a probléma?

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