Hücre içeriğini bir çalışma kitabından diğerine kopyala ve yapıştır, renk formatını kaybeder

Hücre içeriğini (sayı verisi ve sayıların renk biçimi) bir çalışma kitabından diğerine kopyalamak için bir makro kullanıyorum ancak renk biçimlendirmesini taşıyor değil.

İki çalışma kitabım var:

1. Bilimsel verileri içeren bir çalışma kitabı (TLC Değerlendirme 4 Bulguları)
2. İlk çalışma kitabındaki verilerin bir kısmı daha kullanıcı dostu bir formda görüntülendi. Verilerin üç rengi vardır: Siyah = normal, Kırmızı = Aralık Üstü ve Mavi = Aralık İçinde.

İkinci çalışma kitabındaki bir düğüme atanmış bir makroyu veriyi ilk çalışma kitabından çeken bir makro var. Her şey, verilerle ilişkili rengin üzerine kopyalamaması haricinde, verilerin üzerine mükemmel şekilde kopyalanıyor.

Makro temelde:

1. Bu formülü içeren Çalışma Kitabı 2'deki ilk hücreyi girin:
   ='[TLC Assess 4 Findings.xls]Report'!$E$9
2. Bir sonraki hücreye gidin ve kopyalanacak bölümdeki tüm hücreler için aynı yapın.
3. Makroyu Sonlandır.

Düğmeye basıldığında tüm veriler doğru geliyor ancak renk değişmiyor. Çalışma kitabındaki 2 bu hücrede ya siyah ya da hangi renk kullanılmışsa o daha fazladır.

Aynı sonuçla Kopyala ve Yapıştır Özel'i de denedim. Format Boyacısı'nı da denedim.

Verileri makroumdaki renk formatıyla birlikte nasıl kopyalarım?

Kodunuzun nasıl göründüğünden veya Çalışma Kitabı 1'in içinde düzgün şekilde kopyalanmayan herhangi bir Koşullu Biçimlendirme olup olmadığından emin değilim; ancak burada, bir çalışma kitabındaki hücrenin biçimini başka bir çalışma kitabındaki bir hücreye "kopyalama" yöntemlerinden biri (her iki çalışma kitabının da açık olduğunu varsayarak):

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Interior.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Interior.Color

Yazı tipi renkleri için:

Workbooks("SOURCE.xls").Sheets("SHEETNAME").Range("A1").Font.Color = _
Workbooks("DESTINATION.xls").Sheets("SHEETNAME").Range("A1").Font.Color

Dosya adlarını, sayfa adlarını ve aralık değerlerini dosyalarınızınkilerle eşleşecek şekilde değiştirin.