Soru Biçimlendirmeler dahil temizleme

[dengeceteris]

Sevgili arkadaşlar herkese merhaba; aşağıda ki formülde ilgili sütunları temizliyorum da renkler dahil herşeyi silmem için nasıl ifade etmem gerekiyor. Bu formül sadece sütunu temizliyor.


Range("I2:AO" & Rows.Count).ClearContents

 

[ÖmerFaruk]

Range("I2:AO" & Rows.Count).Clear

 

[dengeceteris]

Sevgili NextLevel çok tşk ederim.

 

[dengeceteris]

Sevgili forum uzmanı arkadaşlarım daha önce sormuş olduğum bir sorunun devamı niteliğinde olduğu için yeni soru açmadım umarım yanlış yapmamışımdır. Yukarıda da daha önce biçimlendirmeleri de dahil ederek silme işini öğrenmiştim. Ama sorum eksik kalmış. Alttaki formül ile farklı bir sayfayı kopyalıyorum. Peki kaynak sayfamdaki biçimlendirmeleri de dahil edecek olursam (kenar çizgileri veya koşullu biçimlendirmeler) aşağıda ki formülü nasıl ifade etmem gerekir.

s2.Range("N4:V16").Value = s1.Range("A2:I14").Value

 

[Korhan Ayhan]

Deneyiniz.

s1.Range("A2:I14").Copy s2.Range("N4")

 

[dengeceteris]

Harikasın hocam tşk ederim

 

[dengeceteris]

Korhan hocam çok pardon bir problem oldu. Kaynak sayfada formüller olduğu ve formüller hedef sayfada uyumsuz olduğu için değerleri yapıştırarak getirsek mümkün mü ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    s1.Range("A2:I14").Copy
    s2.Range("N4").PasteSpecial xlValues
    s2.Range("N4").PasteSpecial xlFormats
    Application.CutCopyMode = False
End Sub

 

[dengeceteris]

Hocam çok tşk ederim bu sefer oldu..