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

• #34363 Fferi50 Topikgazda konyi79 #34362

  Új Válasz 2017-03-01 22:07:04 #34363

  Ú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

  

  Fferi50

  Topikgazda

  válasz konyi79 #34362 üzenetére

  Szia!

  Bocs, elrontottam a makrót, kimaradt a szín hasonlításból egy rész.
  Itt a jó:
  Sub hasonlit()
  Dim cl As Range, sh As Worksheet
  Set sh = Sheets("Munka1") ' ide írd a saját első munkalapod nevét
  For Each cl In ActiveSheet.UsedRange.Cells ' legyen aktív a második munkalap
  If cl.Font.Color <> sh.Range(cl.Address).Font.Color Or cl.Value <> sh.Range(cl.Address).Value Then cl.Interior.Color = vbYellow
  Next
  End Sub

  Üdv.

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