MACRO İLE KOŞULLU BİÇİMLENDİRME

[HKMTYLMZ]

MACRO ÝLE KOÞULLU BÝÇÝMLENDÝRME

İyi günler,

Excelde bölüm ve departmanlar adına yapacak olduğum ve yapmış olduğum ödemeleri takip ettiğim bir tablom var. Bu tabloda H sutununa departman ve bölümlerin adlarını yazıyorum. Yazmış olduğum bölüm isimlerine göre o satırın A sütünundan H sütünuna kadar olan kısmı o departman için veya o bölüm için belirleyeceğim renkle dolgu yapmasını istiyorum. Bu satırların renklendirilmesini koşullu biçimlendirme yapıyorum fakat koşullu biçimlendirme en fazla 3 koşul aldığı için yetmiyor. Departman veya bölüm sayısı şu anda 7 ve bu sayı her geçen gün artıyor. Bunun için bir makro yapılabilir mi?

şöyleki H sütununda satış yazan satırlar yeşil muhasebe yazan satırlar kırmızı olsun gibi bir makro yapılabilir mi?

Saygılarımla,

 

[Ali]

Ã?rnek dosyanızı eklerseniz daha iyi bir cevap verilebilir..

 

[HKMTYLMZ]

İşte örnek....

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Departman adını değiştirdiğinizde renklenme gerçekleşecektir.

[vb:1:3869ccd239]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h:h]) Is Nothing Then Exit Sub
adr = "a" & Target.Row & ":h" & Target.Row
Select Case Target
Case "MUHASEBE": Range(adr).Interior.ColorIndex = 3
Case "TEKNİK": Range(adr).Interior.ColorIndex = 38
Case "PERSONEL": Range(adr).Interior.ColorIndex = 44
Case "OPERASYON": Range(adr).Interior.ColorIndex = 50
Case "BAKIM ONARIM": Range(adr).Interior.ColorIndex = 33
Case "SATIÞ": Range(adr).Interior.ColorIndex = 36
Case "SATIN ALMA": Range(adr).Interior.ColorIndex = 46
End Select
End Sub
[/vb:1:3869ccd239]

 

[HKMTYLMZ]

çok teşekkür ederim. süper olmuş...
Fakat renklerin 3, 38 gibi olduğunu nasıl bulabilerim. yani 3 ün kırmız olduğunu gösteren bir tablo veya bir döküman var mı?

 

[Ali]

Ekteki dosyada sayıya göre istediğiniz rengi seçin

 

[HKMTYLMZ]

bu renk kodları.zip dosyasını indiremiyorum.
bu zipli dosyayı hikmet@hikmet.gen.tr adresine mail atarmısınız?

 

[Ali]

Denedim dosya iniyor :düsün: . Ben sizin mailede gönderdim..

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu boş bir sayfada bir butona bağlayarak çalıştırın.

[vb:1:8510aea93b]Sub renkler()
For a = 1 To 50
Cells(a, "a") = a
Cells(a, "b").Interior.ColorIndex = a
Next
End Sub
[/vb:1:8510aea93b]

 

[HKMTYLMZ]

hepinize çok teşekkür ederim çok işime yaradı allah ne muradınız varsa versin...
çok çok çok çok teşekkür ediyorum.
yazı fontunu, yazı rengini ve yazı karakterlerinide bu yolla biçimleyebilirim değil mi?
son olarak birde bana yazı fontu için yazı rengi için ve yazı karekteri için hangi komutlarımı söylerseniz size müteşekkir olurum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:3a37353165]Target.Font.Size = 16
Target.Font.ColorIndex = 3
Target.Font.Name = "Tahoma"
[/vb:1:3a37353165]