[VBA] Jak zachować formatowanie warunkowe przy kopiowaniu do Outlooka?

Witajcie

Mam makro które kopiuje mi zaznaczony ciąg danych i wkleja do Outlooka po czym wysyła, jednak nie uwzględniając formatowania warunkowego.

Np. wszędzie gdzie mam kolory stałe to są, ale tam gdzie kolory są uzależnione od wartości w kolumnie to już tego po skopiowaniu nie uwzględnia. Czy możecie mi pomóc w tym temacie?

Proponuje zrobić zrzut z tych danych do obrazka lub zachować odpowiednio "wykadrowany" plik jako PDF - do maila robić załącznik graficzny, a nie html

Rasti88 napisał:

Czy możecie mi pomóc w tym temacie?

wW tej funkcji 'rangetohtml' znajdź

i zmień na (i zobacz)

A czy możesz podać informację - jakie to formatowanie warunkowe stosujesz w tym arkuszu Z Twoim kodem przy formatowaniu warunkowym wg wartości - w Office 2016 - rezultat jest poprawny
2020-03...png (24.17 kB)Musisz być zalogowany, aby pobrać ten załącznik.

clubs napisał:

wW tej funkcji 'rangetohtml' znajdź
Kod: vbscript Rozwiń Zaznacz wszystko
.Cells(1).PasteSpecial xlPasteValues, , False, False

i zmień na (i zobacz)
Kod: vbscript Rozwiń Zaznacz wszystko
Cells(1).PasteSpecial xlPasteAll, , False, False

To nie pomogło.

Reguła formatowania warunkowego jest taka:

Rasti88 napisał:

Reguła formatowania warunkowego jest taka

I to jest przyczyna Twojego nieszczęścia
Stosujesz mechanizm tworzenia załącznika html poprzez kopiowanie obszaru rng do pliku tymczasowego Jeśli zatem kryteria formatowania warunkowego umieszczone są poza tym obszarem - to w pliku tymczasowym warunki dotyczące tego obszaru są puste
Jeśli zastosujesz inny sposób formatowania np
2020-03-0..1).png (48.84 kB)Musisz być zalogowany, aby pobrać ten załącznik.
to w mailu zobaczysz kolorowy załącznik
2020-03...png (47.33 kB)Musisz być zalogowany, aby pobrać ten załącznik.