Dolgu renginin diğer hücrede görünmesi

[ynmcan]

Merhabe arkadaşlar,
bir hücredeki dolgu renginin aynısını başka bir hücrede görünmesini istiyorum. ( Birini değiştirdiğimde diğeride değişecek.)
Örnek dosyam ekte.

 

[uzmanamele]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
renk = [b3].Interior.ColorIndex
Range("I10").Interior.ColorIndex = renk
End Sub

 

[ynmcan]

Sn. Uzmanamele,
ben hücre olarak ifade ettiğim için yolladığınız kod doğru , tam istediğim gibi.
Ancak ben bunu satırlarda kullanmak istiyorum. Ben yolladığınız koda bazı değişiklikler yaparak denedim ama olmadı. örnek dosyam ekte.

 

[uzmanamele]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 11
renk = Cells(3, i).Interior.ColorIndex
Cells(10, i).Interior.ColorIndex = renk
Next
End Sub

 

[Ali]

Excel'in kamera özelliği ile ilgili bir alternatif olsun.

Araçlar-Özelleştir-Komutlar sekmesinde sol bölümdeki Araçlar kısmını tıklayın ve sağ tarafta kamera simgesini mouse ile seçip yukarıdaki araç çubuğunuzun üzerine sürükleyip bırakın.

B3:K3 aralığınızı seçip kamera simgesini tıklayın sonra mouse ile bir kare çizer gibi yapın B3:K3 aralığınızın bir görüntüsünü aldınız sonra bunu istediğiniz kısıma taşıyabilirsiniz.

B3:K3 aralığındaki dolgu rengi-fontu-kalın-italik gibi özellikler değiştikçe, B10:K10 aralığıda aynı şekilde değişecektir.

Örnek dosya ektedir.

 

[leumruk]

Alternatif:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b3:k3,b10:k10]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Row = 3 Then
Range("b3:k3").Copy [b10]
End If
If Target.Row = 10 Then
Range("b10:k10").Copy [b3]
End If
End Sub

 

[ynmcan]

Sn.Uzmanamele,
yoladığınız kod işimi gördü. Teşekkür ederim.

Sn. Ali,
sizin soylediğiniz yöntem B3:K3 satırının fotarafını çektiği için başka satırın üstüne sürüklesekte bu hücrelerin içeriğini değiştirmediğinden benim işime yaramıyor, çünkü ben bu hücrelerden başka yerlere veri alıcam. Size ve diğer ilgilenen arkadaşlara teşekkür ederim.

 

[ynmcan]

Merhaba arkadaşlar,
Sn.Uzmanamelenin 4. mesajında yoladığı aşağıdaki kodu kulanıyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 11
renk = Cells(3, i).Interior.ColorIndex
Cells(10, i).Interior.ColorIndex = renk
Next
End Sub

Ancak bu koda 3. satır da değiştirdiğim renkler 10. satırdada değişiyor.10. satırdan renk değiştirmeme olanak vermiyor. Benim çalışmamda, o anki duruma göre 3. veya 10. satırdan renk değiştirmem gerekiyor. (Gerektiğinde Şu anda olduğu gibi 3. satırdan renk değiştirdiğimde 10. satırda değişsin, gerektiğinde 10. satırdan renk değiştirdiğimde 3. satırdaki rekte değişsin istiyorum.)
Ayrıca renk ile birikte hücre içeriğide değişebilirmi ?

 

[ynmcan]

Merhaba arkadaşlar,
Sn.Uzmanamelenin 4. mesajında yoladığı aşağıdaki kodu kulanıyorum.

Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 11
renk = Cells(3, i).Interior.ColorIndex
Cells(10, i).Interior.ColorIndex = renk
Next
End Sub

Ancak bu koda 3. satır da değiştirdiğim renkler 10. satırdada değişiyor.10. satırdan renk değiştirmeme olanak vermiyor. Benim çalışmamda, o anki duruma göre 3. veya 10. satırdan renk değiştirmem gerekiyor. (Gerektiğinde Şu anda olduğu gibi 3. satırdan renk değiştirdiğimde 10. satırda değişsin, gerektiğinde 10. satırdan renk değiştirdiğimde 3. satırdaki rekte değişsin istiyorum.)
Ayrıca renk ile birikte hücre içeriğide değişebilirmi ?
Eklenmiş Dosyalar
Dosya Türü: xls ÖRN. DOS.xls (43.0 KB, 1 Görüntülenme)

 

[ZİNDAN]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 11
renk = Cells(3, i).Interior.ColorIndex
Cells(10, i).Interior.ColorIndex = renk
Next
End Sub

Bu yukarıdaki kodu sütun değilde satıra göre renklendirmesini yaparız.