Koşullu biçimlendirilen bir hücrenin biçimini kopyalama

[Ermania]

Arkadaşlar bir excel dosyasında belli bir durumda koşullu biçimlendirme yapıyor. Ben o dosyanın içindeki tabloyu herleyi ile kopyalamaya çalışıyorum ama kopyala+yapıştır yaptığımda içerik,formül vs. hepsi yapışıyor. Sadece değerleri kopyaladığımda değerleri kopyalıyor ama dolgusu olmuyor. Sadece biçimleri yapıştır dediğimde de dolgu kopyalanmıyor çünkü koşullu olduğu için hücrenin kendisinde dolgu yok. Yapmak istediğim şey tablonun aynısını yağıştırmak ama koşullu biçimlendirme olmadan sadece dolgularını almak istiyorum. Umarım anlatabilmişimdir.

 

[Necdet]

Merhaba,

Tabloyu seçip kopyala deyip istediğiniz yere kopyaladığınızda zaten otomatik olarak herşeyi ile kopyalanır.
Özel yapıştır değerler seçeneğini neden karıştırıyorsunuz ki?

 

[Ermania]

Merhaba,

Tabloyu seçip kopyala deyip istediğiniz yere kopyaladığınızda zaten otomatik olarak herşeyi ile kopyalanır.
Özel yapıştır değerler seçeneğini neden karıştırıyorsunuz ki?

evet otomatik olarak herşey kopyalanıyor. koşullu biçinlendirme deki formül ile birlikte kopyalanıyor. Ben sadece hücrenin biçimlendirmesini kopyalamak istiyorum. Şöyle örnek vereyim 1.sayfa kopyaladığım yer olsun. 2 sayfa yapıştıracağım yer. 1 sayfada hücrede "ht" yazıyorsa mavi dolgu yap biçimlendirmesi mevcut. (liste 1500 satır falan) yapıştırdığım yerdede bu durum geçerli oluyor. ben 2. sayfada ht yazısı olmasa bile o mavi dolgu olsun istiyorum. içeriği silecegım sadece dolgular kalsın ıstıyorum.

 

[ÖmerFaruk]

Aşağıdaki kod,
Sayfadaki kullanılan tüm hücre aralığındaki RENKLERİn tamamını hücre rengi olarak kaydeder.
Hücre aralığını değiştirebilirsiniz.

Sub RenklerKalsınKosulluBicimleriSil()
    Dim Rng As Range
    For Each Rng In Range(Cells(1, 1), Range("A1").SpecialCells(xlLastCell))
    Rng.Interior.Color = Rng.DisplayFormat.Interior.Color
    Next Rng
    Cells.FormatConditions.Delete
End Sub