Renk Kodları ile çalışma

[agir]

b1,b2, b3, b4, hücrelerine yazılan bilgileri nasıl satır satır ve renk renk e2 hücresine yazdırabiliriz? örnek ektedir.
saygılarımla iyi çalışmalar.

 

[agir]

yardim edecek kimse yok mu???

 

[agir]

çok mu zor sordum
veya
excell de bu tür bir işlem yapan makro, formül vs. yok mu?
Saygılarımla!

 

[agir]

kimse bir cevap bile yazm&#305;yor &#199;ok &#252;z&#252;ld&#252;m. <:
en az&#305;ndan biri aa ben de bu soruya benzer bi&#351;iy ar&#305;yordum diyebilir.

 

[serdarinho43]

aa ben de bu soruya benzer bi&#351;iy ar&#305;yordum

 

[kulomer46]

Dostum, a&#351;a&#287;&#305;daki fonksiyon altalta yaz&#305;yor ama renklerini ayarlayamad&#305;m. Birde bu fonksiyonu &#231;al&#305;&#351;t&#305;raca&#287;&#305;n h&#252;crenin hizalama bi&#231;imlendirmesinde metni kayd&#305;r se&#231;ene&#287;ini aktif hale getirmen laz&#305;m..
Function aktar(rng)
Dim alan
Set alan = Intersect(rng, rng.Parent.UsedRange)
For Each cell In alan
aktar = aktar & Chr(10) & cell
Next
aktar = aktar
End Function

 

[agir]

Dostum, aşağıdaki fonksiyon altalta yazıyor ama renklerini ayarlayamadım. Birde bu fonksiyonu çalıştıracağın hücrenin hizalama biçimlendirmesinde metni kaydır seçeneğini aktif hale getirmen lazım..
Function aktar(rng)
Dim alan
Set alan = Intersect(rng, rng.Parent.UsedRange)
For Each cell In alan
aktar = aktar & Chr(10) & cell
Next
aktar = aktar
End Function

çok çok teşekkür ederim kısmen işime yaradı

 

[kulomer46]

Makro olarak tamam&#305;n&#305; halledebilece&#287;imi d&#252;&#351;&#252;n&#252;yorum. Tamamlayabilirsem buraya ekleyece&#287;im, merak etmeyin..

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.