iki hücre arasındaki biçimlendirme

[budapeshte]

Arkadaşlar eklediğim excel dosyasında anlatmaya çalıştım tam olarak ne istediğimi ilgilenirseniz sevinirim.

 

[budapeshte]

Eklenmemiş demin şimdi ekledim.

 

[Ömer]

Merhaba,

Çalışma sayfası kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2:G65536]) Is Nothing Then Exit Sub
    Target.Font.ColorIndex = Target.Offset(0, -6).Font.ColorIndex
End Sub

.

 

[budapeshte]

ömer bey ben beceremedim galiba dosya üzerinde yapabilirmisiniz acaba

 

[Ömer]

Dosyanız ekte.

.

 

[budapeshte]

ömer bey dikkat ettiyseniz g sütununa veri girince onun font rengi ile a sütunundaki font rengi tutmuyor. örneğin g sütununda LGS1 girdik o a sütununda kırmızı ise g de kırmızı olması lazım. ayrıca c sütununa da veri girersek g sütunun rengini alması lazım.. yani g sütunu rengini a dan alıcak, c sütunu rengini g den alıcak sonucta hepsi aynı renk olacak 1 satır için konusursak.

 

[udentr2002]

sayfa adının üzerine sağ tıkla kod görüntüle de açılan sayfaya aşağıdaki kodu yapıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G2:G65536]) Is Nothing Then Exit Sub
    Target.Font.ColorIndex = Target.Offset(0, -6).Font.ColorIndex
    Target.Offset(0, -4).Font.ColorIndex = Target.Font.ColorIndex
End Sub

 

[budapeshte]

teşekkür ederim ama bir soun var galiba mesela a kolonuna yeni bir veri girip g kolonunda onu sectiğimizde aynı renk olmuyor. ayrıca ben a kolonunu sadece g ye veri olsun diye yazmıştım yani o kolonda 10-15 civarı veri olacak ama g kolonunda daha çok. sonuçta yeni bir şey ekleyim g de onu girdigimde aynı renk olmuyo açık mavi falana oluyor.

 

[budapeshte]

yani a kolonu bağımsız olmalı a ya mesela morgan yazdım aynı satırda g sutununda concrete ısaretledım ama o butun satır aynı renk oluyor. yanı a kolonu bagımsız birşey baska bır yerde de olabılırdi. önemli olan g ye girelen degerleri a kolonundan alıyor a kolonundaki verilerin renginin geçmesi

 

[budapeshte]

ekte gönderiyorum dosyayı buna bakarsanız bence daha iyi olur

 

[udentr2002]

[queto]
ömer bey dikkat ettiyseniz g sütununa veri girince onun font rengi ile a sütunundaki font rengi tutmuyor. örneğin g sütununda LGS1 girdik o a sütununda kırmızı ise g de kırmızı olması lazım. ayrıca c sütununa da veri girersek g sütunun rengini alması lazım.. yani g sütunu rengini a dan alıcak, c sütunu rengini g den alıcak sonucta hepsi aynı renk olacak 1 satır için konusursak.
[/queto]

ben anlayamadım açıkcası senin istediğin g stünunda seçtiğimiz verinin rengi a stünundaki ile aynı olması değilmi vede c stünunda renginin c'den alması değilmi yazdığından bunu anlıyorum ben diğer yazdıkalrın daha çok kafamı karıştırdı. Umarım hocalardan biri yardım eder.

 

[Ömer]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:G65536]) Is Nothing Then Exit Sub
    Target.Font.ColorIndex = Target.Offset(0, -1 * (Target.Column - 1)). _
    Font.ColorIndex
End Sub

 

[Merhum İdris SERDAR]

ekte gönderiyorum dosyayı buna bakarsanız bence daha iyi olur

.

Böyle bir şey mi istiyorsunuz?


.

 

[mustafaine1]

.

Böyle bir şey mi istiyorsunuz?


.

Tesekkurler boyle bir kullanim aklima gelmezdi, hemen bir ornek aldim dosyznizdan

 

[budapeshte]

teşekkür ederim evet bunun gibi birşeydi aradığım.