Excelde körser gittigim hücre renkli görünsün istiyorum

[othara]

Mesala A1 deyim yesil olsun rengi B1 e indigimde B1 hücresi yesil olsun sonra C5 e gittimde ora yesil olsun ..Terkettigim hücreler rengini yitirsin mümkünmü

 

[Haluk]

Mümkün .... ama "Mizah" bölümünde değil !

 

[veyselemre]

umarım yetkili arkadaşlar ilgili bölüme sorunu taşırlar
elimde bulunan bir örneği gönderiyorum

 

[Guest]

Merhaba Başlığı Macrolar kısmına taşıdım.
Bilgilerinize... :yazici: :hey:

 

[Haluk]

Alternatif:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static OldRange As Range
    OldRange.Interior.ColorIndex = 0
    On Error Resume Next
    Target.Interior.Color = vbRed
    Set OldRange = Target
End Sub

 

[othara]

teşekkür ederim acemilik iste.. bir sorunum daha var uyguladım ama ben istiyorum ki birden fazla calisma sayfasına uygulayalim

 

[htsumer]

birden fazla calisma sayfasına uygulayalim

Her sayfanın kod kısmına ayrı ayrı yapıştırın..Olmazmı?

 

[veyselemre]

ThisWorkbook 'un kod kısmına aşağıdaki kodu yapıştır

[vb:1:b17bf1a515]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, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub[/vb:1:b17bf1a515]

 

[othara]

gezindigim hücre renklendi ama kopyalayip yapiştiramiyorum

bu ilmei yaptım mesala renklendi ama ben bir hücreyi ctrl+c kopyaliyorum ama yapiştiramiyorum neden acaba

 

[Haluk]

Formul cubugunun icine tiklayip, icerigini fare ile secip daha sonra Ctrl + C yapmayi deneyin ...

 

[othara]

yok olmuyor illa formüllü hücre degil digerlerinide kopyaliytor ama yapıstırmıyor

ya siz iyilik mlegisiniz ben kac zmandır kend basıma ugraistyorum ama bugun ki gibi yol katetmedim hiç saolun :mutlu:

 

[ozkbilgi]

arkadaşlar yukarıdaki soruya istinaden aktif olan hücre renkleniyor peki bunu bütün excel sayfalarında nasıl yapabiliriz yani exceli açtığımda aktif hücre renli olsun eklenti gibi mesela

 

[ozkbilgi]

sayın veysel emre bey

ThisWorkbook 'un kod kısmına aşağıdaki kodu yapıştır

[vb:1:9096e7ee26]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, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub[/vb:1:9096e7ee26]

yanlız kodu yapıtırıyoruz ancak akitif olan hücreden kopyala veya yapıştır yapamıyoruz.

 

[htsumer]

ozkbilgi,
Zaten Hücrenin aktiv edilmesi sırasında makro çalışıyor ve hücreyi renklendiriyor.Copy yaptığınızda pano görüntüleyicinizdeki değer makro çalışması nedeni ile kaybolacaktır.
Yani ya copy paste yapmıyacaksınız yada hücreleri özgün hali ile kullanacaksınız dimi ama.. :icelim:

yada..

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

olayına yazın..