Sayfa 1 den Sayfa 2ye verinin yanında dolgu rengi aktarımı?

[sahinuc]

Sayfa 1 de a1 hücresinde yazan veriyi sayfa 2 deki a1 hücresine =Sayfa1!A1 aktarabildiğimiz gibi; dolgu renginide aktarabilmek istiyorum ne yapmam gerekiyor...?

 

[Orion1]

Sayfa 1 de a1 hücresinde yazan veriyi sayfa 2 deki a1 hücresine =Sayfa1!A1 aktarabildiğimiz gibi; dolgu renginide aktarabilmek istiyorum ne yapmam gerekiyor...?

Koşullu biçimlendirme yapabilirsiniz.yada makro ile verinizi aktarın.

 

[sahinuc]

makro ile derken ? (tam olarak kodları bilmiyorum) dosya ekleyemediğim için şu şekilde anlatayım...: Sayfa1 c sutununda ki rakamları (500 e yakın) farklı şekilde boyadığımda sayfa 2 deki c sütunundada aynı sıradaki rakamlar o şekilde boyansın istiyorum...

 

[Orion1]

makro ile derken ? (tam olarak kodları bilmiyorum) dosya ekleyemediğim için şu şekilde anlatayım...: Sayfa1 c sutununda ki rakamları (500 e yakın) farklı şekilde boyadığımda sayfa 2 deki c sütunundada aynı sıradaki rakamlar o şekilde boyansın istiyorum...

Upload sitelerinden birinden dosyanızı link verebilirsiniz.
Ben aşağıda bir upload sitesi verdim.

DOSYA YÜKLE
.

 

[sahinuc]

http://s3.dosya.tc/server2/ooavvp/dolgurengi.xlsx.html

 

[Orion1]

Makroların çalışması için makroların güvenliğinin düşük düzeyde olması lazım.
Dosyanız linktedir.

DOSYAYI İNDİR

Sub aktar()
Dim sonsat As Long, sh As Worksheet
Sheets("Sayfa2").Select
Set sh = Sheets("Sayfa1")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Range("A:C").Clear
sh.Range("A2:C" & sonsat).Copy Range("A1")
Application.CutCopyMode = False
Set sh = Nothing
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"

End Sub