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

• #32251 Fferi50 Topikgazda gyu84 #32249

  Új Válasz 2016-08-05 14:11:18 #32251

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

  Szia!

  Excel 2010-es verziója óta elérhető a cellák tényleges színe, ezt be lehet állítani az elküldendő munkalapon, makróval:
  Sub szines()
Dim wshuj As Worksheet, rngregi As Range, cl As Range
Set rngregi = Workbooks("eredeti").Sheets("eredeti").Munka1.UsedRange.SpecialCells(xlCellTypeAllFormatConditions) ' ide helyettesítsd be a forrás munkalap elérési útját
Set wshuj = Workbooks("uj").Sheets("uj") ' ide pedig az új munkalapét
For Each cl In rngregi.Cells
wshuj.Range(cl.Address).Interior.Color = cl.DisplayFormat.Interior.Color
Next
End Sub

  Először átmásolod az új munkalapra az adatokat értékként, formázva, majd lefuttatod a makrót.

  Ha nem csak szinezés van, hanem mást is állítasz, akkor a DisplayFormat megfelelő tulajdonságait kell az adott cellához "átmásolni'. (pl. font.color, font.size stb.)

  Üdv.

• #32250 Delila_1 veterán gyu84 #32249

  Új Válasz 2016-08-05 13:38:26 #32250

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

  El kell küldened mindkét lapot. Azt, ahonnan a formázás veszi a feltételt, elrejtheted.

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