Excelde Biçim Boyacısını formül olarak kullanabilir miyiz?

[agnostik]

Bir hücrenin biçim formatını başka bir hücrede aynen kullanabilmek mümkün müdür?

Merhabalar, bir sorunum var. Bir çalışma sayfamda renklendirdiğim hücreler var ve bu hücreleri başka bir çalışma sayfasına =sayfa!hücre şeklinde atıyorum. Ancak attığımda sadece veriler gidiyor, renk vb.. biçimlendirmeler gitmiyor. Her seferinde Biçim boyacısını manuel kullanmak zorunda kalıyorum. Bunun otomatik olmasını sağlıyacak formül veya işle var mıdır? Makroda olsa olur. Ekte bir örnek yaptım, renklendirmelerin taşınması konusunda yardımlarınızı istiyorum.

Çok teşekkürler...

 

[mustafaine1]

sag tiklayip ozel yapistir deyince hepsi secerseniz, oluyordur sanirim verdiginiz ornek copy/paste bile olur..

 

[agnostik]

sag tiklayip ozel yapistir deyince hepsi secerseniz, oluyordur sanirim verdiginiz ornek copy/paste bile olur..

Maalesef iş örnekteki gibi basit olsa yapacağım ama 100 lerce böyle hücre var, otomatik taşınmasını istiyorum, yine de teşekkürler

 

[mustafaine1]

tam ornegi gormeyince kimsenin soyledigimden ote bisey yapabilecegini sanmiyorum.. cunku orneginiz her turlu duzgun halde kopyalanabilir tipte

 

[Vedat Özer]

Güzel kardeşim veri1 tümünü seç kopyala veri2 gel onunda tümünü seç orda sağtuş özel yapıştır biçimleri diyebilirsin.

 

[mustafaine1]

sag tiklayip ozel yapistir deyince hepsi secerseniz, oluyordur sanirim verdiginiz ornek copy/paste bile olur..

bu sekildede formati secmis oluyorsunuz sayin vedat, sanirim formullu bir bolum yahut baska bir problemi var dosyasinin..

 

[agnostik]

Evet girdiğim veriler başka bir sayfada formülleniyor ve buradan alınan bilgileri ana sayfada renkendiriyorum, alt sayfalarda bu anasayfa verilerini kullanıyor, ama veriler giderken renklendirmeler gitmiyor maalesef...

 

[ian_em]

sorunu tam anlamadım fakat veri1 in formatını veri2 ye aktarabilirsin

Ben tüm sayfanın formatını aktardım fakat, sadece istediğin alanı da alabilirsin.
Umarım işine yarar.

Sheets("veri1").Select
Cells.Select
Selection.Copy
Range("a1").Select
Worksheets("veri2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("a1").Select

 

[agnostik]

Mantığı anladım, ancak sizin kodları denediğimde excel sürekli seçim yapıp kopyalamaya çalıştı ve kilitlendi :???: Ama bu mantık üzerinde çalışırsam sanırım olacak, teşekkürler