Hücre Rengini başka bir sayfadaki hücreye kopyalama

[adsoft]

slm arkadaşlar örneğin sayfa1 de bulunan a1 Hücresinde bulunan değeri başka herhagi bir hücreye =sayfa1!a1 yazdığımızda değerleri atıyoruz ama hücre rengini atmak için nasıl bir yol izlememiz gerek

 

[hamitcan]

Formül ile yapamazsınız ama kod ile olur. Kodu, Sayfa2'nin kod kısmına ekleyin.

Private Sub Worksheet_Activate()
    [a1].Font.Color = Sayfa1.[a1].Font.Color
End Sub

 

[ÖmerBey]

Bu da benden alternatif olsun:
Seçili olan alanda herhangi bir hücreye doğrudan bağlantı varsa o hücrenin rengini kopyalar.

Sub RenkKopyala()
On Error Resume Next
For Each kutu In Selection
    formül = kutu.Formula
    kutu.Interior.Color = Range(formül).Interior.Color
Next
End Sub

 

[adsoft]

Bu da benden alternatif olsun:
Seçili olan alanda herhangi bir hücreye doğrudan bağlantı varsa o hücrenin rengini kopyalar.

Sub RenkKopyala()
On Error Resume Next
For Each kutu In Selection
    formül = kutu.Formula
    kutu.Interior.Color = Range(formül).Interior.Color
Next
End Sub

bu formül sadece aynı sayfada ise işe yarıyor başka sayfadan alındığında işe yaramıyor

 

[adsoft]

Formül ile yapamazsınız ama kod ile olur. Kodu, Sayfa2'nin kod kısmına ekleyin.

Private Sub Worksheet_Activate()
    [a1].Font.Color = Sayfa1.[a1].Font.Color
End Sub

hamitcan bey tek hücrede formül işe yarıyor ama ben binlerce hücreden bahs ediyorum

 

[nes432]

yeni konuyu nerden başlatıyoruz

 

[feridici_genc]

1-kaynak hücreyi kopyalayın.
2-hedef hücreye gelin ve "özel yapıştır" dan "biçimlendirme" seçin.

 

[ÖmerBey]

bu formül sadece aynı sayfada ise işe yarıyor başka sayfadan alındığında işe yaramıyor

Ekteki dosyayı bir inceleyin isterseniz.

 

[MEHMETTOK]

arkadaşlar yeni işe başladım.firmada stok sorunu var.stok tutmuyor bir türlü excell de bir program yapmak istiyorum stok programı acil lütfen yardımcı olur musunuz ?

 

[adsoft]

Ekteki dosyayı bir inceleyin isterseniz.

çok tşk ederim elinize sağlık