Koşullu Biçimlendirme

[1Al2Ver]

Merhaba,

A2:A20 aralığındaki sayılardan, sıfırdan sonra gelen ilk sayıyı renklendirmek için,

A2:A20 aralığına yazılacak formülü öğrenmek istiyorum.

Teşekkür ederim.

 

[Ali]

=A2=İNDİS($A$2:$A$20;KAÇINCI(0;$A$2:$A$20;0)+1;0)

yazınız.

 

[1Al2Ver]

=A2=İNDİS($A$2:$A$20;KAÇINCI(0;$A$2:$A$20;0)+1;0)

yazınız.

Ali bey merhaba,

Teşekkür ederim, ilerde lazım olacak sanırım, şayet aranan değer A2:N30 aralığında ise formül nasıl olmalıdır ?

 

[hmustafay]

$A$20 ifadesi gördüğün yere $N$30 yazmayı dene

 

[1Al2Ver]

Merhaba,

E2:J20 aralığındaki sayılardan, negatif sayıdan sonra gelen ilk POZİTİF sayıyı renklendirmek için,

E2:J20 aralığına yazılacak formülü öğrenmek istiyorum.

Teşekkür ederim.

 

[ozgretmen]

Sorunuzu örneklendirir misin ?

 

[1Al2Ver]

Sorunuzu örneklendirir misin ?

Sayın ozgretmen merhaba,

J2:J20 aralığında; J2'de negatif sayıdan başlayan ve J20'ye kadar devam eden hem negatif hem de pozitif sayılar var,

J2:J20 aralığında, negatif değerden sonra gelen ilk pozitif sayı nerede ise, pozitif verinin olduğu satır aralığı renklenmeli,

Örnek ; J2:J14 aralığı negatif sayı, J15 ilk pozitif sayı , bu durumda E15:J15 arası renklenecek.

Teşekkür ederim.

 

[Ali]

J1 hücresine

=KAÇINCI(DOĞRU;$J$2:$J$20>0;0)

yazıp CTRL+SHIFT+ENTER tuşlarına birlikte basınız.

Daha sonra E2:J20 aralığınızı seçip koşullu biçimlendirme içine

=SATIRSAY(E2:$E$2)=$J$1

yazıp istediğiniz rengi veriniz.

 

[ozgretmen]

Sayın Ali bey cevabı vermiş.Ben de kodlarla yaptım.

Sub biçimlendir()
Columns("E:D").Interior.ColorIndex = xlNone
For i = 2 To 20
If Cells(i, "E") > 0 Then
k = k + 1
Cells(k, "D") = Cells(i, "E").Row
End If
Next i
Range("E2:J" & [D1].Value).Interior.ColorIndex = 6
Columns("D").Clear
End Sub

 

[1Al2Ver]

J1 hücresine

=KAÇINCI(DOĞRU;$J$2:$J$20>0;0)

yazıp CTRL+SHIFT+ENTER tuşlarına birlikte basınız.

Daha sonra E2:J20 aralığınızı seçip koşullu biçimlendirme içine

=SATIRSAY(E2:$E$2)=$J$1

yazıp istediğiniz rengi veriniz.

Ali bey merhaba,

Çözüm için teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Sayın Ali bey cevabı vermiş.Ben de kodlarla yaptım.

Sub biçimlendir()
Columns("E:D").Interior.ColorIndex = xlNone
For i = 2 To 20
If Cells(i, "E") > 0 Then
k = k + 1
Cells(k, "D") = Cells(i, "E").Row
End If
Next i
Range("E2:J" & [D1].Value).Interior.ColorIndex = 6
Columns("D").Clear
End Sub

Sayın ozgretmen, merhaba,

Cevap için teşekkürler, çözümünüz son soruma cevap ise kod istediğimi yapmadı,

Sıfır ve sıfırdan sonraki ilk değeri renklendirdi, makro çalışınca E1'i sildi, örnek dosyada da açıkladım,

Zamanınız olduğunda, gereken kodu yazarsanız memnun olurum,

Teşekkür ederim.

 

[ozgretmen]

Dener misiniz ?

Sub biçimlendir()
Range("E2:J20").Interior.ColorIndex = xlNone
For i = 2 To 20
If Cells(i, "J") > 0 Then
k = k + 1
Cells(k, "D") = Cells(i, "J").Row
End If
Next i
Range("F" & [D1].Value & ":" & "J" & [D1].Value).Interior.ColorIndex = 6
Columns("D").Clear
End Sub

 

[1Al2Ver]

Dener misiniz ?

Sub biçimlendir()
Range("E2:J20").Interior.ColorIndex = xlNone
For i = 2 To 20
If Cells(i, "J") > 0 Then
k = k + 1
Cells(k, "D") = Cells(i, "J").Row
End If
Next i
Range("F" & [D1].Value & ":" & "J" & [D1].Value).Interior.ColorIndex = 6
Columns("D").Clear
End Sub

Sayın ozgretmen merhaba,

Çözüm için teşekkür ederim,

Saygılarımla.

 

[ozgretmen]

Sayın ozgretmen merhaba,
Çözüm için teşekkür ederim,
Saygılarımla.

Rica ederim.
İyi çalışmalar.:mutlu: