Makrolarla koşullu biçimlendirme ( belirli kelime için) yardım...

[vimpir]

Merkez ofis yazıldığında a5 den n5 kadar gri renk e boyamak istiyorum
şube ofiste beyaz kalmasını istiyorum
ve aşağı kadar sonuna kadar bu kodun aynı şekilde yapılmasını istiyorum
bana yardımcı olursanız sevinirim
içinde ki mevcut kodla beraber çalışması mümkün mü?
örnek ile daha iyi anlayabileceğinizi düşündüğüm için örnek tablo yaptım yardım olursanız sevinirim...

 

[Ergün Güler]

Merkez ofis yazıldığında a5 den n5 kadar gri renk e boyamak istiyorum
şube ofiste beyaz kalmasını istiyorum
ve aşağı kadar sonuna kadar bu kodun aynı şekilde yapılmasını istiyorum
bana yardımcı olursanız sevinirim
içinde ki mevcut kodla beraber çalışması mümkün mü?
örnek ile daha iyi anlayabileceğinizi düşündüğüm için örnek tablo yaptım yardım olursanız sevinirim...

Selam,
Sayfa1'e aşağıdaki kodları ekleyiniz.
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long

If Intersect(Target, Range("I5:I65536")) Is Nothing Then Exit Sub

sat = Target.Row

If Range("I" & sat) = "MERKEZ OFİS" Or Range("I" & sat) = "merkez ofis" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 15

Else

Range("A" & sat & ":N" & sat).Interior.ColorIndex = xlNone

End If

End Sub

 

[vimpir]

Çok Teşekkür ederim dostum harika oldu...

 

[Ergün Güler]

Çok Teşekkür ederim dostum harika oldu...

Ben teşekkür ederim.
İyi çalışmalar.

 

[kemalist]

Ben teşekkür ederim.
İyi çalışmalar.

SAYIN ERGÜN ŞU LİNKE BİR GÖZ ATABİLİRMİSİNİZ? ŞİMDİDEN TEŞEKKÜRLER...

http://www.excel.web.tr/f47/makroyla-veri-doorulama-t90995.html#post495993

 

[Ergün Güler]

SAYIN ERGÜN ŞU LİNKE BİR GÖZ ATABİLİRMİSİNİZ? ŞİMDİDEN TEŞEKKÜRLER...

http://www.excel.web.tr/f47/makroyla-veri-doorulama-t90995.html#post495993

Selam yukarıdaki linkteki örnek dosyanızın ilgili sayfanın kod kısmına aşağıdaki kodları kopyalayınız.
Hücre içeriği değiştikçe kodlar çalışacaktır.
karşılaştırılan her iki hücre de boş ise dolgu renkeri de boş olacaktır. Farklı bir renk istiyorsanız kendiniz de uyarlayabilirisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
sut = Target.Column

If Cells(sat, "C") = "" And Cells(sat, "F") = "" Then
Cells(sat, "F").Interior.ColorIndex = xlNone 'dolgu yok

ElseIf Cells(sat, "C") = Cells(sat, "F") Then
Cells(sat, "F").Interior.ColorIndex = 43 'yeşil
Else
Cells(sat, "F").Interior.ColorIndex = 3 'kırmızı

End If

If Cells(5, sut) = "" And Cells(9, sut) = "" Then
Cells(9, sut).Interior.ColorIndex = xlNone 'dolgu yok

ElseIf Cells(5, sut) = Cells(9, sut) Then
Cells(9, sut).Interior.ColorIndex = 43 'yeşil
Else
Cells(9, sut).Interior.ColorIndex = 3 'kırmızı

End If

End Sub

 

[vimpir]

Selam,
Sayfa1'e aşağıdaki kodları ekleyiniz.
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long

If Intersect(Target, Range("I5:I65536")) Is Nothing Then Exit Sub

sat = Target.Row

If Range("I" & sat) = "MERKEZ OFİS" Or Range("I" & sat) = "merkez ofis" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 15

Else

Range("A" & sat & ":N" & sat).Interior.ColorIndex = xlNone

End If

End Sub

Merhaba
Ergün Hocam Bu kodlara 16 REnkinde 3 üncü bir şık (merkez ofis 15 rengindeydi şube ofis beyazdı bir değişik yok idi birde şube2 diye 3. bir ofis ekleyebilirmiyiz bununda rengi 16 olması mümkünmü) ekleyebilirmiyiz ben bir türlü yapamadım Şimdiden yardımlarınız için teşekkür ederim...

 

[Ergün Güler]

Merhaba
Ergün Hocam Bu kodlara 16 REnkinde 3 üncü bir şık (merkez ofis 15 rengindeydi şube ofis beyazdı bir değişik yok idi birde şube2 diye 3. bir ofis ekleyebilirmiyiz bununda rengi 16 olması mümkünmü) ekleyebilirmiyiz ben bir türlü yapamadım Şimdiden yardımlarınız için teşekkür ederim...

Selam aşağıdaki kodu deneyiniz.
hücredeki metin "merkez ofis" ise 15 no.lu renk oluyor.
hücredeki metin "şube2" ise 16 no.lu renk oluyor.
bunların haricinde bir metin ise veya hücre boş ise renksiz oluyor.
İsteğiniz bu mudur?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long

If Intersect(Target, Range("I5:I65536")) Is Nothing Then Exit Sub

sat = Target.Row

If Range("I" & sat) = "MERKEZ OFİS" Or Range("I" & sat) = "merkez ofis" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 15


ElseIf Range("I" & sat) = "Şube2" Or Range("I" & sat) = "şube2" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 16

Else

Range("A" & sat & ":N" & sat).Interior.ColorIndex = xlNone

End If

End Sub
CODE]

 

[vimpir]

Selam aşağıdaki kodu deneyiniz.
hücredeki metin "merkez ofis" ise 15 no.lu renk oluyor.
hücredeki metin "şube2" ise 16 no.lu renk oluyor.
bunların haricinde bir metin ise veya hücre boş ise renksiz oluyor.
İsteğiniz bu mudur?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long

If Intersect(Target, Range("I5:I65536")) Is Nothing Then Exit Sub

sat = Target.Row

If Range("I" & sat) = "MERKEZ OFİS" Or Range("I" & sat) = "merkez ofis" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 15


ElseIf Range("I" & sat) = "Şube2" Or Range("I" & sat) = "şube2" Then

Range("A" & sat & ":N" & sat).Interior.ColorIndex = 16

Else

Range("A" & sat & ":N" & sat).Interior.ColorIndex = xlNone

End If

End Sub
CODE][/Q
Evet Tam anlamıyla buydu teşekkür ederim...