Bloke Durumu..!

[sensizsoldum]

Merhaba,
Çalışma da Liste ve Bloke İsimli iki sayfa mevcut.
Liste sayfası C3:C aralığında ki veri, Bloke Sayfası C3:C de mevcut ise, Liste sayfasının J sütundaki satırında BLOKE yazması gerekiyor. Aynı zamanda Liste sayfasının A ve J aralığı kırmızı olması gerekiyor.
Bir yol yordam göstere bilir misiniz? İlgilileriniz için teşekkür ederim iyi çalışmalar dilerim.
Saygılarımla.

 

[Emir Hüseyin Çoban]

. . .

Font Kırmızı

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Liste")
Set S2 = Sheets("Bloke")

s1son = S1.[c65536].End(3).Row

'S1.Range("a3:a" & s1son).Interior.ColorIndex = xlNone
S1.Range("a3:j" & s1son).Font.ColorIndex = 0
S1.Range("j3:j" & s1son).ClearContents

For i = 3 To s1son

If S1.Cells(i, "c") <> "" And _
WorksheetFunction.CountIf(S2.Range("c:c"), S1.Cells(i, "c")) > 0 Then
S1.Cells(i, "j") = "BLOKE"
'S1.Range("a" & i & ":j" & i).Interior.ColorIndex = 3
S1.Range("a" & i & ":j" & i).Font.ColorIndex = 3


Else: End If
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

Dolgu Kırmızı

S1.Range("a" & i & ":j" & i).Interior.ColorIndex = 3

. . .

 

[sensizsoldum]

Merhaba Hüseyin Bey,
İlginiz çin teşekkür ederim, Bana butonsuz bir yöntem gerek. çalışmanın dinamik çalışması için. yada formül. formül benim için en ideal yöntem. Ayrıca Renklenmeyi de koşul ile yapmak çalışmada kasmaya sebebiyet vermez sanırsam. Buna Uygun bir fikriniz varmı.

Tekrardan teşekkür ederim. İyi akşamlar dilerim.

Saygılarımla.

 

[Emir Hüseyin Çoban]

. . .

Tabiki tablonuzu istediğiniz şekilde oluşturabilirsiniz.
Ancak sorularınızı uygun başlıklar altında sormalısınız.
Kodlar dinamik hale getirilebilir. Formülle daha mı pratik olur, onu bilemiyorum.

. . .

 

[sensizsoldum]

Merhaba,

Haklısınız Hüseyin bey, lakin bu konuya başlığı ne kullanacağımı pek bulamadım. Biraz karmaşık bir durum. Konuyu sizin anladığınızı umuyorum. Şirkette olduğumdan örnek bir dosya eklememiştim. Şimdi bir örnek dosya ekliyorum. Eki incelediğinizde eminim konu daha iyi aydınlanmış olacaktır.
Formül ile olursa çok daha memnun olacağım.
Teşekkür ederim İyi akşamlar dilerim.

 

[Emir Hüseyin Çoban]

. . .

Koşullu biçimlendirme ile yapıldı.
20.satıra kadar yaptım. İhtiyacınıza göre satırı seçip, kopyala yapıştır ile çoğaltın.

. . .

 

[sensizsoldum]

Teşekkür ederim Hüseyin Bey,
Elinize Sağlık tam istediğim gibi. Çok teşekkürler.