Makro ile sütünün içinden 100'den büyük olanları kırmızıya boyasın ve Mesaj versin.

[Filose]

Merhaba;
Bir sütünda veya A1:B10 alanında yazılan değerlerin içinden yalnızca
100 den büyük olanları kırmızıya boyasın ve mesaj versin.
Şimdiden teşekkürler.

 

[Orion1]

A sütünunda son satırra kadar için.

Sub yuzden_buyuk_59()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & sat).Interior.ColorIndex = xlNone
For i = 1 To sat
    If Cells(i, "A").Value > 100 Then Cells(i, "A").Interior.Color = vbRed
Next i
End Sub

 

[Filose]

Orion1 Teşekkürler...

Makroyu kopyaladım hata vermedi fakat çalışmadı. Üstadım amaç sadece;
A1:H10 Gibi alanda yazılan değerlerin sadece 100 den büyük olanları kırmızı yapsın ve mesajla "şu hücrede 100 den büyük değerler var." desin.

Saygıyla,

Hoşçakalın.

 

[Filose]

Orion1 Hatırlatma.

Makro düğmesi eklenince sorun yok çalışıyor. Düğme konulmadan yani değerler yazılırken kontrol olsun.

Tekrar çok teşekkürler.

 

[Mehmet Sait]

Makro düğmesi eklenince sorun yok çalışıyor. Düğme konulmadan yani değerler yazılırken kontrol olsun.

Tekrar çok teşekkürler.

Şu kodu denermisiniz

Private Sub auto_open()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & sat).Interior.ColorIndex = xlNone
For i = 1 To sat
If Cells(i, "A").Value > 100 Then Cells(i, "A").Interior.Color = vbRed
Next i
End Sub

 

[Necdet]

Makro düğmesi eklenince sorun yok çalışıyor. Düğme konulmadan yani değerler yazılırken kontrol olsun.

Tekrar çok teşekkürler.

Neden Koşullu Biçimlendirmeyi denemiyorsunuz?

 

[Filose]

Necdet Bey,
Kontrol, hücreye veri girişi yapılırken 100 den büyük olanları kırmızı yazıp mesaj vermesi gerekiyor.

Saygılar,

 

[Filose]

Orion1 Çok teşekkürler...

Üstadım;
Yaptığınız makro makro düğmesi ile çalışıyor. Ancak hücrelere veri girerken kontrol olmasını istiyorum. A1:H10 Gibi alanlara veri yazarken eğer 100 den büyük sayı girersem kırmızı olsun ve "şu hücrede 100 den büyük değer var." desin.

İlginiz ve uğraşlarınız için çok teşekkür ederim.

Saygılar,

 

[Orion1]

Üstadım;
Yaptığınız makro makro düğmesi ile çalışıyor. Ancak hücrelere veri girerken kontrol olmasını istiyorum. A1:H10 Gibi alanlara veri yazarken eğer 100 den büyük sayı girersem kırmızı olsun ve "şu hücrede 100 den büyük değer var." desin.

İlginiz ve uğraşlarınız için çok teşekkür ederim.

Saygılar,

o kodları silip.yerine veri doğrulama ve koşullu biçimlendirme yapınız.
O zaman anında kontrol sağlanır.

 

[Filose]

Orion1

Sağolun... Mesaj verme dışında koşullu biçimlendirme işimi görüyor.

İyi bayramlar...

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz. Sarı renkli alana veri doğrulama özelliği uygulanmıştır.

VERİ-DOĞRULAMA menüsünden inceleyebilirsiniz.

Ayrıca makro ile çözüm isterseniz aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:B10")) Is Nothing Then Exit Sub
    If Target >= 100 Then
        MsgBox "Lütfen 100 den küçük değer girişi yapnız.", vbExclamation
        Target = ""
        Target.Activate
        Exit Sub
    End If
End Sub