• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İşlem Yaptığımı satır Farklı Renk olsun

S

starmetin

Katılım
9 Mayıs 2005
Mesajlar
366
Excel Vers. ve Dili
Excel 2007 - Türkçe
Selam Arkadaşlar,
İmleçim üzerinde bulunduğum satır "olabiliyorsa o satır boydan boya" farklı bir arkplan rengi ile gösterbiliyozmu arkplan rengi demekten kastım renk olsun yeter :))) , yani ok tuşlarıyla gezdiğim zaman excel dosyası üzerinde hangi satırdaysam o satır farklı bir renk alsın böyle birşey mümkün mü...? olabiliyorsa o satır kopmple farklı renkte olsun...
umarım anlaşılmıştır sorum...
yardımcı olabilecek arkadaşlar çok çok teşekkürler...
hürmetler...
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Interior.ColorIndex = 6
End Sub
 
Eğer dolgu rengide olan bir sayfanız varsa aşağıdaki kodlar daha uygun olacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub
 
Sayın fructose,

her iki örneğinizde gayet güzel çalışıyor fakat, ön izleme yaptığımızda (yazıcıdan çıktı aldığımızda) aynı renkler duruyor, bunun kaldırılması olası olabilir mi?

İkinci olarak ta, arka planın rengine göre yazılar okunmuyor olabiliyor, ön plana da bir renk verilse iyi olur sanırım.
 
Sn Necdet_Yesertener,
Kodların altına aşağıdaki kodlarıda ekleyerek deneyin

Private Sub Worksheet_BeforePrint()
With ActiveSheet.PageSetup

BAndW = _
MsgBox("Eğer Evet derseniz siyah beyaz yazacak eğer hayır derseniz renkli yazacak" _
& vbCrLf & "Baskı yazılacak ", vbQuestion + vbYesNo, "Yazma seçenekleri")

Select Case BAndW
Case vbYes
.BlackAndWhite = True
Case vbNo
.BlackAndWhite = False
End Select
End With
End Sub
 
ön izleme yaptığımızda (yazıcıdan çıktı aldığımızda) aynı renkler duruyor, bunun kaldırılması olası olabilir mi?
Genişletmek için tıkla ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub

Private Sub Worksheet_BeforePrint()
Cells.Interior.ColorIndex.xlNone
End Sub

bu şekildede olabilir
 
Teşekkür ederim Sayın fructose
 
selam,
fructose üstadım sen olayı aşmışın artık ne diyeyim çok sağolasın işime yarayacak bu kod bayaa mükemmelisiniz çok faydalı bir site :))))
üstadlar siz kurs falan vermiyormusunuz ücretli verseniz de bizde gietsek ve sizin gibi uzmanlaşsak bu konuda....
teşekkürler
 
Sn starmetin,

Bu sitede "ücret" kelimesi yasak.

Bir daha tekrarlarsanız banlanırsınız. :)
 
Merhabalar.

Alternatif olması açısından üstad leventm 'in bu konu ile ilgili kodlarını aşağıda bulabilirsiniz.

Kolay Gelsin.
[vb:1:cdcdc965cc]
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
On Error Resume Next
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Interior.ColorIndex = 36
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Font.Bold = True
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Font.ColorIndex = 3
'www.excel.web.tr
Application.StatusBar = " Değer : " & ActiveCell.Value
End Sub
[/vb:1:cdcdc965cc]
 
mehmett' Alıntı:
Sn starmetin,

Bu sitede "ücret" kelimesi yasak.

Bir daha tekrarlarsanız banlanırsınız. :)
Genişletmek için tıkla ...

Selam Dostlar,
İşin şakası bir yana gerçekten bu siteden o kadar çok şey öğreniyoruz ki anlatamam , gerçi sizler her zaman diyorsunuz burada ki dökümanlari düzenli takip ederseniz kendinizi baya geliştirirsiniz diye ... ama ben biraz aceleciyim galiba bir an önce öğrenmek istiyorum onun için kurs falan diyorum , ama emeklemeden yürümek olmaz nabalım sabırla deneye deneye sora sora kendimizi geliştiricez ....

Bilgisini paylaşan arkaşlara tekrar teşekkürler.. :) :hey:
 
Arkadaşlar Ben denedim bunları ama Çıktıda görünüyor.
Artı Kod silinince sarı şerit orda kalıyor. Bi daha silinmiyor.
Bunu nasıl çözebiliriz sizce.
 
Sn gecemavisi, Thisworkbook'a aşağıdaki kodları ekleyin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells.Interior.ColorIndex = xlNone
End Sub

bu kodları kodlarınızın başına ekleyin
 
Fructose selamlar,

İşimize çok yarayan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Interior.ColorIndex = 6
End Sub

kodu kullandım, teşekkür ederiz. Ama bi kaç sorum var

1/Orada, Aktif hücrenin zemin rengi siyah yazı karakteri kalın ve beyaz olsun komutunu da ekleyebilir misin?

2/ bu kodu tüm çalışma sayflarında kullanmak istersem nereye yapıştırmam gerekir.

3/ Bu kodu (Toggle), etkinleştir-pasifleştir düğmesi eklenenilir mi
 
Aktif hücrenin zemin rengi siyah yazı karakteri kalın ve beyaz olsun
Genişletmek için tıkla ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 1, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Font.ColorIndex = 2
End With
End Sub


tüm çalışma sayflarında kullanmak istersem nereye yapıştırmam gerekir
Genişletmek için tıkla ...

Alt+F11 ile VBA düzenleyici açıp Thisworkbook'a

Aşağıdaki şekli ile yapıştırın.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 1, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Font.ColorIndex = 2
End With
End Sub
 
Yardımlarınız için sağolun, Toggle kısmını da başka bir arkadaş yanıtlar heralde.

Ayrıca, sizin cevapladığınız bi konuya benzer bir konu açmıştım, şurada yer alıyor :
http://www.excel.web.tr/viewtopic.php?t=17651
henuz cevap veren olmadı, ona da bakar mısınız bir ara,
şimdiden teşekkürler
 
Sayın Fructose,
Koşullu biçimlendirmeleri neden iptal ediyor???
 
Yardım

Arkadaşlar bu macroyu modüle kopyalayarak dosyaya ait tüm sayfalarda çalışmasını nasıl sağlarız . Benim çalışma sayfada başka iki macro var Şu şekilde hata mesajı veriyor:Ambigıous name detected:Private Sub Worksheet_SelectionChange ve ayrıca renk numaralarını nasıl öğrenebilirim sarı yada yeşil olmasını
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst