Hucre renklendirme hakkinda yardim

[lock&sawyer]

Arkadaslar ekte ornegini verdigim bir tablo var.Aciklamasini orda yazdim.
departman renklerini diger sutunda otamatik atmasini istiyorum.Yani deparmani yazildiginda gorevi hucresi o departmanin rengine boyansin..

tesekkurler...

ek 2003 formatina gore duzenledim.tekrar bakarmisiniz

 

[Orion1]

Dosyanızı 2003 versiyonunda yüklerseniz daha çabuk cevap alabilirsiniz.Henüz herkeste 2007 yok.

 

[Kemal Demir]

Günaydın,

Sorunuzu pek anlayamadım ama ek'teki örneğe bakınız.

Sub Renklendir()
For x = 3 To 6
Cells(x, 7) = Range("f" & x).Interior.ColorIndex
Next
End Sub

 

[lock&sawyer]

Günaydın,

Sorunuzu pek anlayamadım ama ek'teki örneğe bakınız.

Sub Renklendir()
For x = 3 To 6
Cells(x, 7) = Range("f" & x).Interior.ColorIndex
Next
End Sub

ilginize tesekkur ederim ama benim istegim bu degildi. soyleki tabloda departman bolumunu depaermani yazildiginda mesala securty ise eger gorevi bolumu otomatik olarak kirmizi renge boyancak. Kosullu bicimlendirme ile yapiliyor ama ben beceremedim...

 

[Kemal Demir]

Aşagıdaki kodu deneyiniz.

Sub Renklendir()
For x = 3 To [e65536].End(3).Row
If Cells(x, 5) = "SECURTY" Then
Cells(x, 6).Interior.ColorIndex = 3
End If
If Cells(x, 5) = "FRONT OFFICE" Then
Cells(x, 6).Interior.ColorIndex = 6
End If
If Cells(x, 5) = "F&B" Then
Cells(x, 6).Interior.ColorIndex = 33
End If
If Cells(x, 5) = "MANAGEMENT" Then
Cells(x, 6).Interior.ColorIndex = 43
End If

Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz. İsterseniz E sütununa giriş yaparak yada giri yapılmış hücreleri seçerek renklendirme işlemini yapabilirsiniz.

Ayrıca 2007 versiyonu kullanıyorsanız makro kullanmadan da koşullu biçimlendirme ile rahatlıkla yapabilirsiniz. Aşağıdaki linkten faydalanabilirsiniz.

http://office.microsoft.com/tr-tr/excel/FX100646951055.aspx?CTT=96&Origin=CL100570551055

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [E3:E65536]) Is Nothing Then Exit Sub
    Select Case Target
        Case Is = "SECURTY"
        Target.Offset(0, 1).Interior.ColorIndex = 3
        Case Is = "FRONT OFFICE"
        Target.Offset(0, 1).Interior.ColorIndex = 6
        Case Is = "F&B"
        Target.Offset(0, 1).Interior.ColorIndex = 33
        Case Is = "MANAGEMENT"
        Target.Offset(0, 1).Interior.ColorIndex = 43
        Case Else
        Target.Offset(0, 1).Interior.ColorIndex = xlNone
    End Select
Son:
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [E3:E65536]) Is Nothing Then Exit Sub
    Select Case Target
        Case Is = "SECURTY"
        Target.Offset(0, 1).Interior.ColorIndex = 3
        Case Is = "FRONT OFFICE"
        Target.Offset(0, 1).Interior.ColorIndex = 6
        Case Is = "F&B"
        Target.Offset(0, 1).Interior.ColorIndex = 33
        Case Is = "MANAGEMENT"
        Target.Offset(0, 1).Interior.ColorIndex = 43
        Case Else
        Target.Offset(0, 1).Interior.ColorIndex = xlNone
    End Select
Son:
End Sub

 

[Kemal Demir]

Korhan Bey,

Güzel bir örnek.

 

[lock&sawyer]

Arkadaslar ilginiz icin tesekkurler. Kosullu bicimlendirme kullanarak istedigim seyi yapmayi basardim. Tesekkurler