Hücre renk biçimleri ile ilgili VBA Kodu hk.

[gkhn2]

Merhabalar


ActiveCell.Cells.Interior.ColorIndex = 7 ' Hücre Rengi
Bu kod aktif hücrenin dolgu rengini değiştiriyor.

Eğer aktif hücrenin dolgusunu yukarıdaki koda ek olarak, fontu kalın yapıp beyaza boyamam için hangi kodu yazmam gerekiyor?

 

[Ömer BARAN]

Merhaba.

Selection.Interior.Color = vbWhite
Selection.Font.Bold = True

 

[çıtır]

Koda ilave ediniz.
ActiveCell.Cells.Font.Bold = True
ActiveCell.Cells.Font.ColorIndex = 2

 

[gkhn2]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Cells.Interior.ColorIndex = 7 ' Hücre Rengi
ActiveCell.Cells.Font.Bold = True
ActiveCell.Cells.Font.ColorIndex = 2
End Sub

Be şekilde yapıyorum fakat ilginçtir, hücrenin dolgusunu veriyor, kalın yapıyor, fontu beyaza boyuyor ama hücreden çıkıp başka yere tıklayınca ilk tıkladığım yer kalın ve beyaz kalıyor ama dolgusu beyaza dönüyor.

 

[Ömer BARAN]

Verdiğim cevap, konu açılış mesajınızdaki sorunun tam karşılığıdır.

Sorunuzu; gerçek belgenizin, özel bilgi içermeyen kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorunuz.
Belge içerisine yapılmak istenilen işleme ait kısa/net açıklama eklemeyi unutmayın tabi.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[gkhn2]

Verdiğim cevap, konu açılış mesajınızdaki sorunun tam karşılığıdır.

Sorunuzu; gerçek belgenizin, özel bilgi içermeyen kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorunuz.
Belge içerisine yapılmak istenilen işleme ait kısa/net açıklama eklemeyi unutmayın tabi.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

Peki. Sizin dediğiniz şekilde kodu yapıştırdım kaydettim ve eke koydum.

http://dosya.co/qdhvlq1lgxiz/YAZARAK_ARATMA.zip.html

 

[Ömer BARAN]

Dosyada yapılmak istenileni açıklamamışsınız.
Yine malesef tahmin üzerine cevap vereceğim.

Belgedeki harici sorgu içeren bağlantıyı kaldırmadan eklemişsiniz.

-- Gerçek belgenize kod'u uygulamadan önce CARİ SEÇME sayfası A sütununu seçip yazı rengini SİYAH olarak ayarlayın,
-- ardından alt taraftan CARİ SEÇME sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ tarafta Private Sub Worksheet_SelectionChange kod blokunu aşağıdakiyle değiştirin.

A sütununda dolu bir hücre seçildiğinde; seçilen satırda A:E sütunlarındaki hücreler mor zeminde, beyaz ve kalın yazı tipi elde edilir.
Kod'daki mavi satırlar seçim öncesindeki biçimlendirmeyi kaldırır, kırmızı olan satırlar ise istenilen biçimlendirmeyi gerçekleştirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Count > 1 Then Exit Sub
alan = "A4:A" & Cells(Rows.Count, 1).End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    alan2 = "A4:E" & Cells(Rows.Count, 1).End(3).Row
    Range(alan2).Interior.Color = vbWhite
    Range(alan2).Font.Bold = False
secim = Range("A" & Target.Row & ":E" & Target.Row).Address
Range(secim).Interior.ColorIndex = 7
Range(secim).Font.Bold = True
End Sub

 

[gkhn2]

Dosyada yapılmak istenileni açıklamamışsınız.
Yine malesef tahmin üzerine cevap vereceğim.

Belgedeki harici sorgu içeren bağlantıyı kaldırmadan eklemişsiniz.

-- Gerçek belgenize kod'u uygulamadan önce CARİ SEÇME sayfası A sütununu seçip yazı rengini SİYAH olarak ayarlayın,
-- ardından alt taraftan CARİ SEÇME sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağ tarafta Private Sub Worksheet_SelectionChange kod blokunu aşağıdakiyle değiştirin.

A sütununda dolu bir hücre seçildiğinde; seçilen satırda A:E sütunlarındaki hücreler mor zeminde, beyaz ve kalın yazı tipi elde edilir.
Kod'daki mavi satırlar seçim öncesindeki biçimlendirmeyi kaldırır, kırmızı olan satırlar ise istenilen biçimlendirmeyi gerçekleştirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Count > 1 Then Exit Sub
alan = "A4:A" & Cells(Rows.Count, 1).End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    alan2 = "A4:E" & Cells(Rows.Count, 1).End(3).Row
    Range(alan2).Interior.Color = vbWhite
    Range(alan2).Font.Bold = False
secim = Range("A" & Target.Row & ":E" & Target.Row).Address
Range(secim).Interior.ColorIndex = 7
Range(secim).Font.Bold = True
End Sub

Çok teşekkür ederim Ömer Bey. Tam olarak istediğim buydu. Tahmininiz doğru yönde =)
Kolay gelsin iyi akşamlar.

 

[Ömer BARAN]

İyi çalışmalar dilerim.