Excel'de Button ile hücre boyama

[murat4321]

İyi günler..


Benim istediğim şey A1 Sütununda Alt alt girilecek olan sayıların değeri 30'dan küçük ise kırmızıya değil ise sarıya boyaması bu işlemi button ilede yapabiliriz..


Şimdiden yardımlarınız için çok teşekkür ederim

İyi forumlar...

 

[asi_kral]

İyi günler..


Benim istediğim şey A1 Sütununda Alt alt girilecek olan sayıların değeri 30'dan küçük ise kırmızıya değil ise sarıya boyaması bu işlemi button ilede yapabiliriz..


Şimdiden yardımlarınız için çok teşekkür ederim

İyi forumlar...

Merhaba
Bu işlemi kod ile değilde Excel'in özelliği olan Koşullu biçimlendirme ile yapabilirsiniz.
A Sütununu Seçin
1. Koşul
Koşullu biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri Belirlemek için Formül kullan - Formül Kutucuğuna

=VE($A1<>"";$A1<30)

Bu formülü yazın ve Biçimlendir'den Renk seçin ( Kırmızı ) tamam diyerek koşulu tamamlayın.
A Sütununu Seçin
2. Koşul
Koşullu biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri Belirlemek için Formül kullan - Formül Kutucuğuna

=VE($A1<>"";$A1>=30)

Bu formülü yazın ve Biçimlendir'den Renk seçin ( Sarı ) tamam diyerek koşulu tamamlayın.

Sonuçları gözlemleyin.

 

[murat4321]

Merhaba
Bu işlemi kod ile değilde Excel'in özelliği olan Koşullu biçimlendirme ile yapabilirsiniz.
A Sütununu Seçin
1. Koşul
Koşullu biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri Belirlemek için Formül kullan - Formül Kutucuğuna

=VE($A1<>"";$A1<30)

Bu formülü yazın ve Biçimlendir'den Renk seçin ( Kırmızı ) tamam diyerek koşulu tamamlayın.
A Sütununu Seçin
2. Koşul
Koşullu biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri Belirlemek için Formül kullan - Formül Kutucuğuna

=VE($A1<>"";$A1>=30)

Bu formülü yazın ve Biçimlendir'den Renk seçin ( Sarı ) tamam diyerek koşulu tamamlayın.

Sonuçları gözlemleyin.

Merhabalar ,

Bu işlemi bende koşullu biçimlendirmeyle yapabiliyorum fakat bana lazım olan kısmı kod kısmı bir türlü yapamadım yeni başladığım için başımda feci şekilde ağrıdı yardımcı olabilirseniz çoook teşekkür ederim..

İyi Forumlar..

 

[murat4321]

Yardımcı olabilicekmisiniz Acaba..

 

[asi_kral]

Merhabalar ,

Bu işlemi bende koşullu biçimlendirmeyle yapabiliyorum fakat bana lazım olan kısmı kod kısmı bir türlü yapamadım yeni başladığım için başımda feci şekilde ağrıdı yardımcı olabilirseniz çoook teşekkür ederim..

İyi Forumlar..

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub boyama_1967()
'Konu       :   30'a Göre Boyama
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(SAT, "A") < 30 Then
Cells(SAT, "A").Interior.Color = vbRed
Else
Cells(SAT, "A").Interior.Color = vbYellow
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[murat4321]

Ellerinize Sağlık Button ile'de mevcut yapıyı çalıştırdım ilginiz iiçin çok teşekkür ederim...
İyi Günler

İyi Forumlar..

 

[asi_kral]

Ellerinize Sağlık Button ile'de mevcut yapıyı çalıştırdım ilginiz iiçin çok teşekkür ederim...
İyi Günler

İyi Forumlar..

Kolay Gelsin.