Satırları Bold Yapmak

[icoot]

Merhaba Arkadaşlar,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 15
End Sub

Satır boyamak için bu makroyu kullanıyorum.
Renklenen satırları aynı anda da bold yapmak istiyorum.
Bu formüle nasıl eklerim onu.

Şimdiden Teşekkür Ederim...

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Cells.EntireRow.Font.Bold = False
ActiveCell.EntireRow.Interior.ColorIndex = 15
ActiveCell.EntireRow.Font.Bold = True
End Sub

 

[icoot]

çok teşekkür ederim.

peki bu formülü sadece Q6 - AD205 arasına uygulamak istersem ne yapılması gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Intersect(Target, [Q6:AD205]) Is Nothing Then Exit Sub
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    [Q6:AD205].Interior.ColorIndex = xlColorIndexNone
    [Q6:AD205].EntireRow.Font.Bold = False
    Range("Q" & Target.Row & ":AD" & Target.Row).Interior.ColorIndex = 15
    Range("Q" & Target.Row & ":AD" & Target.Row).Font.Bold = True
End Sub

 

[icoot]

evvvet çok teşekkür ederim.

iyi çalışmalar.

 

[uslu45]

benim sorum da bu konuya yakın sanırım.
ben de mesela "1000" sayısı geçen bi hücreyi hatta o hücreyi içeren bütün bi satırı renklendirecek bi makro yapmak istiyorum yardımcı olur musunuz.teşekkürler...

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target >1000 Then Target.EntireRow.Interior.ColorIndex = 40
If  Target <1000 Then Target.EntireRow.Interior.ColorIndex = xlNone
End Sub

 

[uslu45]

kodu aynen modul açıp kopyaladım ama olmadı niye acaba

 

[Seyit Tiken]

Bir üst mesajta kodu düzeltim.

 

[uslu45]

yine olmadı galiba

 

[Orion1]

benim sorum da bu konuya yakın sanırım.
ben de mesela "1000" sayısı geçen bi hücreyi hatta o hücreyi içeren bütün bi satırı renklendirecek bi makro yapmak istiyorum yardımcı olur musunuz.teşekkürler...

Sizin için koşullu biçimlendirme bire bir uyar.
İsterseniz bir deneyiniz.

 

[Seyit Tiken]

Ekli dosyayı inceleyebilirsiniz.

 

[uslu45]

Sizin için koşullu biçimlendirme bire bir uyar.
İsterseniz bir deneyiniz.

koşullu önerme 3 adete kadar destekliyo yine de teşekkürler

 

[uslu45]

Ekli dosyayı inceleyebilirsiniz.

yardımlarınız için teşekkkürler sn. seyit tiken verdiğiniz dosya tamamdır
kolay gelsin

 

[baydeniro]

Çok teşekkürler herkese. Acaba Hücre altı çizili nasıl yapılabilir

-

 

[Korhan Ayhan]

Merhaba,

Serdar bey bu tarz kodları makro kaydet yöntemiyle kolaylıkla elde edebilirsiniz. Bir deneyin isterseniz.

 

[baydeniro]

Sayın Korhan Ayhan çok çok teşekkür ederim. Aslında hep yaptığım bir şey ama gecenin o saatinde herhalde artık beyin biraz rolantiye almış kendini açıkçası düşünememişim. Değerli fikirleriniz için çok teşekkür ederim, sağlıcakla kalın.