Aynı Sütun boyunca 1 yazılan hücre rengi yeşil olsun.

[kopernick]

Sayın Hocalarım,

Excelde örnğin A suütunu boyunca yukardan aşağıya herhangibir hücreye 1 yazıldığında ilgili hücrenin rengini nasıl yeşil yaparız. İlgili hücredeki 1 silinince hücre rengi önceki renksiz hale nasıl bir makro ile gelebilcek.

SAYGILARIMLA

 

[BG]

Sayın kopernick

Sayın Hocalarım,

Excelde örnğin A suütunu boyunca yukardan aşağıya herhangibir hücreye 1 yazıldığında ilgili hücrenin rengini nasıl yeşil yaparız. İlgili hücredeki 1 silinince hücre rengi önceki renksiz hale nasıl bir makro ile gelebilcek.

SAYGILARIMLA

Bu işlemi yapmak için makro kullanmanıza gerek yoktur.Eğer illaki makro ile yapmak istiyorsanız lütfen belirtiniz. Dosyanız ektedir.

 

[ReBiwAr]

Koşullu biçimlendirme ile yapılabilirdi. Lütfen forumda arama yapın...

 

[BG]

Sayın kopernick

Sayın Hocalarım,

Excelde örnğin A suütunu boyunca yukardan aşağıya herhangibir hücreye 1 yazıldığında ilgili hücrenin rengini nasıl yeşil yaparız. İlgili hücredeki 1 silinince hücre rengi önceki renksiz hale nasıl bir makro ile gelebilcek.

SAYGILARIMLA

eğer kod ile yapmak isterseniz, aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
        If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
            For x = 1 To [a65536].End(xlUp).Row
                If Cells(x, 1).Value = 1 Then
                    Cells(x, 1).Interior.ColorIndex = 4
                ElseIf Cells(x, 1).Value <> 1 Then
                    Cells(x, 1).Interior.ColorIndex = 0
                End If
            Next
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Alternatif

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
    If Target = 1 Then Target.Interior.ColorIndex = 4
    If Target <> 1 Then Target.Interior.ColorIndex = xlNone
End Sub

 

[kopernick]

Herkese teşekkür ediyorum, işiniz rast gitsin.