2 hücrenin biçimlerinin aynı olması

[yağız22]

a1 hücresinde mesela:ağaç yazıyor
d5 hücresinde de ağaç yazıyor a1 hücresinde yazı boyutu 16 olduğunda(kopyala yapıştır yöntemiyle yapıyorum ve o hücreye hep ağaç gelecek) b1 hücreside 16 olması için nasıl bir yol izleyebilirim

 

[Necdet]

Merhaba,

A1, D5 ilişkisini anladım da B1 hücresiyle olan ilişikiyi pek anlamadım.

Fikir vermesi açısından :

A1 hücresinin değeri değiştiğinde B1 hücresinin bazı biçimleri A1 hücresi ile eşitlenir.

Gereksinmeye göre başka özellikler de eklenebilir.

• Font Boyutu
• Arka Plan Rengi
• Ön Plan Rengi

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    MsgBox Range("A1").Font.ColorIndex
    With Range("B1")
        .Font.Size = Range("A1").Font.Size
        .Interior.ColorIndex = Range("A1").Interior.ColorIndex
        .Font.ColorIndex = Range("A1").Font.ColorIndex
    End With
End Sub

Tüm Biçimin kopyalanmasını isterseniz :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Range("A1").Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats 
    Application.CutCopyMode = False
End Sub

 

[yağız22]

b1 i yanlış yazmışım d5 olacaktı çok sağolun