Yazı rengi

[mbattal]

Arkadaşlar Merhaba,

Örneğin A1 hücresindeki yazı rengi kırmızı
B1 hücresine girdiğim yazı rengininde kırmızı olması için ne yapmam gerekiyor.
Teşekkürler

 

[mbattal]

Yukarıda bahsettiğim olayı koşullu biçimlendirme ile yapabilirmiyiz

 

[Korhan Ayhan]

Selamlar,

Bu işlemin kod ile olacağını düşünüyorum. Tam olarak B1 hücresine değer girdiğinizde B1 hücresindeki biçimlendirmenin A1 hücresinin biçimlendirmesi ile aynı olmasınımı istiyorsunuz.

 

[mbattal]

evet sayın cost control mümkünmü acaba

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[mbattal]

Selamlar
Çok teşekkür ederim sayın cost control,
Çok oluyorum ama şöylede olabilirmi
mesela B1 biçimlendirmesi A1'e göre, B2 A2'ye göre,B3 A3'e göre böyle 20000 satıra kadar olabilirmi
teşekkürler

 

[Korhan Ayhan]

Selamlar,

Belirttiğiniz gibi çok olmuyorsunuz. Sadece imzamda da belirttiğim gibi sorunuzu açıklayıcı olarak sorarsanız istediğiniz cevabı almanızda o derecede kolaylaşacaktır. Örnek dosyadaki kodu aşağıdaki ile değiştirip denermisiniz. Tam olarak denetlemedim kodları eksikleri olabilir. Belirtirseniz düzeltmeye çalışırız. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target = "" Then Target.ClearFormats
    If Not IsEmpty(Target) Then
    Application.EnableEvents = False
    Cells(Target.Row, 1).Copy
    Target.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    Application.EnableEvents = True
    End If
End Sub

 

[mbattal]

Çok sağolun sayın cost control
verdiğiniz her iki örnekte çok işime yarayacak
teşekkürler
(kodlar iyi çalışıyor)

kolay gelsin.