Biçimlenmiş Hücredeki formülü Kopyalamak

[msinan987]

Arkadaşlar benim yapmak isrediğim renk ile biçimlendirilmiş hücredeki formülü başka bir hücreye ren ile birlikte kopyalamak istiyorum. gönderdiğim örnektede gereken açıklamayı yaptım. yardımcı olursanız sevinirim.

 

[Orion1]

Koşollu biçimlendirme yapabilirsiniz.

 

[msinan987]

Arkadaşım Koşullu biçimlemeyi fazla bilmiyorum. nasıl yapılacağını söyleyebilirmisiniz.

 

[Seyit Tiken]

Aşağıdaki kodu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
[F4].Interior.ColorIndex = [D4].Interior.ColorIndex
End Sub

 

[Necdet]

Aşağıdaki kodları da deneyebilirsiniz.

Bu kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
[D4].Copy [F4]
Son:
End Sub

 

[msinan987]

Sayın Seyit Tiken arkadaşım gönderdiğiniz kodu inceledim. Sadece F4 Kopyaladığım zaman zaman hücre renkleniyor. Ben istiyorumki istediğim formüllrnmiş herhangi bir hücreyi , istediğim herhangi bir hücreye kopyaladığım zaman o hücrenin rengi aynı olsun. Diyeceksiniz ki kodlardaki hücre adreslerinin isimlerini değiştirin.Ben istiyrumki bir sefer kod yazayım veya formül varsa formül düzenleyeyim, istediğim çalışma kitabında sürekl geçerli olsun. Bilmiyorum , çok fazla şeymi istiyorum. tabiki istediklerim mümkümse. olup olmadığı konusundada bilgilendiriseniz sevinirim.

 

[Seyit Tiken]

Ben soruyu böyle anladım.

Sub Düğme1_Tıklat()
ActiveCell.Interior.ColorIndex = [F4].Interior.ColorIndex
ActiveCell = [F4]
End Sub

 

[msinan987]

Seyit Tiken Arkadaşım ilgilendğiniz için çok teşekür ediyorum. Çözümü başka bir arkadaş gönderdi. Sorunu koşullu biçim ile çözüme kavuşturduk.